Supportnet Computer
Planet of Tech

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.


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