Zeilen mittels VBA löschen

[Dirk]

Hallo mal wieder,
ich habe eine Tabelle (Name: Sortieren) in der ich gerne alle Zeilen
löschen möchte, die in Spalte B keinen Inhalt haben. Wie kann ich das
mittels VBA bewerkstelligen?

Vielen Dank
Dirk

So sieht die Tabelle aus:
A B C D E F
121704/6 121704 04.07.2001 12227 49 0,0
121704/8 121704 01.08.2001 12292 65 0,0
121704/9 121704 10.09.2001 12433 141 0,0
121704 28.09.2001 12744 311 0,0
121704/10 121704 24.10.2001 13291 547 0,0
121705/0 121705 24.12.2000 8789 0 0,0
121705/1 121705 23.01.2001 9789 1000 741,9
121705/2 121705 26.02.2001 10066 277 71,2
121705/3 121705 26.04.2001 10345 279 0,0
121705/5 121705 28.05.2001 10472 127 0,0
121705/6 121705 04.07.2001 10616 144 0,0
121705/8 121705 01.08.2001 10701 85 0,0
121705/9 121705 10.09.2001 11010 309 0,0
121705 28.09.2001 11203 193 0,0
00.01.1900 0 0,0
00.01.1900 0 0,0
00.01.1900 0 0,0
00.01.1900 0 0,0
00.01.1900 0 0,0
00.01.1900 0 0,0
00.01.1900 0 0,0
00.01.1900 0 0,0
00.01.1900 0 0,0
26.12.2000 0 #BEZUG!
26.01.2001 0 0,0
02.03.2001 0 0,0
10.09.2001 0 0,0
27.09.2001 0 0,0
23.10.2001 0 0,0
#WERT! 0 0,0
#WERT! 0 0,0
#WERT! 0 0,0

[Peter H. Erdmann]

Hallo,

lege einen Autofilter auf die Tabelle. Filtere Spalte B
nach Leere. Markiere den Bereich in Spalte.
Menüverzweigung Bearbeiten - Gehezu Option Inhalte, dort
auswählen "nur sichtbare Zellen" Bearbeiten - Löschen -
Ganze Zeilen.

Gruß aus dem Land der Bayern
Peter
>-----Originalnachricht-----

>.
>

[Rainer Gill]

Hi Dirk,
und dann...
lass den Makrorekorder laufen, wenn du die Schritte, die Peter genannt hat,
durchführts. Fertig ist das VBA Programm.
Grüße
Rainer

"Peter H. Erdmann" <p.er...@onlinehome.de> schrieb im Newsbeitrag
news:1261901c21d23$48a61520$b1e62ecf@tkmsftngxa04...

[Franz Gerber]

Hallo Dirk,

ich habe hier einen Code mit dem ich die Zeilen löschen
lasse, bei denen die in Spalte B kein Inhalt steht.
Vielleicht kannst Du ihn brauchen.

Public Sub Zeilen_löschen_wenn_B_leer_ist()
Dim I As Integer

I = Application.InputBox("Bitte geben Sie die Zeilennummer ein, ab
der" & Chr(10) _
& "die leeren Zeilen gelöscht werden sollen.", "Abfrage", 13,
Type:=1)

Application.ScreenUpdating = False
If I < 1 Then Exit Sub
For I = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
To CInt(I) Step -1

If Cells(I, 2) = "" Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
Range("A1").Select
End Sub

--
Mit freundlichen Grüßen

Franz

"Dirk" <schi...@nexgo.de> schrieb im Newsbeitrag
news:402312c8.02062...@posting.google.com...