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

Helfe beim Thema VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change) in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich komm leider nicht weiter. Habe 2 Makros die einzeln super Funktionieren, aber leider nicht zusammen. Vielleicht kann jemand helfen. Danke.... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Warp9, 9. April 2021.

  1. Warp9 Neuer User

    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
     
    Warp9, 9. April 2021
    #1
  2. Beverly
    Beverly Erfahrener User
    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
    


    VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change) GrußformelVBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change) Beverly's Excel - Inn
     
    Beverly, 9. April 2021
    #2
    1 Person gefällt das.
  3. Der Steuerfuzzi
    Der Steuerfuzzi Neuer User
    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.
     
    Der Steuerfuzzi, 9. April 2021
    #3
  4. Warp9 Neuer User

    VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

    Hi Beverly, funktioniert bestens... vielen Dank.
     
    Warp9, 9. April 2021
    #4
Thema:

VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

Die Seite wird geladen...
  1. VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change) - Similar Threads - VBA Fehler Kompilieren

  2. Makro Problem nach Wörtern filtern und Zeilen löschen

    in Microsoft Excel Hilfe
    Makro Problem nach Wörtern filtern und Zeilen löschen: Hallo zusammen! Ich habe ein Makro, dass ich erweitern möchte. Dabei soll in den Daten in der ersten Zeile ein Filter aktiviert werden und alle Datenzeilen löschen, die in Spalte 10 eines von 4...
  3. Fehler beim übertragen einer funktionierenden VBA

    in Microsoft Excel Hilfe
    Fehler beim übertragen einer funktionierenden VBA: Hallo Ich habe von der Homepage von Beverly die Datei mit Makro geladen (mehrere Zellen Zoomen), und wollte sie in meiner Beispieldatei einarbeiten. Ich habe die Liste als Namen definiert und die...
  4. Warum Fehler beim Kompilieren (VBA)???

    in Microsoft Excel Hilfe
    Warum Fehler beim Kompilieren (VBA)???: Hallo meine Lieben, ich bin, was VBA angeht, kein Profi und daher schier am durchdrehen. (Darf die Mappe aus datenschutzrechtlichen Gründen nicht online stellen, sorry) Folgendes: Modul 1:...
  5. VBA-Fehler,Benutzerdefinierter Typ nicht definiert

    in Microsoft Excel Hilfe
    VBA-Fehler,Benutzerdefinierter Typ nicht definiert: Hallo, ich bekomme es einfach nicht hin. Ich habe hier Script mit dem ich mir die Verzeichnisstruktur auflisten kann. Das Script funktioniert wenn ich es in der Datei aufrufe in der ich es mal...
  6. VBA Fehler auf 1 von 3 Rechnern

    in Microsoft Access Hilfe
    VBA Fehler auf 1 von 3 Rechnern: Hallo, vielleicht kann mir jemand weiterhelfen, ich stehe vor einem Problem dessen Ursache sich mir absolut nicht erschließt. Der folgende VBA Code deklariert die Variablen und befüllt diese...
  7. Fehler 400 bei einfachen VBA-Code

    in Microsoft Excel Hilfe
    Fehler 400 bei einfachen VBA-Code: Guten Tag Excel-Experten Wieder mal sitze ich auf dem Schlauch und brauche eure Hilfe. Meine Kalkulationsdatei ist ziemlich fortgeschritten, habe bereits eine Menge Code geschrieben....
  8. VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

    in Microsoft Excel Hilfe
    VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change): Hallo Zusammen, wer kann mir helfen? Ich möchte/muss die nachfolgenden Codes irgendwie Zusammenführen weil die Prüfung augenscheinlich so nicht funktioniert. Ansich der selbe Code mit...

Users found this page by searching for:

  1. mehrdeutiger name in makro

  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden