Anzeige
Archiv - Navigation
1116to1120
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

letzte volle zeile suchen und löschen

letzte volle zeile suchen und löschen
meixner
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
AW: letzte volle zeile suchen und löschen
15.11.2009 12:00:37
Nepumuk
Hallo,
so:
Range(Cells(Cells(Rows.Count, 7).End(xlUp).Row, 1), Cells(Rows.Count, Columns.Count)).Value2 = Empty
Gruß
Nepumuk
AW: letzte volle zeile suchen und löschen
15.11.2009 12:08:34
meixner
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
AW: letzte volle zeile suchen und löschen
15.11.2009 12:31:41
Nepumuk
Hallo,
wo ist das Problem?
Range(Cells(Cells(Rows.Count, 7).End(xlUp).Row, 1), Cells(16, Columns.Count)).Value2 = Empty
Gruß
Nepumuk
AW: letzte volle zeile suchen und löschen
15.11.2009 12:42:35
meixner
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
Anzeige
AW: letzte volle zeile suchen und löschen
15.11.2009 13:18:40
Gerd
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
AW: letzte volle zeile suchen und löschen
15.11.2009 14:11:39
meixner
super klappt jetzt.
Vielen Dank.
Dani
AW: letzte volle zeile suchen und löschen
15.11.2009 13:27:19
Tino
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
Anzeige
da fehlt noch eine Abfrage,
15.11.2009 14:06:09
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
AW: da fehlt noch eine Abfrage,
15.11.2009 14:12:26
meixner
ja, das ist sogar viel besser.
Danke Tino.
Viele Grüße
Dani

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige