Fehler beim Kompilieren

Hallo zusammen!

ich bin absoluter Neuling in diesem Fachbereich. Habe folgende Codes erstellt, allerdings kommt die Fehlermeldung 'Fehler beim kompilieren, Mehrdeutiger Name: Worksheet_Change'.
Kann ich etwas umbenennen im Code, damit das nicht mehr der Fall ist?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 2 Then 'erst ab Zeile 2  
    If Not Intersect(Target, Columns("C")) Is Nothing Then 'Spalte C überwachen  
        Target.Offset(0, -1).Value = Date 'Offset = Abstand in Zeilen und Spalten zur veränderten Zelle  
    End If
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 2 Then 'erst ab Zeile 2  
    If Not Intersect(Target, Columns("K")) Is Nothing Then 'Spalte K überwachen  
        Target.Offset(0, 1).Value = Date     'Offset = Abstand in Zeilen und Spalten zur veränderten Zelle  
    End If
End If
End Sub

Viele Grüsse und besten Dank

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 343767

Url: https://administrator.de/forum/fehler-beim-kompilieren-343767.html

Ausgedruckt am: 21.04.2025 um 11:04 Uhr

5 Kommentare

Neuester Kommentar

Hallo,

Zitat von @Nid1979:
Mehrdeutiger Name: Worksheet_Change'.

Joah. Das geht auch so nicht. Warum machst du Zweimal

Private Sub Worksheet:Change(ByVal Target As Range)

und der Einzige Untershied ist "C" oder "K"? Wenn du zwei Werte überwachen willst, wirst du das in einer Sub dann tun müssen - sofern die Subs wie bei dir den gleichen Namen haben. Du darfst IFs auch verschachteln....

Gruß,
Peter

Moin,

Mehrdeutiger Name:

Zeile 1 und 18: das Sub hat jeweils den gleichen Namen. Was soll denn ausgeführt werden, wenn das Change Ereigniss eintritt? Das Sub in Zeile 1 oder das in Zeile 18?

lg,
Slainte

In der Spalte B soll das Datum erscheinen wenn in der Spalte C ein Wert eingegeben wird, dasselbe mit dem Spalten K und L.
Wie erstelle ich diese Sub?

Servus,

Zitat von @Nid1979:
Wie erstelle ich diese Sub?

Am besten schaust du dir hier mal ein paar Tutorials an...

Hallo,

Zitat von @Nid1979:
In der Spalte B soll das Datum erscheinen wenn in der Spalte C ein Wert eingegeben wird, dasselbe mit dem Spalten K und L.

Entweder zwei IF....End IF (jeweils für C und K) untereinander schreiben, oder in einer IF beide Schritte abarbeiten oder oder oder.

Wie erstelle ich diese Sub?

Warum SUB? Diese Sub stammt doch aus dein Excel und wird immer angelaufen wenn dein WorkSheet sich ändert. Ansonsten werden Sub ein erzeugt indem du "Sub MeineersteSub ()" schreibst. Das End Sub fügt dein VBA Editor schon ein.

Mach einfach ein

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 2 Then 'erst ab Zeile 2  
    If Not Intersect(Target, Columns("C")) Is Nothing Then 'Spalte C überwachen  
        Target.Offset(0, -1).Value = Date 'Offset = Abstand in Zeilen und Spalten zur veränderten Zelle  
    ELSE IF Not Intersect(Target, Columns("K")) Is Nothing Then 'Spalte K überwachen  
        Target.Offset(0, 1).Value = Date 'Offset = Abstand in Zeilen und Spalten zur veränderten Zelle  
    End If
End If
End Sub