Herbers Excel-Forum - das Archiv

Zeilen löschen wenn best. Kriterium erfüllt

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ CommandButton
Bild

Betrifft: Zeilen löschen wenn best. Kriterium erfüllt
von: Sebastian
Geschrieben am: 14.10.2003 14:06:54
Hallo,

ich habe eine Tabelle bei der in der ersten Spalte ein Einkauf oder Verkauf steht wenn dort Einkauf steht soll die ganze Zelle gelöscht werden.

Dieses Makro soll via Button ausgeführt werden, wie mache ich dies am besten?

LG
Sebastian

Bild

Betrifft: AW: Zeilen löschen wenn best. Kriterium erfüllt
von: ChrisL
Geschrieben am: 14.10.2003 14:21:42
Hi Sebastian

Wäre da der Autofilter nicht geeigneter?

Gruss
Chris
Bild

Betrifft: AW: Zeilen löschen wenn best. Kriterium erfüllt
von: Lutz
Geschrieben am: 14.10.2003 14:23:32
Hi Sebastian,

Button im Blatt erstellen und folgenden Code ins Tabellenblatt:



Private Sub CommandButton1_Click()
aRow = [A65536].End(xlUp).Row
For i = aRow To 1 Step -1
If Cells(i, 1).Value = "Einkauf" Then Rows(i).Delete
Next
End Sub


Gruß
Lutz
Bild

Betrifft: AW: Zeilen löschen wenn best. Kriterium erfüllt
von: Andi_H
Geschrieben am: 14.10.2003 14:24:09
Hallo Sebastian,

einen Button aus den Steuerelementen ins Sheet, EIgenschaft TakeFocusOnClick des Buttons auf False stellen und diesen Code hinterlegen.



Private Sub CommandButton1_Click()
Dim iZeile As Long
For iZeile = Cells(65000, 1).End(xlUp).Row To 1 Step -1
If Cells(iZeile, 1) = "Einkauf" Then
Rows(iZeile).Delete Shift:=xlUp
End If
Next
End Sub


Gruß

ANdi
 Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Zeilen löschen wenn best. Kriterium erfüllt"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren