Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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é

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige