Tabellenkalkulation

VBS Skript zur Zeilenlöschung falls Zelle Bedingung erfüllt

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo zusammen, ich bräuchte ein kleines vba skript, das ich selber nicht programmieren kann. ich hab eine excel tabelle mit 12 spalten und beliebeg vielen zeilen (Rows.Count, Spalte xy).End(x1Up).Row. wenn in spalte 10 (werkstoff) nun in einer zeile einen werkstoff ungleich st-237 stehen hab, soll diese zeile gelöscht werden (so dass ich am schluss nur noch die sachen mit stahl stehen hab). wie kann ich das machen? mfg. Marcus

Antwort 1 von Pistenschreck

Hi Marcus

Sub Zeilen_löschen()
    x = Selection.SpecialCells(xlCellTypeLastCell).Row
    For i = x To 2 Step -1
    If Cells(i, 10) <> "st-237" Then Cells(i, 10).EntireRow.Delete
    Next i
End Sub

Gruss Werner

Antwort 2 von MarcusLee

cool. danke

gibt's ein buch/tutorial, dass du empfehlen kannst, um vba zu lernen?

Antwort 3 von MarcusLee

Hallo Pistenschreck,

wenn ich jetzt noch st-235 mit aufnehmen möchte, dachte ich, ich müsse das in etwa so machen

If (Cells(i, 10) <> "st-237") Or (Cells(i, 10) <> "st-235") Then Cells(i, 10).EntireRow.Delete

funktioniert aber nicht :-(

Antwort 4 von Pistenschreck

Hi Marcus

Zum Buch kann ich dir nicht Helfen. Ich habe zuerst nur aus der Onlinehilfe gelernt, dann aus den verschiedenen Foren.

If Cells(i, 10) <> "st-237" And Cells(i, 10) <> "st-235" Then Cells(i, 10).EntireRow.Delete