Private Sub Worksheet_Change(ByVal Target As Range)
Tabelle2.Rows(1).Hidden = Len([a1]) = 0
End Sub
mfg Kurt
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer
If Target.Column = 1 Then
If Target.Value "" Then
r = Target.Row
With Sheets("Tabelle2")
.Range("A" & r).EntireRow.Hidden = False
End With
End If
End If
End Sub
den 1.Code in Tabelle1.
Private Sub Worksheet_Activate()
Dim z As Long
Application.ScreenUpdating = False
For z = 1 To 100 Step 1 ' Hier den entsprechenden Bereich eingeben, der versteckt werden soll ( _
hier 1 -100)
If Sheets(2).Cells(z, 1).Value = "" Then
Sheets(3).Cells(z, 1).EntireRow.Hidden = True
End If
Next z
Application.ScreenUpdating = True
End Sub
den 2.Code in Tabelle 2
Gruß
Chaos
Private Sub Worksheet_Activate()
Dim z As Long
Application.ScreenUpdating = False
For z = 1 To 100 Step 1 ' Hier den entsprechenden Bereich eingeben, der versteckt werden soll ( _
_
hier 1 -100)
If Sheets("Tabelle1").Cells(z, 1).Value = "" Then
Sheets("Tabelle2").Cells(z, 1).EntireRow.Hidden = True
End If
Next z
Application.ScreenUpdating = True
End Sub
Gruß
Chaos
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen