Datum

Titel

26.04.2024 12:46:38

Nutzereingaben Speichern und Laden

26.04.2024 11:49:48

VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht

26.04.2024 11:38:46

Acrobat PDF Formularfelder mit Excel ausfüllen

26.04.2024 11:23:04

zählen wenn - aber nur die selektierten Zeilen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

740to744

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

zeilen löschen, wenn zahl 32 in spalte d

Forumthread: zeilen löschen, wenn zahl 32 in spalte d
7 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

07.03.2006 13:08:17

Stefan

hallo,
in meiner tabelle in spalte d befinden sich verschiedene zahlen von 1 bis 100. nun möchte ich über einen makro-text alle zeilen löschen, bei denen die zahl 32 in der spalte d steht.
bin für jeden tipp dankbar.
gruß,
stefan

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: zeilen löschen, wenn zahl 32 in spalte d

07.03.2006 13:12:52

Bertram
AW: zeilen löschen, wenn zahl 32 in spalte d

07.03.2006 13:14:43

UweD
AW: zeilen löschen, wenn zahl 32 in spalte d

07.03.2006 13:18:02

Beate
AW: zeilen löschen, wenn zahl 32 in spalte d

07.03.2006 13:18:09

Harald
Weia, bin ich lahm ;-)) owT

07.03.2006 13:19:59

Harald
Dafür funktioniert deins:-) oT

07.03.2006 13:23:52

Bertram
AW: Dafür funktioniert deins:-) oT

07.03.2006 13:29:22

Stefan

AW: zeilen löschen, wenn zahl 32 in spalte d

07.03.2006 13:12:52

Bertram

Hallo Stefan,
so geht's:


Sub ZeilenLöschen()
Dim Zelle As Range
For Each Zelle In Columns(4).Cells
If Zelle.Value = "32" Then Zelle.EntireRow.Delete
Next Zelle
End Sub

Gruß
Bertram

AW: zeilen löschen, wenn zahl 32 in spalte d

07.03.2006 13:14:43

UweD

Hallo
so ...


Sub ZeileWeg()
On Error GoTo Fehler
Dim SP#, LR%, TB1, Was, i%
Set TB1 = Sheets("Tabelle1")
SP = 4 ' Spalte D
Was = 32
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 & vbLf & Err.Description
End Sub

Gruß UweD
(Rückmeldung wäre schön)

AW: zeilen löschen, wenn zahl 32 in spalte d

07.03.2006 13:18:02

Beate

Hallo Stefan,
Sub in_D_32_loeschen()
    'Voraussetzung: Liste hat Überschriftszeile 1
    Range("D1").AutoFilter Field:=4, Criteria1:="=32"
    Range("2:" & [D2].CurrentRegion.Rows.Count).EntireRow.Delete Shift:=xlUp
    [D1].AutoFilter
End Sub

Gruß,
Beate

AW: zeilen löschen, wenn zahl 32 in spalte d

07.03.2006 13:18:09

Harald

Hi Stefan,
das da könnte helfen.


Sub wechdamit()
Dim i As Long, Lrow As Long
Lrow = Cells(Rows.Count, 4).End(xlUp).Row
For i = Lrow To 1 Step -1
If InStr(Cells(i, 4), 32) Then Rows(i).Delete
Next i
End Sub

Gruss Harald

Weia, bin ich lahm ;-)) owT

07.03.2006 13:19:59

Harald

Gruss Harald

Dafür funktioniert deins:-) oT

07.03.2006 13:23:52

Bertram

AW: Dafür funktioniert deins:-) oT

07.03.2006 13:29:22

Stefan

alles klar zusammen,
funktioniert super. vielen dank für die schnelle hilfe.
gruß,
stefan