Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen löschen wenn in 1.Zelle der Wert x steht

Zeilen löschen wenn in 1.Zelle der Wert x steht
07.03.2006 08:00:12
Kona
Hallo,
hab folgendes Problem und bin als VBA-Laie nicht weitergekommne:-)
Will nach in einer Tabelle alle Zeilen,bis auf die erste Zeile löschen, in denen in der ersten Zelle dieser Zeile der das Wort "Werk" steht...
Kann mir jemand helfen?
Danke und Gruß
Kona
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen wenn in 1.Zelle der Wert x steht
07.03.2006 08:16:37
UweD
Hallo
so...
Code in ein Modul kopieren

Sub ZeileWeg()
On Error GoTo Fehler
Dim SP#, LR%, TB1, Was$, i%
Set TB1 = Sheets("Tabelle1")
SP = 1 ' Spalte A
Was = "Werk"
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To 2 Step -1
If Cells(i, SP).Value <> Was Then
Rows(i).Delete
End If
Next
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Zeilen löschen wenn in 1.Zelle der Wert x steht
07.03.2006 08:33:26
Kona
Danke für die schnelle Antwort!
Also jetzt ist genau das umgekehrte passiert. Das Makro hat alle Zellen die nicht "werk" enthalten haben gelöscht und die die Werk hatten behalten?!?
Gruß Jan
AW: Zeilen löschen wenn in 1.Zelle der Wert x steht
07.03.2006 08:37:45
Kona
Habs glaub ich selbst rausgefunden...
statt :If Cells(i, SP).Value Was Then....
muss da wohl: If Cells(i, SP).Value = Was Then...
stehen, oder?
Anzeige
AW: Zeilen löschen wenn in 1.Zelle der Wert x steht
07.03.2006 08:59:19
UweD
Hallo
ja so ist es richtig. Hatte ich falsch gelesen..
Gruß UweD
(Rückmeldung wäre schön)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige