ich habe durchaus lange hier recherchiert, bevor ich mit meiner Anfrage nerve, aber ich bekomme das problem nicht in den Griff.
Ich habe auf einem Blatt ein Formular, welches Daten wie Eingabe 040619 in 04.06.2019 umwandelt. Leider auch unverzichtbare verbundene Zellen.
Am Ende der Prozedur soll der Benutzer ein Makro aus einem Modul auslösen, welches die Eingaben löscht...
Ich bekomme immer wieder den Laufzeitfehler 13 wenn aus den verbunden Zellen gelöscht werden soll.
Kann jemand helfen?
Im Blatt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MekZellSt As String
Target.NumberFormat = "General"
If Intersect(Target, Range("34:71")) Is Nothing Or (InStr(Target, ".") > 0) Then Exit Sub
Application.EnableEvents = False
If Len(Target) = 5 Then
Target = _
CDate(Format(CDate(Mid(Target, 1, 1) & "." & _
Mid(Target, 2, 2) & "." & _
Mid(Target, 4, 2)), "dd.mm.yyyy"))
ElseIf Len(Target) = 6 Then
Target = _
CDate(Format(CDate(Mid(Target, 1, 2) & "." & _
Mid(Target, 3, 2) & "." & _
Mid(Target, 5, 2)), "dd.mm.yyyy"))
ElseIf Len(Target) = 7 Then
Target = _
CDate(Format(CDate(Mid(Target, 1, 1) & "." & _
Mid(Target, 2, 2) & "." & _
Mid(Target, 4, 4)), "dd.mm.yyyy"))
ElseIf Len(Target) = 8 Then
Target = _
CDate(Format(CDate(Mid(Target, 1, 2) & "." & _
Mid(Target, 3, 2) & "." & _
Mid(Target, 5, 4)), "dd.mm.yyyy"))
End If
Range("R40:V48").NumberFormat = "#,##0.00 "
Application.EnableEvents = True
End Sub
Im Modul:Sub Löschen_Abschluss_BK()
Dim ts As Worksheet
Set ts = Worksheets("BK neu")
ts.Range("O13:U13").ClearContents
ts.Range("O15:U15").ClearContents
ts.Range("O17:U17").ClearContents
ts.Range("O19:U19").ClearContents
End Sub
Ich bedanke mich für jeden Hinweis!