VBA Laufzeitfehler

Hallo zusammen,
ich habe glaube ich gleich mehrere Fehler in meinen Code eingebaut und bin auf eure Hilfe angewiesen da ich keine Idee habe wie ich das Makro zum laufen bekomme.
Wenn ich den Code wie abgebildet anstoße kommt es zum Laufzeitfehler 13 'Typen unverträglich'.
Dieser Fehler lässt sich durch das Löschen des Or Verbinders vermeiden. Jedoch kommt es dann zum Laufzeitfehler '-2147417848 (80010108)' Die Methode Range für das Objekt Worksheet ist fehlgeschlagen.
Könnt ihr mir sagen wo sich hier der Fehlerteufel versteckt?


Private Sub Worksheet_Change(ByVal Target As Range)
Datum = Range("H5")
If Target.Address = "$I$2" And Target.Value = "Nachtschicht" And Cells(2, 3).Value = "Frühschicht" Or "Spätschicht" Then
With Worksheets("Personalplanung")
.Range("I4").Value = "So"
.Range("J4").Value = "Mo"
.Range("K4").Value = "Di"
.Range("L4").Value = "Mi"
.Range("M4").Value = "Do"
.Range("N4").Value = "Fr"
.Range("I5").Value = DateAdd("d", 1, Datum)
.Range("J5").Value = DateAdd("d", 2, Datum)
.Range("K5").Value = DateAdd("d", 3, Datum)
.Range("L5").Value = DateAdd("d", 4, Datum)
.Range("M5").Value = DateAdd("d", 5, Datum)
.Range("N5").Value = DateAdd("d", 6, Datum)
End With
ElseIf Target.Address = "$I$2" And Target.Value = "Frühschicht" Or "Spätschicht" And Cells(2, 3).Value = "Nachtschicht" Then
With Worksheets("Personalplanung")
.Range("I4").Value = "Mo"
.Range("J4").Value = "Di"
.Range("K4").Value = "Mi"
.Range("L4").Value = "Do"
.Range("M4").Value = "Fr"
.Range("N4").Value = "Sa"
.Range("I5").Value = DateAdd("d", 3, Datum)
.Range("J5").Value = DateAdd("d", 4, Datum)
.Range("K5").Value = DateAdd("d", 5, Datum)
.Range("L5").Value = DateAdd("d", 6, Datum)
.Range("M5").Value = DateAdd("d", 7, Datum)
.Range("N5").Value = DateAdd("d", 8, Datum)
End With
Else
With Worksheets("Personalplanung")
.Range("I4").Value = "So"
.Range("J4").Value = "Mo"
.Range("K4").Value = "Di"
.Range("L4").Value = "Mi"
.Range("M4").Value = "Do"
.Range("N4").Value = "Fr"
.Range("I5").Value = DateAdd("d", 2, Datum)
.Range("J5").Value = DateAdd("d", 3, Datum)
.Range("K5").Value = DateAdd("d", 4, Datum)
.Range("L5").Value = DateAdd("d", 5, Datum)
.Range("M5").Value = DateAdd("d", 6, Datum)
.Range("N5").Value = DateAdd("d", 7, Datum)
End With
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim dadaDatum As Date dadaDatum = Range("H5") On Error GoTo Notausgang If Target.Address = "$I$2" Then Application.EnableEvents = False If Target = "Nachtschicht" Then If Cells(2, 3) = "Frühschicht" Or Cells(2, 3) = "Spätschicht" Then With Worksheets("Personalplanung") .Range("I4").Value = "So" .Range("J4").Value = "Mo" .Range("K4").Value = "Di" .Range("L4").Value = "Mi" .Range("M4").Value = "Do" .Range("N4").Value = "Fr" .Range("I5").Value = DateAdd("d", 1, daDatum) .Range("J5").Value = DateAdd("d", 2, daDatum) .Range("K5").Value = DateAdd("d", 3, daDatum) .Range("L5").Value = DateAdd("d", 4, daDatum) .Range("M5").Value = DateAdd("d", 5, daDatum) .Range("N5").Value = DateAdd("d", 6, daDatum) End With End If ElseIf Target = "Frühschicht" Or Target = "Spätschicht" Then If Cells(2, 3) = "Nachtschicht" Then With Worksheets("Personalplanung") .Range("I4").Value = "Mo" .Range("J4").Value = "Di" .Range("K4").Value = "Mi" .Range("L4").Value = "Do" .Range("M4").Value = "Fr" .Range("N4").Value = "Sa" .Range("I5").Value = DateAdd("d", 3, daDatum) .Range("J5").Value = DateAdd("d", 4, daDatum) .Range("K5").Value = DateAdd("d", 5, daDatum) .Range("L5").Value = DateAdd("d", 6, daDatum) .Range("M5").Value = DateAdd("d", 7, daDatum) .Range("N5").Value = DateAdd("d", 8, daDatum) End With End If Else With Worksheets("Personalplanung") .Range("I4").Value = "So" .Range("J4").Value = "Mo" .Range("K4").Value = "Di" .Range("L4").Value = "Mi" .Range("M4").Value = "Do" .Range("N4").Value = "Fr" .Range("I5").Value = DateAdd("d", 2, daDatum) .Range("J5").Value = DateAdd("d", 3, daDatum) .Range("K5").Value = DateAdd("d", 4, daDatum) .Range("L5").Value = DateAdd("d", 5, daDatum) .Range("M5").Value = DateAdd("d", 6, daDatum) .Range("N5").Value = DateAdd("d", 7, daDatum) End With End If End If Notausgang: On Error GoTo -1 Application.EnableEvents = True End Sub

Ja, das bedeutet das.
btw bitte im Zusammenhang IFvon IF nie von "Schleife" sprechen.
"Schleife" ist eindeutig den Programmstrukturen FOR-NEXT, DO-LOOP und WHILE-WEND zugeordnet.
bei IF spricht man normalerweise von einem "Block"
oft ist es auch sinnvoller, statt langer Bedinungsprüfungen mit vielen AND-verknüpften Teilen hieraus mehrere ineinander verschachtelte IF-Blöcke zu machen, insbesondere dann, wenn eine Prüfung mit AND bei jedem ELSEIF vorkommt.
also bei dir


IF Target.Address = "$I$2" Then
If Target.Value = "Nachtschicht" AND (....) Then
ElseIf (Target.Value = "Spätschicht" or Target.Value = "Frühschicht" ) AND ... Then
Else
end If

hat hier mehrere Vorteile:
a) es passiert nichts, wenn irgend eine andere Zelle geändert wird
b) mit Target.Address = "$I$2" ist nur wahr, wenn genau diese eine Zelle geändert wird. Damit ist dann auch jeder Fall ausgeschlossen, wenn der Anwender mehrere Zellen gleichzeitig ändert.
Dieser macht nämlich probleme, weil dann Target.Value ein Array ist und ein kein Einzelwert.
mit einem Array sind Vergleiche mit Einzelwerten nicht zulässig (Target.Value = "Nachtschicht").
wenn du also hier diese Prüfung in ein übergeordnetes IF packst, hast du die Prüfung Target.Count = 1 schon implizit mit drin.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread