Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
ab letzte Zelle abwärts löschen!
10.04.2008 13:36:00
lisa

Hallo Leute
Ich möchte gern, ab der letzten beschriebenen Zelle in Spalte B, alle nachfolgenden Zeilen gelöscht haben.
Ich habe aber in Spalte B kein Endpunkt.
Weil ich keinen Endpunkt in Spalte B habe funktioniert dieser Code nicht.

Private Sub CommandButton1_Click()
Dim a As Integer
For b = Range("b65536").End(xlUp).Row To 2 Step -1
If Cells(b, 1) = "" Then Rows(b).Delete
'If Cells(b, 1).SpecialCells(xlCellTypeBlanks) Then Rows(b).Delete
Next a
End Sub


kann mir hier jemand helfen?
Lieben Gruß Lisa

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ab letzte Zelle abwärts löschen!
10.04.2008 13:40:52
Rudi
Hallo,

Sub tt()
Range(Cells(Rows.Count, 2).End(xlUp).Offset(1, 0), Cells(Rows.Count, 2)).EntireRow.Delete
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: funktioniert prima!! DANKE lisa oT
10.04.2008 13:47:00
lisa
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige