Worksheet_Change funktioniert nicht

[stchwint]

Hallo Zusammen,

Mein Worksheet_Change Sub funktioniert nicht.

Der Code steht in dem Tabellenblatt wo N18 auch die Targetrange ist.

aber es passiert einfach nichts und ich kann mir nicht erklären warum
.
In einer neuen Excel-Datei funktionierts, aber in der hier nicht.

ich kann aus Datenschutzgründen auch keine Beispieldatei hochladen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range
If Not Intersect(Target, Range("N18")) Is Nothing Then
     Worksheets(kg_TabelleProjektDaten).Range("A18") = "aa"
End If
End Sub

[LuckyJoe]

Hi,

verwende in deinen VBA-Codes IMMER:

Code:

Option Explicit

... denn dann würdest du merken, dass es heißen muß

Code:

Worksheets("kg_TabelleProjektDaten").Range("A18") = "aa"

- also dein Tabellenname in Anführunghszeichen ("...")

[schauan]

Hallöchen,

falls "in der hier nicht" auf einen Anhang hinweisen soll, der fehlt leider. Bea. bitte auch den Button auf der rechten Seite ...

[stchwint]

Habe nun ein ähnliches Problem,

Die Zelle V9 ist ein Dropdown mit Datenüberpüfung erstellt.

Der Code springt erst an, wenn ich etwas anders im Dropdown auswähle, auf eine andere Zelle klicke und dann wieder auf den Dropdown bzw. Zelle V9 klicke.

Was soll denn das? :D

Code:

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    WorksheetChange ActiveSheet, Target
    
If Not Intersect(Target, Range("V9")) Is Nothing Then
      


    Call Zeilen_ausblenden_Stationsblatt

    End If

End Sub

[MisterBurns]

Ist doch logisch, wenn du das SelectionChange-Event verwendest, oder?

Was soll denn das? :D

Wieso gibst du denn keine Rückmeldung auf die Antworten, die du bekommen hast? Was soll denn das?

[stchwint]

Hallo MisterBurns,

das Selection weg und schon klappt es stimmt.


@LuckyJoe

 Es klappt jetzt aber ich weiß nicht warum. Das ist ein in VBA definierter Name d.h. die Anführungszeichen sind nicht notwendig.

aber danke für die Antwort.