Tabelle verschiebt sich bei Auswahl einer Zelle
03.06.2015 11:59:03
Kulo
ich hatte vor einigen Tagen nach der Möglichkeit gefragt, nach dem Öffnen einer Tabelle automatisch das aktuelle Datum zu selektieren.
Klappt sehr gut.
Von Michael bekam ich folgenden Code: (hab schon selbst dran gebastelt, arbeitet aber noch so, wie vorher):
Private Sub Worksheet_Activate()
Dim DatLeiste As Range
Dim DatEinzel As Range
Set DatLeiste = Range("B2:M2")
For Each DatEinzel In DatLeiste
If Month(DatEinzel) = Month(Date) And Year(DatEinzel) = Year(Date) Then
Application.Goto DatEinzel, True
Exit For
End If
Next
End Sub
Kann mir jemand nen Tipp geben, dass die Spalte an ihrem Platz bleibt?
Würde mich sehr freuen.
Danke im Voraus.
VG
Kulo