Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile im range XlUp wenn Zelle in col. B leer ist

Betrifft: Zeile im range XlUp wenn Zelle in col. B leer ist von: Robert Aalderink
Geschrieben am: 30.08.2004 15:12:14

Hallo,

Ich habe im Moment diesen Code, möchte aber nicht dass es ganze Zeilen löscht.

Dim i As Double

For i = 260 To 2 Step -1
If Cells(i, 2).Value = "" Then _
Cells(i, 2).EntireRow.Delete
Next i


Ich hätte gerne dass wenn Cells(i, 2).Value = "" dann shift XLup so eine Zeile
im Range von Column A bis AN


Ist so etwas möglich?


Freundlichen Grüssen


Robert

  


Betrifft: AW: Zeile im range XlUp wenn Zelle in col. B leer ist von: Bert
Geschrieben am: 30.08.2004 15:28:43

Option Explicit
Sub weg()
Dim i As Long
For i = 260 To 2 Step -1
  If Cells(i, 2).Value = "" Then _
  Range(Cells(i, 2), Cells(i, 40)).Delete shift:=xlUp
Next
End Sub


Bert


  


Betrifft: AW: Zeile im range XlUp wenn Zelle in col. B leer ist von: Robert Aalderink
Geschrieben am: 30.08.2004 16:10:54

Danke Bert,

Dein Code macht genau was ich mir gewünscht habe.

Grüsse

RObert