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