Supportnet / Forum / Tabellenkalkulation
zeilen über makro löschen
Frage
hallo ich habe eine tabelle mit über 20000 zeilen (artikel) nun ist es so.
Die artikel sind in verschiedene gruppen eingeteilt.
zb computer, auto usw ...
Nun will ich aber nur die zeilen in der tabelle lassen die ich brauch also zb. auto löschen wohnung löschen usw...
Wenn ich des einmal machen müsste dann wäre es kein problem über die autofilter geschichte doch nun ist es so das ich alle 2-3 tage die updates bekomme deshalb würde ich dabei untergehen.
Meine frage nun
gibt es irgendeine möglichkeit über makros oder tools anzugeben lösche die zeilen mit dem inhalt auto, haus usw.. in der spalte gruppe
wäre echt nett wenn mir da jemand helfen könnte.
kann kein vb
gruß erdal
Antwort 1 von powder
Hallo erdal,
so was kann man schon schreiben.
Ich habs zwar jetzt nicht getestet sollte aber gehen
wenn nicht melde dich einfach nochmal, und wenn doch dann melde dich bitte auch
Grüße
Tino
so was kann man schon schreiben.
sub ZeilenLöschen
Dim i As Integer
Range("A1").Select
' ich geh mal davon aus, dass die zu untersuchende
' Spalte die erste ist,
' wenn nicht dann einfach anpassen
Do Until ActiveCell.Value = ""
' ich hoffe es hat keine lehrer Zeilen zwischendurch
' als nächstes Prüfen wir die Bedingung
' je nach Wunsch einfach anpassen
If ActiveCell.Value = "Auto" Then
ActiveCell.EntireRow.Delete
i= i+1
Else
ActiveCell.Offset(1,0).Select
EndIf
Loop
MsgBox "Es wurden " &i &" Zeilen gelöscht"
End Sub
Ich habs zwar jetzt nicht getestet sollte aber gehen
wenn nicht melde dich einfach nochmal, und wenn doch dann melde dich bitte auch
Grüße
Tino

