jobo: VBA, Excel, dynamisch Funktionen zuweisen

Beitrag lesen

Hallo Jörg,

Nein. Der/das Target wird zurückgegeben und ist die angeklickte Zelle. Teste das mal mit der Routine, indem Du einfach einträgst:

msgbox target.address

ByVal und ByRef hat nichts damit zu tun, dass ich mit Target.Value = "was neues" einen neuen Wert zB. zuordnen kann.

Die siehst Du, wenn der Cursor in der Routine steht, oben rechts im Dropdown.

Wieso heißt es zB. "BeforeDoubleClick"? Vermutlich, weil die Prozedur zwar nach dem Doppelklich aufgerufen wird, aber bevor die eigentlich Funktion des Doppelklicks (Zellinhalt ändern) angeboten wird.

Das würde ich mit Find machen:

dim objGefunden as object

set objgefunden = workbooks(sowieso).sheets(sowieso).columns(sowieso).find(Blattname, lookat:=xlwhole)
if objgefunden is nothing then … Blattname ist nicht vorhanden
set objgefunden = nothing

Das hieße, Blattname ist nicht in dem Zell-Range vorhanden. Ich würde umgekehrt prüfen wollen, ob Book1.xls:Blatt3 existiert als Arbeitsmappen-Tabellenblatt-Kombination. Sonst versuche ich ja was zu öffnen, was garnicht da wäre (was in dem Fall aber vermutlich garnicht vorkommen "kann", weil die Übersicht ja gerade per Auslesen erstellt wurde).

Dank und Gruß

jobo