Office: (Office 2010) VBA Befehl um bis zur nächsten leeren zeile zu springen und dann alles löschen

Peter92an · 2. September 2014

Hallo,

ich denke, das ist simpel, aber ich komme einfach nicht drauf *frown.gif*

http://www.ms-office-forum.net/forum...1&d=1409850166

Ich möchte einfach nur per VBA in Spalte A bis zur nächsten leeren Zelle springen - und zwar unabhängig davon, wieviel Inhalt in Spalte B, C, D, etc. steht - und dann alles darunter und daneben auswählen und die zellen löschen.

Mein bisheriger Code:

Code:

Sub springen()

Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("A1").Select

End sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

funzt aber irgendwie nur manchmal bis garnicht *frown.gif*

Hat einer ne Idee, wie mein "springen"-Sub lauten muss?

Danke! Gruß
Peter

:)

Mc Santa · 4. September 2014

Hallo,

so sollte es gehen:
Code:

Sub loeschen()
With ActiveSheet
.Range(.Cells(1, 1).End(xlDown).Offset(1), .Cells(.Rows.Count, 1)).EntireRow.Delete
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG

Beverly · 4. September 2014

Hi,

eine Möglichkeit:

Code:

Sub LoeschenUnterhalb()
Dim lngLetzteTab As Long
Dim lngLetzteA As Long
lngLetzteTab = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lngLetzteA = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range(Cells(lngLetzteA + 1, 1), Cells(lngLetzteTab, 1)).EntireRow.Delete
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Peter92an · 4. September 2014

Danke leute ! Funktioniert klasse :P

Office: (Office 2010) VBA Befehl um bis zur nächsten leeren zeile zu springen und dann alles löschen

VBA Befehl um bis zur nächsten leeren zeile zu springen und dann alles löschen

VBA Befehl um bis zur nächsten leeren zeile zu springen und dann alles löschen

VBA Befehl um bis zur nächsten leeren zeile zu springen und dann alles löschen

VBA Befehl um bis zur nächsten leeren zeile zu springen und dann alles löschen - Similar Threads - VBA Befehl nächsten

Aufrufen eines Menü-Befehls per VBA

Text in VBA Befehl umwandeln

CMD Befehl per VBA ausführen

VBA Befehl für Mitelwert und Standardabweichung

VBA: Korrekte Syntax für Copy Befehl

VBA - shell-Befehl senden

Befehl zum Öffnen von Dateien mit Pfandangabe in VBA???