#Ruckwärts

Forumthread: #Ruckwärts
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: #Ruckwärts

#Ruckwärts

09.04.2018 13:49:10

Marco

Hallo zusammen,
folgender CODE zeigt nach Eintrag in eine bestimmte Zelle und betätigen der Entertaste eine versteckte weitere Zeile darunter an.

Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Column = 2 Then
Me.Rows(Target.Row + 1).EntireRow.Hidden = False
Target.Offset(1, 0).Select
End If
End Sub

Nun möchte ich noch, wenn die Zelle wieder leer ist, also nicht benötigt wird das ganze dann Rücklwärts funktioniert.
Hoffe ihr könnt mir helfen!
Danke im vorraus
Gruß Marco

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: #Ruckwärts

09.04.2018 14:00:22

EtoPHG
AW: #Ruckwärts

09.04.2018 15:06:40

Marco

AW: #Ruckwärts

09.04.2018 14:00:22

EtoPHG

Hallo Marco,
so?

Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Column = 2 Then
Target.Offset(1).EntireRow.Hidden = IsEmpty(Target)
If Not IsEmpty(Target) Then Target.Offset(1).Select
End If
End Sub

Gruess Hansueli

AW: #Ruckwärts

09.04.2018 15:06:40

Marco

Super !!!!
Klappt Danke schön

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!