AW: InputBox-Übergabe-Zeilen ausblenden
22.07.2007 18:18:30
Chaos
Servus Burghard,
so in etwa ?
Sub Stuttgart()
Dim n As String
Dim z As Integer
n = InputBox("Mannschaft?")
Application.ScreenUpdating = False
For z = 2 To 307 Step 1
If Cells(z, 2).Value n And Cells(z, 3).Value n Then
Cells(z, 2).EntireRow.Hidden = True
End If
Next z
Application.ScreenUpdating = True
End Sub
Sub einblenden()
Dim z As Integer
Application.ScreenUpdating = False
For z = 2 To 307
If Cells(z, 2).EntireRow.Hidden = True Then
Cells(z, 2).EntireRow.Hidden = False
End If
Next z
Application.ScreenUpdating = True
End Sub
Gruß
Chaos