Clever-Excel-Forum

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

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 ("...")

Hallöchen,

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

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

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

Zitat:Was soll denn das? :D

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

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.

stchwint

LuckyJoe

schauan

stchwint

MisterBurns

stchwint