Office: VBA-Excel: Alle Zeilen löschen, die nicht einen bestimmten Wert in einer Zelle haben

Hallo zusammen,

ich habe schon vielfach google bedient. Dabei bin ich zwar auf einige ähnliche Probleme gestoßen, aber keins, dass ich in meinem Fall so anwenden kann.

Ich benötige eine Prozedur, mit deren Hilfe ich auf einem speziellen Tabellenblatt ("Tabelle1") Zeilen löschen kann. Allerdings sind hier einige Dinge zu beachten.

Die Spalten sind wie folgt aufgebaut:
Nachname|Vorname|MitgliedsNr|Kalenderwoche

In der Spalte "Kalenderwoche" stehen verschiedene Aktivitäten drin.

Nun soll das Makro daher gehen und alle Zeilen löschen, bei denen in der Spalte "Kalenderwoche" NICHT der Eintrag "Golf", "Tennis" und/oder "Fußball" enthalten ist. Manchmal steht auch in einer Zelle "Golf, 16. Pause" oder "Fußball, 24. Frei". Diese Zeile soll dann auch nicht gelöscht werden.
Alle anderen Zeilen müßen restlos entfernt werden.

Oder ist es einfacher, alle Zeilen mit den nicht zu löschenden Einträgen einfach in ein neues Tabellenblatt zu kopieren?

Wichtig ist mir nur, dass ich am Ende aus dem riesen Tabelenblatt nur noch die paar Zeilen mit den Einträgen "Golf", "Tennis" und/oder "Fußball" habe.

Viele Grüße
Konstantin

:)

 

Hallo Konstantin,

sieh Dir die beigefügte Mappe an, vielleicht hilft Dir die weiter.

Gruß Peter

 

Hallo Peter,

ich bin hellauf begeistert von Deiner Lösung. Das Funktioniert astrein.
Vielen, vielen herzlichen Dank dafür *Smilie

Viele Grüße
Konstantin

 

Hallo Konstantin,

auch wenn du von Peter schon eine funktionierende Lösung erhalten hast, möchte ich mein Versuch doch gerne nachreichen … bin halt nicht so schnell und noch in der (VBA) Erprobungsphase. *Smilie
Code:

 

Moin, Konstantin,

Autofilter nutzen und angezeigte DS löschen funktionert auch ohne Makro... *wink.gif*

 

hallo,

bin auf der suche nach einer vba lösung. hab folgendes zum löschen von bestimmten zeilen:
Sub Schaltfläche2_BeiKlick()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1
If Cells(i, 11) = "F" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Wie kann ich jedoch mit einer weiteren Schaltfläche den Befehl wieder zurücksetzen, bzw. die gelöschten zeilen wieder herstellen, ist das überhaupt möglich?

Vielen Dank für eure Hilfe

vg
stefan
ein vba neuling

 

Hallo,

meines Wissen kann man es nicht Rückgängig machen. Aber versuche es doch mit Ausblenden und Einblenden.

Gruß

 

PHP:

         Sub Schaltfläche2_BeiKlick()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1
If Cells(i, 11) = "F" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub


 

Hallo, *Smilie

Nutze, wie hier ja auch schon vorgeschlagen, Excelinterne Funktionen (Autofilter) ggfl. per Makro:

Code:

Servus
Case

 

Hallo Curryking79,

die Zeile Code:

sagt folgendes:
For i = Speichere in der Variablen i nacheinander alle Zahlen,
Cells(Rows.Count, 11).End(xlUp).Row beginnend von der in Spalte 11 letzten Zeile die gefüllt ist
To bis
1 zur ersten Spalte
Step - 1 und zähle dabei rückwärts!

Also brauchst du nur die 1 durch 9 (8+1) zu ersetzen.

Viele Grüße
rastrans