Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1332to1336
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
Inhaltsverzeichnis

end(xlup) bis xlLastCell löschen Schleife??

end(xlup) bis xlLastCell löschen Schleife?
15.10.2013 11:46:27
ms_michael_2002
Hallo!
Warum löscht er die rows nicht?
In spalte "B" ist der Schlüssel bis dahin soll er die letzte befüllte Zelle suchen.
Der Rest soll gelöscht werden!
Wollte die werte in ROWS("lastrow:lastrow1") übergeben und löschen.
  • Sub RowCountLoeschen()
    Dim lastrow As Integer
    Dim lastrow1 As Integer
    lastrow = Range("b" & Rows.Count).End(xlUp).Row
    lastrow1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    ' letzteZelle = Range("B1").End(xlUp).Select
    ' lastrow1 = ActiveCell.SpecialCells(xlLastCell).Select
    Rows("lastrow:lastrow1").Delete
    End Sub
    


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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: end(xlup) bis xlLastCell löschen Schleife?
    15.10.2013 11:53:39
    mumpel
    Hallo!
    Rows(lastrow & ":" & lastrow1).Delete
    Gruß, René

    AW: end(xlup) bis xlLastCell löschen Schleife?
    15.10.2013 12:23:47
    ms_michael_2002
    Danke Renè!
    Die Klammern hätte ich dort nie hingepackt!
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige