ganze Zellen löschen mit VBA

14/08/2008 - 22:40 von Mike Berger | Report spam
Hallo zusammen,

ich habe ein kleines Problem.

Ich habe auf "Tabelle3" x Zeilen, die lese ich vorher aus einer Datei ein.

Nun kann es aber in der Spalte B vorkommen, dass ich nach /LOESCHEN/
suchen muss.

Das habe ich mit VBA auch gut hinbekommen und kann es auch ersetzen oder
den Spaltenbereich löschen (mit finde */LOESCHEN/* und ersetze "").

Aber wie kann ich nun diese komplette Zeile löschen?

Danke

Mike
 

Lesen sie die antworten

#1 Dimo Tabken
15/08/2008 - 08:02 | Warnen spam
Moinmoin Mike,

Das habe ich mit VBA auch gut hinbekommen und kann es auch ersetzen oder
den Spaltenbereich löschen (mit finde */LOESCHEN/* und ersetze "").

Aber wie kann ich nun diese komplette Zeile löschen?



so könnte das gehen:

Sub ZeilenLoeschen()
Dim rngSuche As Range
Dim varZelle As Variant
Dim lngLetzteZeile As Long

lngLetzteZeile = ActiveSheet.Cells(Application.Rows.Count, 2).End(xlUp).Row
Set rngSuche = ActiveSheet.Range("B1:B" & lngLetzteZeile)

For Each varZelle In rngSuche
If varZelle.Value = "/LOESCHEN/" Then
varZelle.EntireRow.Delete
End If
Next


End Sub
Gruß, Dimo
"Wenn der Deutsche ein Licht am Ende des Tunnels erkennen kann,
dann denkt er darüber nach, ob und wie er den Tunnel verlàngern kann!"

Ähnliche fragen