Makro letzte Zeile



Excel-Version: 7
nach unten

Betrifft: Makro letzte Zeile
von: Georg
Geschrieben am: 12.04.2002 - 07:01:24

Hallo,
mit nachfolgendem Makro lösche ich die Zeile, wenn in der Spalte F "AG" steht.
Das Makro fängt in der ersten Zeile bis zu 30000 an zu suchen und funktioniert.
Kann mir jemand helfen, dass das Makro in der letzten Zeile anfängt, also von unten nach oben.

Const Spalte = "F"
Const Zeilen = "30000"
Const Suchzeichen = "AG"


For x = Zeilen To 1 Step -1
If InStr(Range("F" & x), Suchzeichen) > 0 Then _
Rows(x & ":" & x).Delete Shift:=xlUp
Next x

Das würde den Ablauf beschleunigen.
Ich krieg das selber nicht hin.
Vielen Dank und Gruß; Georg

nach oben   nach unten

Re: Makro letzte Zeile
von: Wasi
Geschrieben am: 12.04.2002 - 07:21:27

Moin,
Versuch Mal:


Dim Zeilen as Integer
Zeilen = 30000
Const Suchzeichen = "AG"

For x = Zeilen To 1 Step -1
If InStr(Cells(x,6), Suchzeichen) > 0 Then
ziel = x & ":" & x
Rows(ziel).Delete Shift:=xlUp
End If
Next x

Gruß

Uwe

nach oben   nach unten

Re: Makro letzte Zeile
von: Georg
Geschrieben am: 12.04.2002 - 10:12:01

Hallo, Uwe

Erst mal vielen Dank für Deine Arbeit. Das war mal wieder ein Selbsttor bester Qualität von mir.
Ich suche die Abfrage der Spalte F von der letzten belegten Zeile ohne Bereichsangaben, da es schon mal nur 10000 Datensätze sein können.
Entschuldige die dusselige Problembeschreibung
Sorry und Gruß; Georg


nach oben   nach unten

Re: Makro letzte Zeile/off Topic
von: Roland Köstring
Geschrieben am: 12.04.2002 - 11:44:17

Hi Peter,
Dein Posting passt irgendwie schlecht...
Dabei hast Du doch heute ganz andere Pflichten,
als beim herber zu posten ... ;-)
Roland

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro letzte Zeile"