Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon MarcusLee vom 06.07.2019, 10:17 Options
VBS Skript zur Zeilenlöschung falls Zelle Bedingung erfüllt
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
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 vom 06.07.2019, 10:26 Options
Hi Marcus
Gruss Werner
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 SubGruss Werner
Antwort 2 von MarcusLee vom 06.07.2019, 16:23 Options
cool. danke
gibt's ein buch/tutorial, dass du empfehlen kannst, um vba zu lernen?
gibt's ein buch/tutorial, dass du empfehlen kannst, um vba zu lernen?
Antwort 3 von MarcusLee vom 06.07.2019, 23:13 Options
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 :-(
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 vom 09.07.2019, 07:38 Options
Hi Marcus
Zum Buch kann ich dir nicht Helfen. Ich habe zuerst nur aus der Onlinehilfe gelernt, dann aus den verschiedenen Foren.
Gruss Werner
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.DeleteGruss Werner
Ähnliche Themen
Suche Formel die 2 Schritte/Bedingungen erfüllt (Excel 2003)!
Flo07 12.03.2007 - 115 Hits - 2 Antworten
Zelle automatisch befüllen
OliverNEU 07.07.2007 - 26 Hits - 1 Antwort
Excel vbs: Zellfarbe automatisch ändern bei Uhrzeit
Dosas1848 10.12.2007 - 208 Hits - 4 Antworten
Nach Eingabe in Zelle prüfen, ob Bedingungen erfüllt werden
Tim85 18.02.2008 - 20 Hits - 2 Antworten
Summewenn mit Zellverweis in Bedingung
Martin_ 24.04.2008 - 182 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
