Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Benötige Makro, welches bestimmte Zilen löscht!

Benötige Makro, welches bestimmte Zilen löscht!
14.07.2004 13:05:14
Ulli
Hallo zusammen
ich benötige ein Makro, welches mir die komplette Zeile löscht, wenn in Spalte B eine 0 steht
ist das möglich?
Vielen Dank
Ulli

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Benötige Makro, welches bestimmte Zilen löscht!
14.07.2004 13:29:57
Markus
Müsste funktionieren
For x = 1 To 100
wert = Cells(x, 2)
If wert = "0" Then bereich = Cells(x, 1).Address Then
Range(bereich).Select
Selection.EntireRow.Delete
bereich_startno1 = ""
End If
Next
Markus
AW: Benötige Makro, welches bestimmte Zilen löscht!
14.07.2004 13:38:07
Ulli
muss da nicht noch irgend wo
"sub" und "end sub" hin?
Diese zeile wird rot markiert!
If wert = "0" Then bereich = Cells(x, 1).Address Then
AW: Benötige Makro, welches bestimmte Zilen löscht!
14.07.2004 13:52:18
Markus
Ja zum start musste ihm noch sagen wie das makro heisen soll
und die verwendeten variablen deklariren (siehe ******)

Sub zeilen_löschen()
dim x as integer
dim wert as string
dim bereich
For x = 1 To 100
wert = Cells(x, 2)
If wert = "0" Then bereich = Cells(x, 1).Address Then
Range(bereich).Select
Selection.EntireRow.Delete
bereich = ""
End If
Next
End Sub

Gruß
Markus
Anzeige
AW: Benötige Makro, welches bestimmte Zilen löscht!
14.07.2004 14:14:26
Ulli
danke, hat funktioniert!! *freu*
AW: Benötige Makro, welches bestimmte Zilen löscht!
Martin
Hallo Ulli, Hallo Markus,
in dem Code ist das doppelte then das Problem. Korrekt wäre

Sub zeilen_löschen()
Dim x As Integer
Dim wert As String
Dim bereich
For x = 1 To 100
wert = Cells(x, 2)
If wert = "0" Then
bereich = Cells(x, 1).Address 'Then
Range(bereich).Select
Selection.EntireRow.Delete
bereich = ""
End If
Next
End Sub

Allerdings werden dann, wenn mehrere Nullen untereinander stehen, nicht alle "Nullzeilen" gelöscht.
So geht's:

Sub Zeilen_mit_0_löschen()
Application.ScreenUpdating = False
z = Range("B65536").End(xlUp).Row
For i = z To 1 Step -1
If Cells(i, 2) = 0 Then
Rows(i).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Martin Beck
Anzeige
AW: Benötige Makro, welches bestimmte Zilen löscht!
14.07.2004 15:16:31
Markus
Danke Martin
net von dir mich darauf hinzuweisen
ist echt kürzer und löst das Problem wirlich
bin halt noch anfänger :o)
Gruß Markus

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige