Sortierbefehl über Button nur für bestimmtes Blatt
05.04.2007 10:10:24
Andreas
Hallo Excelprofis!
Ich habe, Dank dieses super Forums, nachfolgenden Code zum Ausblenden bestimmter Zeilen. Da ich diesen Code über einen Commandbutton auf einer Userform ausführe, muß ich immer darauf achten, im richtigen Blatt zu arbeiten.
Wie muß ich den Code ändern, dass sich dieser nur auf das Blatt "Auswertung" bezieht.?
Private Sub CommandButton_BesucherTag1_Click()
Dim lZeile As Long
Application.ScreenUpdating = False
'Columns("A:A").EntireColumn.Hidden = True
Rows("5:1001").EntireRow.Hidden = False
For lZeile = 5 To 1000
If Cells(lZeile, 29) = "" Then
Rows(lZeile).EntireRow.Hidden = True
End If
Next lZeile
Columns("B:AF").Select
Selection.Columns.AutoFit
Application.ScreenUpdating = True
Range("B1").Select
End Sub
Danke für die Hilfe!mfg Andreas