2.2k Aufrufe
Gefragt in Tabellenkalkulation von
Wer kann mir weiterhelfen?
Ich möchte bei Excel 2003 bestimmte Zeilen in Arbeitsblatt 2 (Tabelle2) von Arbeitsblatt 1 (Tabelle1) aus Ein/Ausblenden.
Genauer gesagt: Wenn in Arbeitsblatt 1 Zelle A1=0 dann soll die Zeile 12 und 13 in Arbeitsblatt 2 (schreibgeschützt) ausgeblendet werden. Ist die Zelle A1 in Arbeitsblatt 1 größer 1, dann sollen die Zeilen 12 und 13 in Arbeitsblatt 2 eingeblendet werden.
Ich habe schon verschiedene Befehle ausprobiert. Wenn ich auf einem Arbeitsblatt (Tabelle 2) bleibe, lauft alles super.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Rows("12:13").Hidden = Range("A1").Value = 0
ActiveSheet.Protect
End Sub

Mein Problem ist einfach gesagt, dass die Zahlenwerte von einem anderen Arbeitsblatt kommen. Meine VBA Kenntnisse sind nicht sehr gut. Mit =Tabelle1!A1 habe ich auch schon herumgedoktort.
Vielleicht hat ja einer von Euch eine Idee.

Gruß Jupp

3 Antworten

0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo Jupp,

wenn du auf ein anderes Arbeitsblatt zugreifst, musst du das im Code z.B. wie folgt umsetzen:

Worksheets("Tabelle1").Rows("12:13").Hidden = Worksheets("Tabelle2").Range("A1").Value = 0


Gruß

M.O.
0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo,

upps, falsch herum :-(.

So ist es richtig:

Worksheets("Tabelle2").Rows("12:13").Hidden = Worksheets("Tabelle1").Range("A1").Value = 0


Gruß

M.O.
0 Punkte
Beantwortet von
Sauber Auge M.O.,

hat funktioniert!

Danke Jupp
...