Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nächste Zelle automatisch einblenden wenn

Forumthread: Nächste Zelle automatisch einblenden wenn

Nächste Zelle automatisch einblenden wenn
30.03.2007 13:46:00
René
Hi Gemeinde,
ich hab diverse Beitrage abgefragt aber finde keine Loesung fuer mein Problem.
Also: Die erste Zeile, wo der Benutzer Daten eintragen kann, is Zeile 3 (ZEile 1 und 2 werden fuer Kopfdaten/Ueberschriften benoetigt). Diese Zeile 3 ist sichtbar. Wenn der der Benutzer in bereich B3 einen EIntrag macht, soll automatisch die naechste ZEile (Zeile 4) sichtbar werden. Wenn er Zeile 4 in B4 einen Eintrag macht, soll Zeile 5 sichtbar werden.... und so weiter und so weiter
Im Netz habe ich ein Makro (original uebernommen) gefunden, welches auch soweit funktioniert:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1")  "" Then Rows("2:2").Hidden = False
If Range("A1") = "" Then Rows("2:2").Hidden = True
End Sub

Problem: Bei diesem Makro wird man auf eine Zelle beschraenkt.
Ich hab echt keinen Durchblick wie man dieses Makro so umbaut, dass es wie oben beschrieben seinen Dienst tut.
MfG
René
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nächste Zelle automatisch einblenden wenn
30.03.2007 14:02:00
Ramses
Hallo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 and Target  "" Then Rows(Target.Row +1 & ":" & Target.Row +1).Hidden =  _
False
End Sub
Gruss Rainer
AW: Nächste Zelle automatisch einblenden wenn
30.03.2007 14:31:00
René
Hallo Rainer,
genau das was ich gesucht habe. Vielen Dank!
René
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige