Office: (Office 2013) Fehler beim Kompilieren: Mehrdeutiger Name

Helfe beim Thema Fehler beim Kompilieren: Mehrdeutiger Name in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen! Hatte mir einst erfolgreich ein Makro besorgt (ich selbst beherrsche VBA nicht) um auf die Änderung einer Zelle hin, in einer... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von vinzentvega, 21. November 2018.

  1. Fehler beim Kompilieren: Mehrdeutiger Name


    Hallo zusammen!
    Hatte mir einst erfolgreich ein Makro besorgt (ich selbst beherrsche VBA nicht) um auf die Änderung einer Zelle hin, in einer benachbarten Zelle das auslesbare Datum von "heute" zu bekommen.
    Das hat funktioniert. Jetzt würde ich das Ganze gerne in einer Tabelle 4mal haben.

    Habe das Makro dazu einfach kopiert, mehrfach eingefügt und versucht, über "Columns" und "Row" zu steuern.
    Nach der Meldung "Fehler beim Kompilieren: Mehrdeutiger Name: Worksheet_Change" habe ich "Worksheet Change" in umbenannt, dann kommt keine Fehlermeldung mehr aber es funktioniert gar nicht mehr^^

    kann mir wer helfen?




    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    x = Target.Value
    If Not Intersect(Columns(2), Target) Is Nothing Then
    If ZielZelle <> Target Then
    Cells(Target.Row, 3) = Date
    End If
    End If
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    x = Target.Value
    If Not Intersect(Columns(5), Target) Is Nothing Then
    If ZielZelle <> Target Then
    Cells(Target.Row, 6) = Date
    End If
    End If
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    x = Target.Value
    If Not Intersect(Columns(7), Target) Is Nothing Then
    If ZielZelle <> Target Then
    Cells(Target.Row, 8) = Date
    End If
    End If
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    x = Target.Value
    If Not Intersect(Columns(9), Target) Is Nothing Then
    If ZielZelle <> Target Then
    Cells(Target.Row, 10) = Date
    End If
    End If
    End Sub
     
    vinzentvega, 21. November 2018
    #1
  2. nochmal vernünftig

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim x
       x = Target.Value
       If Not Intersect(Columns(2), Target) Is Nothing Then
          If ZielZelle <> Target Then
             Cells(Target.Row, 3) = Date
          End If
       End If
    End Sub
    
    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim x
       x = Target.Value
       If Not Intersect(Columns(5), Target) Is Nothing Then
          If ZielZelle <> Target Then
             Cells(Target.Row, 6) = Date
          End If
       End If
    End Sub
    
    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim x
       x = Target.Value
       If Not Intersect(Columns(7), Target) Is Nothing Then
          If ZielZelle <> Target Then
             Cells(Target.Row, 8) = Date
          End If
       End If
    End Sub
    
    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim x
       x = Target.Value
       If Not Intersect(Columns(9), Target) Is Nothing Then
          If ZielZelle <> Target Then
             Cells(Target.Row, 10) = Date
          End If
       End If
    End Sub
    
     
    vinzentvega, 21. November 2018
    #2
  3. Hab's gelöst, yeah

    Okay! Habe versucht, das Ganze in einem Sub - wenn man das so nennt - zusammenzufassen. So funktioniert's!!
    Ich kann zwar nix mitm VBA aber jetzt fühle mich trotzdem gerade unstoppable :D
    Grüße an alle, die den Thread gelesen haben


    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim x
       x = Target.Value
       If Not Intersect(Columns(2), Target) Is Nothing Then
          If ZielZelle <> Target Then
             Cells(Target.Row, 3) = Date
          End If
       End If
    If Not Intersect(Columns(5), Target) Is Nothing Then
          If ZielZelle <> Target Then
             Cells(Target.Row, 6) = Date
          End If
       End If
    If Not Intersect(Columns(7), Target) Is Nothing Then
          If ZielZelle <> Target Then
             Cells(Target.Row, 8) = Date
          End If
       End If
    If Not Intersect(Columns(9), Target) Is Nothing Then
          If ZielZelle <> Target Then
             Cells(Target.Row, 10) = Date
          End If
       End If
    End Sub
    
     
    vinzentvega, 21. November 2018
    #3
  4. Beverly
    Beverly Erfahrener User

    Fehler beim Kompilieren: Mehrdeutiger Name

    Hi,

    schön dass du es für dich selbst lösen konntest.
    Nichts für ungut, aber wenn es darum geht bei Zelländerung in definierten Spalten in der Nachbarzelle das Datum einzutragen, dann kannst du das einfacher lösen:

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        Select Case Target.Column
            Case 2, 5, 7, 9
                Target.Offset(0, 1) = Date
        End Select
    End Sub
    
    
    Bis später,
    Karin
     
Thema:

Fehler beim Kompilieren: Mehrdeutiger Name

Die Seite wird geladen...
  1. Fehler beim Kompilieren: Mehrdeutiger Name - Similar Threads - Fehler Kompilieren Mehrdeutiger

  2. VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

    in Microsoft Excel Hilfe
    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...
  3. 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:...
  4. Fehler beim kompilieren sub oder Function nicht definiert

    in Microsoft Excel Hilfe
    Fehler beim kompilieren sub oder Function nicht definiert: Hallo zusammen erhalte Fehlermeldung: Fehler beim Kompilieren oder Function nicht definiert. übersehe ich etwas. (bin neuling) Bin dankbar für jede Unterstützung Private Sub cmdSpeichern_Click()...
  5. Fehler beim Kompilieren: Variable nicht definiert

    in Microsoft Excel Hilfe
    Fehler beim Kompilieren: Variable nicht definiert: Ein freundliches Hallo an Alle, ich habe folgenden Code im Internet gefunden, mit dem ich eine Listbox sortieren kann. Der Code ist in die Userform eingetragen und über eine Schaltfläche soll...
  6. Fehler beim Kompilieren

    in Microsoft Access Hilfe
    Fehler beim Kompilieren: Hi, seit kurzem erhalte ich bei der nachfolgenden Anweisung den Fehlerhinweis: Fehler beim Kompilieren, Variable nicht definiert. Kann jemand erkennen woran dies liegt? Code: Private Sub...
  7. Kontrollkästchen haken wird nicht gesetzt bzw fehlermeldung "fehler beim kompilieren"

    in Microsoft Excel Hilfe
    Kontrollkästchen haken wird nicht gesetzt bzw fehlermeldung "fehler beim kompilieren": Hallo, ich würde gerne mehrere Kontrollkästchen einfügen die einfach mit einem klick bestätigt oder wieder abgewählt werden können. Einfügen kann ich das kästchen auch aber mehr passiert leider...
  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...
  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