Zeilen ausblenden
08.05.2014 20:54:46
Christian
ich habe eine Arbeitsmappe mit mehreren Tabellenblättern. In verschiedenen Tabellenblättern soll in unterschiedlichen Bereichen (bestehend aus Zeilen und Spalten) Zeilen ausgeblendet werden, sofern der Wert Null oder Leer ist. Folgendes Makro habe ich aktuell. Allerdings glaube ich, dass es auch einfacher funktionieren könnte. Bspw., dass ich zu Beginn die Tabellen und dazugehörigen Bereiche definiere?
Freue mich auf Antworten.
Grüße
Sub Ausblenden ()
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
Dim s As Integer
Dim z_von As Integer
Dim z_bis As Integer
s = 5
z_von = 2
z_bis = 5
Do While z_von