meistens finde ich in den Foren ja Lösungen für das was ich brauche. Jetzt gerade nicht.
Ich habe ein VBA-Scribt gefunden mit dem ich ein Datum in Spalte A finden kann. Das klappt auch, allerdings bekomme ich das Ergebnis
in einer MessageBox. Steht auch so im Script. Ich möchte aber das diese Zelle, in der das Ergebnis steht markiert wird, oder besser noch die Zelle D in der gleichen Zeile.
Das Ganze ist ein Tätigkeitsnachweis, dessen aussehen Vorgegeben ist und geändert werden darf. Manchmal müssen die gesetzlichen Pausen, die per
Formel eingetragen werden, verlängert werden.
Der Code den ich gefunden habe und einsetze:
Private Sub CB_PausenZt_aendern_JAN_Click()
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
datum = InputBox("Datum eingeben")
Set bereichs = Sheets("Jan").Range("a1:a35")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If
End Sub
Schon mal einen Dank im Voraus
Hartmut