Microsoft Excel

Herbers Excel/VBA-Archiv

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


Betrifft: letzte volle zeile suchen und löschen von: meixner
Geschrieben am: 15.11.2009 11:53:45

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

  

Betrifft: AW: letzte volle zeile suchen und löschen von: Nepumuk
Geschrieben am: 15.11.2009 12:00:37

Hallo,

so:

Range(Cells(Cells(Rows.Count, 7).End(xlUp).Row, 1), Cells(Rows.Count, Columns.Count)).Value2 = Empty

Gruß
Nepumuk


  

Betrifft: AW: letzte volle zeile suchen und löschen von: meixner
Geschrieben am: 15.11.2009 12:08:34

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


  

Betrifft: AW: letzte volle zeile suchen und löschen von: Nepumuk
Geschrieben am: 15.11.2009 12:31:41

Hallo,

wo ist das Problem?

Range(Cells(Cells(Rows.Count, 7).End(xlUp).Row, 1), Cells(16, Columns.Count)).Value2 = Empty

Gruß
Nepumuk


  

Betrifft: AW: letzte volle zeile suchen und löschen von: meixner
Geschrieben am: 15.11.2009 12:42:35

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


  

Betrifft: AW: letzte volle zeile suchen und löschen von: Gerd L
Geschrieben am: 15.11.2009 13:18:40

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


  

Betrifft: AW: letzte volle zeile suchen und löschen von: meixner
Geschrieben am: 15.11.2009 14:11:39

super klappt jetzt.

Vielen Dank.
Dani


  

Betrifft: AW: letzte volle zeile suchen und löschen von: Tino
Geschrieben am: 15.11.2009 13:27:19

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


  

Betrifft: da fehlt noch eine Abfrage, von: Tino
Geschrieben am: 15.11.2009 14:06:09

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


  

Betrifft: AW: da fehlt noch eine Abfrage, von: meixner
Geschrieben am: 15.11.2009 14:12:26

ja, das ist sogar viel besser.

Danke Tino.
Viele Grüße
Dani


Beiträge aus den Excel-Beispielen zum Thema "letzte volle zeile suchen und löschen"