Datum bzw. "Heute" finden
29.12.2020 09:18:08
Eisi
jetzt dachte ich, dass der Code funktioniert, aber leider doch nicht. Bzw. gestern ging er und heute Morgen nicht mehr.
Folgendes:
Ich habe eine Tabelle in der in Zeile 13:13 mit der >Formel =NH13+1 Meine Fensteransicht ist bei Spalte N fixiert.
Ich möchte, dass das heutige Datum mit einem Button in meinem Sichtfeld erscheint. 2 Spalten rechts neben der Spalte N.
Folgender Code ging eigentlich, aber nicht zuverlässig:
Sub Oben_Button()
Application.Goto Reference:="R14C317", Scroll:=True 'aktuelles Datum: "R14C317"
ActiveWindow.SmallScroll ToRight:=6
End Sub
Mein Code ging gestern super, heute überhaupt nicht. Der Code scrollt zwar, aber jetzt immer zum 06.01.2020 = Kalenderstart in Zelle K4. Der Code soll statt dem aktuellem Datum in Zeile 14:14 den Text "Heute" suchen. Der steht in diesem Fall bei NI14, direkt unter dem aktuellen Datum.:' **Oben_Button**: > Wort suchen_Ansicht nach oben links scrollen ' Steht im Modul
' Aufgabe: Suche das Wort "Heute" in Zeile 14
' Scrolle das gefundene Wort nach links oben und 2 Spalten nach rechts versetzt
'
Sub Oben_Button()
Dim Position As Range 'Deklariere "Position"
Set Position = Worksheets("Projektplan").Range("14:14").Find("Heute") 'Suche die Stelle " _
Position"
Application.Goto Reference:=Position, Scroll:=True 'Gehe zur "Position"
ActiveWindow.SmallScroll ToRight:=-2 'Versetzte die Spalten um -2
End Sub
Hat jemand eine Idee, warum das bei beiden Codes fehlerhafte Eergebnisse erzeugt werden?Vielen Dank.
VG Eisi :-)