Ich habe da mal eine Frage. Ich habe mir mit Hilfe von Google den Code hier zusammen gefrickelt. Welcher auch super funktioniert. Meine Frage wäre jetzt ob mann die Ausgabe des Textes aufspliten kann.
Also dd in D7
mm in E7
und yyyy in F7
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Count > 1 Then Exit Sub ' mehr als eine Zelle ausgewählt
Set RaBereich = Range("B6:G7") ' Bereich der Wirksamkeit
' noch mehr Bereiche
' Set RaBereich = Union(Range("C7:I26"), Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26") _
)
' ActiveSheet.Unprotect ("Passwort") ' Schutz der Tabelle aufheben
' prüfen ob Zelle im Bereich,
If Not Intersect(Target, RaBereich) Is Nothing Then
Dim sTxt As String, sPrompt As String, sDefault As String
sPrompt = "Datum eingeben:"
sDefault = Format(Date - 3, "dd.mm.yyyy")
sTxt = InputBox(prompt:=sPrompt, Default:=sDefault)
On Error GoTo ERRORHANDLER
MsgBox CDate(sTxt)
Sheets("AS_Kreuz").Range("B6:G7").Value = ""
Sheets("AS_Kreuz").Range("D7").Value = CDate(sTxt)
Exit Sub
ERRORHANDLER:
MsgBox "Kein gültiges Datumsformat!"
' ActiveSheet.protect ("Passwort") ' Schutz auf Tabelle setzen
Set RaBereich = Nothing ' Variab
End If
End Sub
Grüße Fred