Office: (Office 2019) VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

Hallo, ich komm leider nicht weiter. Habe 2 Makros die einzeln super Funktionieren, aber leider nicht zusammen. Vielleicht kann jemand helfen. Danke.

Option Explicit

Sub Datum()
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H20:H10000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 8).ClearContents
Else:
Target.Offset(0, 8) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub


Sub verschieben1()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TRow As Integer
TRow = Target.Row
If Target.Column = 13 Then
If Target = "Vorbereitung erledigt" Then
Sheets("Vorbereitet").Rows(TRow).Copy
Sheets("Annahme").Cells(Sheets("Annahme").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("Vorbereitet").Rows(TRow).Delete Shift:=xlUp
End If
End If
End Sub

 

Hi,

versuche es mal so (ungetestet):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TRow As Integer
    If Not Intersect(Target, Range("H20:H10000")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
        If Target = "" Then
            Target.Offset(0, 8).ClearContents
        Else:
            Target.Offset(0, 8) = CDate(Format(Now, "dd.mm.yyyy"))
        End If
    End If
    If Target.Column = 13 Then
        If Target = "Vorbereitung erledigt" Then
            TRow = Target.Row
            Sheets("Vorbereitet").Rows(TRow).Copy
            Sheets("Annahme").Cells(Sheets("Annahme").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
            Sheets("Vorbereitet").Rows(TRow).Delete Shift:=xlUp
        End If
    End If
End Sub

---

 

Hallo,

Du solltest vor der Berabeitung von Zellen in Worksheet_change die Events ausschalten, sonst kann es sein, dass Du in eine Endlosschleife läufst (Application.EnableEvents = False -> und nicht vergessen, das am Ende wieder auf true zu setzen).

Ich bin mir nicht ganz sicher, wie Dein geposteter Code in der Datei steht, aber es gibt nur ein Worksheet_Change-Ereignis pro Arbeitsblatt. Der gesamte Code muss also in einer Sub stehen. Und eine Sub in einer Sub geht nicht, die erste Zeile des zweiten Code-Blocks ist demenstprechend eigentlich nicht möglich.

 

Hi Beverly, funktioniert bestens... vielen Dank.