mm/dd/yyyy auf dd.mm.yyyy umstellen
16.11.2022 20:10:32
Alex
ich habe ein womöglich nur banales Problem. Bei meinem Code muss ich für die Datumseingabe, damit dieser vom ersten Tag aufzählend, über die Liste gezogen wird, das amerikanische Datumsformat mm/dd/yyyy eingeben. Ich hätte es allerdings gerne so, dass ich dd.mm.yyyy eingebe. Was muss ich dafür abändern?
Sub Datumseingabe() 'Setzt das Datum in der gesamten Arbeitsmappe
Sheets("A").Select
Dim sTxt As String
sTxt = InputBox("Bitte Datum eingeben:" & Chr(13) & "Format MM/TT/YYYY")
If sTxt = "" Then Exit Sub
'MsgBox sTxt
Range("B2").Value = sTxt
Range("B2:D2").Select
Selection.AutoFill Destination:=Range("B2:CP2"), Type:=xlFillDefault
Range("B2:CP2").Select
End Sub
Mein Datum wird über drei verbundene Zellen angezeigt, daher Range B2:D2.Zusätzlich hätte ich noch eine Frage bezüglich des Bereiches, wo das Makro laufen soll. Aktuell habe ich die Range ja von B2 bis CP2 händisch vergeben. Wäre es möglich, dass Makro ohne feste Range so lange auszuführen, bis in der Zeile darüber keine Einträge mehr sind?
Danke schon mal für die Hilfe