AW: wenn Bedingung erfüllt, Zeile ausblenden
08.08.2003 14:14:16
lotti
Hi Hansi,
ich hab dereinstens mal was aufgezeichnet und das funzte ganz gut.
Probiers mal:
Public
Sub loeschvar()
Dim Inte, inte1
Inte = InputBox("Geben Sie die Spalte ein:", " Spalteneingabe ")
inte1 = InputBox("Geben Sie die Zeichenfolge ein:", " Zeicheneingabe ")
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Do
Columns(Inte).EntireColumn.Select
On Error GoTo raus
Selection.Find(What:=inte1, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Select
'Selection.EntireRow.Delete
DAS KANNSTE DANN ÄNDERN WENN DU DIE ZEILEN LÖSCHEN WILLST!
Selection.EntireRow.Hidden = True
Loop
raus:
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
End Sub
Das Teil läuft zwar auf nen Fehler, aber es tut das was es soll und das reicht.
Ich hab' da keinen großen Anspruch dran! Das Ding ist ca. 5 Jahre alt und reicht!
Gruß
Lotti