VBA: bei Zellklick in andere Zelle springen
11.05.2016 13:15:17
K.
ich komme bei einer Sache nicht weiter und zwar habe ich in einem sheet 2 in Spalte D ab D3 Zellbezüge stehen (z. B.: A2, A3, A4 usw.). Diese Zellbezüge beziehen sich auf Zellen im sheet 1.
Nun will eine Zelle ab D3 anklicken und genau in die Zelle im sheet 1 springen, die in der angeklickten Zelle angegeben ist.
Beispiel: Ich klicke auf Zelle D5 (hier steht A4) und springe zu sheet 1 auf A4. Wenn die angeklickte Zelle leer ist, soll nichts passieren. Diese Bedingung brauche ich, weil die Spalte D dynamisch ist.
Mein Ansatz im Objekt sheet 2 für eine Zelle ist:
Private Sub cell_click()
If Target.Address = "$D$3" Then Sheet("sheet1").Range(Range("G21").Value)).Select
End Sub