Zeilen mit bestimmtem Datum ausblenden
21.09.2003 11:17:18
Claus
ich muss schon wieder stören...Ich möchte in einer Tabelle per VBA all die Zeilen in Spalte C ausblenden, deren Wert kleiner ist, als der Wert in einer TextBox. Dazu habe ich auf einer UserForm eine TextBox erstellt, in die ich ein Datum eintrage (z.B. 01.10.2003). Alle Daten, die kleiner als der 01.10.2003 sind, sollen auf dem Tabellenblatt ausgeblendet werden.
Hier mein Code, der etwas Kosmetik braucht:
Private Sub CommandButton1_Click()
'Auswertebereich für das Diagramm
x = 2
Do Until Application.WorksheetFunction.CountBlank(Rows(x)) = 256
x = x + 1
Loop
If Sheets("Tool").Cells(x, 3) < MinDateTextBox Then
Rows(x).Hidden = True
End If
End Sub
Code eingefügt mit Syntaxhighlighter 2.4
Danke, Claus