title image


Smiley schön an alle
Hallo Daniela,



vielen Dank für deinen Tipp. Ich habe mir nun gerade einen Button gebastelt, der ein Makro ausführt, welches die leeren Zeilen ausblendet. Möchte ich in die leeren, nicht mehr angezeigten Zeilen neue Werte eingeben, lasse ich über ein anderes Makro und einen zweiten Button die Zeilen wieder einblenden. Das reicht nun für meine Anwendungszwecke aus.



***************************************

Sub leere_zeilen_ausblenden()

Dim y%, a!, b!

a = 1

b = Cells(Rows.Count, y).End(xlUp).Row

For z = 3 To 20

If Cells(z, 1) = "" Then Rows(z).EntireRow.Hidden = True

Next



End Sub



***************************************

Sub leere_zeilen_einblenden()

Rows.Hidden = False

End Sub

***************************************



Vielen Dank an alle...



rallef

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: