Bei Sprung zu Zelle, Zentrierung ändern
14.11.2022 11:50:16
Alex
ich habe einen Kalender, welcher automatisch beim Öffnen der Datei zum heutigen Datum auf dem Arbeitsblatt "Fahrzeuge" springt. Zusätzlich habe ich einen Button, der das gleiche tut. Beides funktioniert für mich ohne Probleme. Ich hätte es nur gerne so, dass sich die Ansicht nicht auf die erste Zelle der Verbunden bezieht beim Ausführen der Codes. Im Bild wäre das als Beispiel LD2. Von dort soll automatisch um 12 Zellen (auf LO) nach rechts gesprungen werden, sodass diese Zelle dann zentriert ist und das Datum mittig im Fenster angezeigt wird.
Ich weiß, mit verbunden Zellen zu arbeiten ist ein Fauxpas, aber es ist nun mal so. Geht das überhaupt von meiner Idee her? Kann man der Funktion sagen, wenn das Datum gefunden wurde, zentriere 12 Zellen rechts daneben dieses in der Ansicht?
Folgende Codes habe ich wie folgt eingegeben.
In "DieseArbeitsmappe":
Private Sub Workbook_Open()
'Automatisch zu Heute springen beim Öffnen
Sheets("Fahrzeuge").Select
Dim lngZeile As Long
Dim lngSpalte As Long
Dim suchDatum As Date
suchDatum = Date 'Das Datum von Heute
lngZeile = 2
For lngSpalte = Range("D2").Column To Range("ABS2").Column
If IsDate(Cells(lngZeile, lngSpalte).Value) Then
If CDate(Cells(lngZeile, lngSpalte).Value) = suchDatum Then
Cells(lngZeile, lngSpalte).Select
Exit For
End If
End If
Next lngSpalte
End Sub
'Zu heute springen
Private Sub CommandButton1_Click()
Dim lngZeile As Long
Dim lngSpalte As Long
Dim suchDatum As Date
suchDatum = Date 'Das Datum von Heute
lngZeile = 2
For lngSpalte = Range("B2").Column To Range("ABS2").Column
If IsDate(Cells(lngZeile, lngSpalte).Value) Then
If CDate(Cells(lngZeile, lngSpalte).Value) = suchDatum Then
Cells(lngZeile, lngSpalte).Select
Exit For
End If
End If
Next lngSpalte
End Sub
Vielen Dank schon mal.
Gruß
Anzeige