Thema: letzte volle zeile suchen und löschen | Herbers Excel-Forum

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den anderen Spalte befindet gelöscht werden.
z.B letzte volle Zeile ist G11. Dann soll in der Range(A11:H16) alles gelöscht werden, oder
letzte volle Zeile ist G13. Dann soll in der Range(A13:H16) alles gelöscht werden
Die letzte volle Zeile ändert sich immer.
Vielen Dank für Tips.
Dani
Dim letztevolleZeile As Long
letztevolleZeile = Sheets(1).Cells(Rows.Count, 7).End(xlUp).Row
Cells(1, letztevolleZeile).ClearContents

Hallo,
so:
Range(Cells(Cells(Rows.Count, 7).End(xlUp).Row, 1), Cells(Rows.Count, Columns.Count)).Value2 = Empty
Gruß
Nepumuk

Hallo Nepumuk,
damit löscht mir das Makro alles bis Zeile 60000?. Ich möchte, das nur bis Zeile 16 gesucht und gelöscht wird.
Vielen Dank.
dani

Hallo,
wo ist das Problem?
Range(Cells(Cells(Rows.Count, 7).End(xlUp).Row, 1), Cells(16, Columns.Count)).Value2 = Empty
Gruß
Nepumuk

der soll innerhalb der range(A8_H16) die letzte volle zeile suche und wenn z.B. letzte volle zeile in G13 dann alles von range(!13:H16) löschen. das Problem ist, das ich in H21 auch eine andere Tabelle habe, diese soll aber nicht berüchsichtigt werden für die lezte volle zeile oder fürs löschen.
Mit oberen Makro löscht er alles bis Zeile 60000
Viele Grüße
dani

Hallo Dani,
Value2 u. Columns.Count lag wohl am .....Mediterano Tinto? ;-)

Sub test()
If Application.CountA(Range(Cells(8, 7), Cells(16, 7))) > 0 Then
Range(Cells(IIf(Len(Cells(16, 7)) > 0, 16, Cells(16, 7).End(xlUp).Row), 1), Cells(16, 8)). _
Select
End If
End Sub

... der Rest an deiner ungenauen Beschreibung.
Vorsichtshalber mit "Select" statt "ClearContents", damit es nicht gleich wieder etwas ungewollt
mit weglöscht. :-)
Gruesse
Gerd

super klappt jetzt.
Vielen Dank.
Dani

Hallo,
versuche es mal hiermit.

Sub test()
Dim rngMaxG As Range
Set rngMaxG = Range("G8:G16").Find("*", , xlValues, 2, 1, 2, False, False)
If Not rngMaxG Is Nothing Then
Range(Cells(rngMaxG.Row + 1, 1), Cells(16, 8)).Clear
Else
Range(Cells(8, 1), Cells(16, 8)).Clear
End If
End Sub

Gruß Tino

Hallo,
sollte G16 gefüllt sein.

Sub test()
Dim rngMaxG As Range
Set rngMaxG = Range("G8:G16").Find("*", , xlValues, 2, 1, 2, False, False)
If Not rngMaxG Is Nothing Then
If rngMaxG.Row <> 16 Then _
Range(Cells(rngMaxG.Row + 1, 1), Cells(16, 8)).Clear
Else
Range(Cells(8, 1), Cells(16, 8)).Clear
End If
End Sub

Gruß Tino

ja, das ist sogar viel besser.
Danke Tino.
Viele Grüße
Dani