Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema "Makro letzte Zeile"
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen