AW: Zeilen ausblenden wenn 0 in Spalte A
06.02.2008 09:26:00
Martin
Hallo Lenhard!
Danke für deine Antwort!
Es fuktioniert jetzt auch super! Allerdings ist das ganze immer noch ein bisschen langsam.
Mein Problem ist, das ich eben das Tabellenblatt auf dem das Macro angewendet werden soll mit einem Makro bis zu 200 mal ausdrucken lasse. Das Tabellenblatt ist voller sverweise die sich bei jedem druck entsprechend anpassen. es werden bei jedem druck auch unterschiedliche zeilen ausgeblendet.
hier liegt also mein problem. denn wenn jedesmal ca. 150 zeilen ausgeblendet werden, diese aber immer unterschiedlich sind, bin ich mit drucken eine halbe ewigkeit am weg.
Ich verwende ein makro zum zeilen löschen. das funktioniert dafür auch super! ich hab jetzt versucht das irgendwie anzupassen indem ich statt
EntireRow.Delete einfach EntireRow.Hide = True
gemacht habe
Das wäre von der Geschwindigkeit her perfekt, allerdings funktioniert es auch nicht ganz. es blendet mir zwar die zeilen aus, aber es verschiebt mir die inhalte in die ersten zeilen und damit kann ich den ganzen aufbau des blattes vergessen. die werte müssen in den jeweiligen zellen stehen bleiben.
hier das makro:
Sub Ausblenden2()
Columns(1).Insert
With Range("A1:A" & Cells(65536, 2).End(xlUp).Row)
.FormulaR1C1 = "=if(RC2=0,true,row())"
.Formula = .Value
.CurrentRegion.Sort key1:=Cells(1, 1), order1:=xlAscending, Header:=xlNo
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Hidden = True
.EntireColumn.Delete
End With
End Sub
Ich bin in VBA leider zu schach um das zu verstehen. Kannst du mir hier weiterhelfen?
Ich habe noch eine Beispieldatei angehängt an der man erkennen soll was das Makro macht. Es läuft momentan über eine Schaltfläche da man sonst nicht sieht was es tut.
https://www.herber.de/bbs/user/49669.xls
Danke
LG
Martin