Supportnet / Forum / Tabellenkalkulation
Wenn ich auf Button klicke soll automatisch in Zelle gesprungen werden
Frage
Hallo,
ich habe folgends Problem:
Ich habe eine Exceltabelle, in der in Zeile 2 ab Spalte D Datumswerte stehen. Diese stehen allerdings in Zellen, die aus drei Zellen verbunden wurden.
Ich möchte nun, wenn ich auf einen Button klicke, dass der cursor automatisch in die Zelle mit dem aktuellen Datum springt. Geht das? Habe mich schon mit VBA probiert - bekomme das allerdings alleine nicht hin.
Vielen Dank im Voraus!!!!
Antwort 1 von DukeNT
Hi KLP,
erstelle auf Blatt1 eine Befehlsschaltfläche (CommandButton1) und kopiere folgenden Code da rein.
Private Sub CommandButton1_Click()
With Worksheets(1).UsedRange
Set a = .Find(Date, LookIn:=xlValues)
If Not a Is Nothing Then
firstAddress = a.Address
Range(firstAddress).Select
End If
End With
End Sub
Teste mal ob das funktioniert.
Gruß Niels
erstelle auf Blatt1 eine Befehlsschaltfläche (CommandButton1) und kopiere folgenden Code da rein.
Private Sub CommandButton1_Click()
With Worksheets(1).UsedRange
Set a = .Find(Date, LookIn:=xlValues)
If Not a Is Nothing Then
firstAddress = a.Address
Range(firstAddress).Select
End If
End With
End Sub
Teste mal ob das funktioniert.
Gruß Niels
Antwort 2 von KLP
Hallo Niels,
vielen Dank für die super schnelle Antwort!!!!
Hat mir wirklich sehr weitergeholfen!!!! :-) DANKE!!! Mein Tag war gerettet!
vielen Dank für die super schnelle Antwort!!!!
Hat mir wirklich sehr weitergeholfen!!!! :-) DANKE!!! Mein Tag war gerettet!