Office: Wenn Zelle A leer ist, Zeilen löschen

Hallo und guten Tag,

In einer Exceltabelle möchte ich die Inhalte aller Zeilen, in denen die Zelle A leer ist löschen.
Ich hatte mir vorgestellt, die erste freie Zelle zu finden und von hier aus zu markieren und zu löschen.
Ich bekomme aber die Markierung nicht hin.

Sub erstefreieZinA()

Dim Zeil
[A1].End(xlDown).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = ""
Select Case ["ActiveCell: SpecialCells(xlLastCell]
End Select
Selection.ClearContents
'Range("A1").Select
End Sub

Kann mir jemand helfen?

Grüße, Rüdiger

:)

 

Moin Rüdiger,

diese ganzen Select´s braucht man zu 99,9% nicht, schau mal hier:
Code:

 

Hallo Dirk,

zunächst vielen Dank für die schnelle Antwort.
Ich habe den Code so eingegeben, aber bei mir bewgt sich nichts.

Gruß, Rüdiger

 

Moin Rüdiger,

bei dem CODE werden alle Zeilen gelöscht, die in Spalte A keine Eintragungen haben, also leer sind.

Du kannst hier auch eine Beispielmappe hochladen *wink.gif*

 

Moin

kann am Alter liegen. ;-)))))
Spass beiseite:
Sind die Zellen in Spalte wirklich leer? Oder Leerzeichen drin oder Formeln.
So geht's auch.
Code:

ansonsten probier auf Value pruefen:
Code:

gruss hary

 

Moin hary,

... liegt die Würze *grins

 

Hallo ,

hier ist die Beispieltabelle.
In den Zeilen 16 bis 29 ist Zelle A leer.
Diese Zeilen sollen gelöscht werden.

Gruß, Rüdiger

 

Moin Rüdiger,

der CODE sucht die letzte Zeile in Spalte A.
Da in deiner Tabelle die letzte Zeile nicht in Spalte A ist, sonder sonst wo sein kann, kann es so ja auch nicht funktionieren *wink.gif*

Ändere mal die CODE´s wie folgt ab:
Code:

oder
Code:

 

Hallo
Lag daran das die Letzte aus SpalteA genaommen wurde. Und die anderen sind laenger belegt.
Code:

gruss hary
EditDirk
Letzte ginge auch noch so:
Code:

 

Hallo,

funktioniert so wie mir das vorgestellt habe.
Vielen Dank für Eure Hilfe und noch alles Gute für’s Neue Jahr!

Gruß, Rüdiger

 

hallo Ruediger
Gern geschehen, danke fuer die Rueckmeldung.
Ebenso frohes neues.
gruss hary

 

... und frohes neues auch von mir *Smilie