VBA um Sortierung ergänzen
19.11.2007 10:30:51
Fabio
das unten stehende Script wird nach bestimmten Kriterien aufgerufen. Das Script würde ich gerne noch ergänzen, das folgendes passiert :
Wer kann mir das Script bitte ergänzen ? Danke!!
Fjolnir
Das Script :
Public Sub Einblenden(ByVal strWert As String)
Dim Zelle As Range
Dim intSh As Integer
For intSh = 1 To ActiveWorkbook.Worksheets.Count
For Each Zelle In Sheets(intSh).Range("A4:A152")
If Zelle.Text = strWert Then
Zelle.EntireRow.Hidden = False
End If
Next
Next
Range("D1").Select
End Sub