Laufzeitfehler 13 verbundene Zellen Makro 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
der Fehler kommt daher dass du hier nicht bedacht hast, dass TARGET nicht immer nur eine Zelle und ein Einzelwert sein kann, sondern immer auch ein mehrzelliger Zellbereich, er auch aus mehreren nicht zusammenhängenden Einzelzellen besteht, (Mehrfachselektion mit SHIFT- oder STRG-Taste, dann löschen von Inhalten oder Eingabe mit STRG+ENTER.
in diesem Fall ergibt dann TARGET.VALUE keinen Einzelwert, sondern ein ARRAY, was im Umgang mit diesem Wert berücksichtigt werden muss.
am einfachsten löst man das Problem, dass man entweder abfragt, ob Target eine Einzelzelle ist:

if Targt.CountLarge = 1

weitere Prüfungen, die sich auf den Einzelwert von Target beziehen, darf man dann aber nicht in dieses IF mit einbauen, sondern muss dann mehrere IF-Blöcke ineinander schachteln:

If Target.CountLarge = 1 then
If Target.Value = "Hallo Welt Then

oder man arbeitet mit einer Schleife über die Zellen von Target und verwendet den Schleifenzähler anstelle von Target

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MekZellSt As String
Dim Zelle As Range
Target.NumberFormat = "General"
If Intersect(Target, Range("H8:H8")) Is Nothing Then Exit Sub
For Each Zelle In Intersect(Range("H8:H8"), Target)
If InStr(Zelle.Value, ".") = 0 Then
Application.EnableEvents = False
If Len(Zelle) = 5 Then
Zelle = _
CDate(Format(CDate(Mid(Zelle, 1, 1) & "." & _
Mid(Zelle, 2, 2) & "." & _
Mid(Zelle, 4, 2)), "dd.mm.yyyy"))
ElseIf Len(Zelle) = 6 Then
Zelle = _
CDate(Format(CDate(Mid(Zelle, 1, 2) & "." & _
Mid(Zelle, 3, 2) & "." & _
Mid(Zelle, 5, 2)), "dd.mm.yyyy"))
ElseIf Len(Zelle) = 7 Then
Zelle = _
CDate(Format(CDate(Mid(Zelle, 1, 1) & "." & _
Mid(Zelle, 2, 2) & "." & _
Mid(Zelle, 4, 4)), "dd.mm.yyyy"))
ElseIf Len(Zelle) = 8 Then
Zelle = _
CDate(Format(CDate(Mid(Zelle, 1, 2) & "." & _
Mid(Zelle, 3, 2) & "." & _
Mid(Zelle, 5, 4)), "dd.mm.yyyy"))
End If
Range("R40:V48").NumberFormat = "#,##0.00 "
Application.EnableEvents = True
End Sub

nochmal zum Thema Verbundzellen:
bei wenn du eine Zelle im Zellverbund mit Inhalt änderst, so ist Target immer die Linke obere Zelle des Verbundes und somit eine Einzelzelle.
Löscht du jedoch den Inhalt einer Verbundzelle, so ist Target immer ganze Zellverbund.
Gruß Daniel

was du meintst, Luc, kann ich nicht wissen, ich kann nur lesen, was du geschrieben hast.
nun, ich habe aber nicht nur erwähnt, das Target auch mehrer Zellen umfassen kann, sondern auch eine konkrete allgemein funktionierende Lösungsmöglichkeit für das Problem aufgezeigt, was vorher noch keiner gemacht hat (Target.Text ist jetzt nicht wirklich eine funktionierende Lösung für das Problem) und daher ist mein Beitrag neu denn diese Lösungsmöglichkeit wurde in diesem Thread bisher noch nicht erwähnt.
Deswegen ist deine Anmerkung schlicht und einfach falsch.
und wenns den Fragesteller nicht interessiert (er hat sich ja für ne andere Lösung entschieden), vielleicht gibts ja stille Mitleser oder irgendejemand mit einem ähnlichen Problem stößt bei seiner Recherche über diesen Thread...

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 13 verbundene Zellen Makro im Blatt

38
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

59 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 13 verbundene Zellen Makro im Blatt

38 Beiträge zum Forumthread Beiträge zu diesem Forumthread

59 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

38
Beiträge zum Forumthread

Beiträge zu diesem Forumthread