Wertänderung Zelle - Ereignis andere Tabelle

Hallo zusammen,
erstmal großes Kompliment an das Forum und die Seite insgesamt, ich liebe sie! Beste Quelle für Excel und VBA im gesamten Netz!!!
Ich stehe bei dem folgenden Problem total auf dem Schlauch und habe auch schon das Forum durchsucht, nur leider helfen mir die Ergebnisse nicht wirklich weiter, weil das Problem vor dem Monitor sitzt, sprich, meine Kenntnisse reichen nicht aus um die anderen Lösungen umzusetzen.
Ich möchte gerne folgendes programmieren:
In einer Exceltabelle habe ich ein Tabellenblatt "Daten" in dem ich die Grunddaten des Kunden eingebe. Hier habe ich bereits ein Dropdown-Menü zur Vorsteuer mit den Möglichkeiten "Ja" "Nein" und leer eingefügt.
Nunmehr möchte ich auf einem weiteren Tabellenblatt "Rechnung" die Rechnung erstellen. Je nachdem, ob der Kunde zum Abzug der Vorsteuer berechtigt ist oder nicht, soll die Zeile 22 ausgeblendet werden, in der die Vorsteuer berechnet wird.
Ich habe die folgenden Zeilen geschrieben:

Private Sub Worksheet_SheetChange(ByVal Target As Range)
If Worksheets("Daten").Range("C31").Value = "Ja" Then
Worksheets("Rechnung").Rows("23:23").EntireRow.Hidden = True
Else: .Rows("23:23").EntireRow.Hidden = False
End If
End Sub

Der Code befindet sich im Worksheet "Rechnung". Und es funktioniert nicht. Quizfrage, wieso? Egal, ob ich den Code in "Daten" oder "Rechnung" schreibe, Excel blendet mir die Zeile 23 weder aus noch ein.
Oder muss der Code in Workbook?
Muss ich Variablen definieren? Wenn ja, warum, denn ich dachte, dass ich durch meine Direktverweise sozusagen alles Notwendige getan habe, damit der Code laufen kann.
Besten Dank im Voraus für die Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

es reicht
ich würde den Code nur ausführen falls C31 geändert wurde.
Worksheets("Rechnung").Rows("23:23").EntireRow.Hidden=Worksheets("Daten").Range("C31").Value
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

Private Sub Worksheet_SheetChange(ByVal Target As Range) If Target.Address(0, 0) = "C31" Then Worksheets("Rechnung").Rows(23).EntireRow.Hidden = Target.Value = "Ja" End If End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "C31" Then Worksheets("Rechnung").Rows(23).EntireRow.Hidden = Target.Value = "Ja" End If End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "C31" Then If Target.Value = "Ja" Then Worksheets("Rechnung").Rows("23:23").EntireRow.Hidden = True Else Worksheets("Rechnung").Rows("23:23").EntireRow.Hidden = False End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Wertänderung Zelle - Ereignis andere Tabelle

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread