Office: Makro: Zeilen ausblenden

Hallo Ihr Experten,
folgendes Problem:
in meiner Tabelle gebe ich in Spalte A die Personalnummern der Mitarbeiter ein:
A1: P001
A2: P002 etc.

Die Tabelle hat 100 Zeilen.

Ab und zu steht in der Spalte A KEINE Personalnummer und diese Zeilen möchte ich jetzt gerne ausblenden, d.h. wenn in Spalte A = Zelle "Leer", dann Zeile ausblenden.

Wie geht das mit Makro ?????

Danke für Eure Hilfe,

Euer Dicker

 

Hallo!

Am allereinfachsten geht das mit dem Autofilter (Nichtleere).
Wenn du den Vorgang aufzeichnest, dann hast du auch den Code.

 

Hallo Schatzi, ich hab schon gedacht, ich bin in Ungnade gefallen, weil mir keiner mehr antwortet (vielleicht hilfst mir doch beim Schließen der Dateien)....
Wenn ich den "Autofilter" aktiviere, gibt mir Excel zwar eine Menge "Kästchen".... diese kann ich jedoch nicht umsetzen ......
Wär nett, wenn Du mir mit dem Makro hilfst ....
Gruß, der Dicke

 

Hast du beim Setzen des Autofilters denn auch den Makrorekorder mitlaufen lassen?

 

Geht leider nicht, sorry

 

Was geht nicht?
Ein bisschen genauer dürfte es schon sein...

 

Hallo, habs nun anders hinbekommen:

Worksheets("01").Activate
With Worksheets("01")
ZeileMax = .Range("A6000").End(xlUp).Row
For Zeile = 1 To ZeileMax
If .Cells(Zeile, 2).Value <> .Cells(102, 4).Value Then
.Rows(Zeile).Hidden = True
End If
Next Zeile
End With
Range("A1").Select

Gruß, Euer Dicker