Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Worksheet_Change funktioniert nicht
#1
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
Antwortento top
#2
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 ("...")
Herzliche Grüße aus dem Rheinland
Jörg

[Windows 10, Microsoft 365]
[-] Folgende(r) 1 Benutzer sagt Danke an LuckyJoe für diesen Beitrag:
  • stchwint
Antwortento top
#3
Hallöchen,

falls "in der hier nicht" auf einen Anhang hinweisen soll, der fehlt leider. Bea. bitte auch den Button auf der rechten Seite ...
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
[-] Folgende(r) 1 Benutzer sagt Danke an schauan für diesen Beitrag:
  • stchwint
Antwortento top
#4
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
Antwortento top
#5
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?
Schöne Grüße
Berni
[-] Folgende(r) 1 Benutzer sagt Danke an MisterBurns für diesen Beitrag:
  • stchwint
Antwortento top
#6
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.
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste