[Excel 2003] mal wieder VBA

[Lasersword]

Hallo Leute,

heute werde ich mal was lästig -Sorry-:

Ich sitze hier an einer Excel-Auswertung.
Mein Makro läuft soweit auch ganz gut,
nur an einer Stelle muss ich noch manuell eingreifen.

Nachdem ich die Tabelle neue geordnet habe, sollen im Bereich
von A4:A6000 alle Zeilen gelöscht werden, in denen in der Spalte A
kein "â" drin steht.

Ich habe natürlich auch schon unser aller Freund Google befragt und einige nützliche
Hilfen gefunden.

Aber in Folgendem Code gibt es eine Zeile, die ich nicht umschreiben kann

With ThisWorkbook.Worksheets("Tabelle1") 
Application.ScreenUpdating = False
   With ActiveSheet ' den Tabellenblattnamen ggf. anpassen !!!
[B]      For lZeile = .Cells(Rows.Count, 1).End(xlUp).Row To 5 Step -1[/B]
         If .Range("A" & lZeile).Value <> "â" Then
            .Rows(lZeile).Delete Shift:=xlUp
         End If
      Next lZeile
   End With
Application.ScreenUpdating = True

Wenn ich die Zeile richtig verstehe, fängt das Makro von unten an zu suchen
und wenn er nichts mehr findet, hört er eine Zeile dadrüber auf.

Da ich aber z. B. in
Zelle A4 nicht drin habe,
in A5 "A" steht,
von A6 bis A1200 steht "â"
und von A1201 bis Ende steht nix, dafür aber in B1201 bis B2000 was steht,
sollen diese auch gelöscht werden.

Wie kann ich also den Teil "End(xlUp)"
in "Ende ist A4" (und zwar immer, egal was dazwischen ist) ändern.

Vielen Dank im Voraus.

Gruß,

Lasersword

 

[schmidmi]

Hast du das schon getestet? Was passiert denn?
Eigentlich sollte dieser Code die letzte benutze Zeile finden und dort anfangen.
Egal ob in Spalte A etwas steht oder nicht. Setzt doch mal das Sreenupdate auf True und setzt einen Haltepunkt.
Gelöscht werden die Zeilen 1201 bis Ende natürlich nicht, da deine Bedingung nur abfragt ob ein â in Spalte A steht.

 

[Lasersword]

Also er löscht mir die Zeilen oberhalb vom benötigten Datensatz.

Die Werte die unterhalb meines Datensatzes stehen werden nicht gelöscht (sollen Sie aber).

Ich hätte gerne einen Befehl, der folgendes macht:

Prüfe A4:A6000
überall wo in der Zelle kein "â" steht sollst du die Zeile bedingungslos löschen,
auch wenn die Zelle leer ist.

So schwer sollte das eigentlich nicht sein, aber ich finde leider keine Lösung.

 

[schmidmi]

Dann suchst du einfach nach der letzten benutzten Zeile mit
Cells.Find("*", searchdirection:=xlPrevious).Row
und fängst dort an.

 

[Lasersword]

Danke für den Tip.

Aber ich hab jetzt eine tolle Lösung dank deiner "Übersetzung" gefunden.

Ich bin jetzt einfach mal davon ausgegangen, dass bei
.Cells(Rows.Count, 1)
die 1 für die 1. Spalte steht, also hab ich jetzt einfach mal 5 eingetragen,
denn die Spalte E ist immer gefüllt.
Und siehe da, es funktioniert.

Nochmals vielen Dank.