Office: Bereich eingrenzen

Hallo,

ich habe ein Makro, in dem blende ich Zeilen aus, die ich nicht drucken will.
Nun soll es nicht die ganzen Zeilen nach unten durchsuchen sondern nur bis
Zeile 74 (Spalten B).

Kann mir da jemand dabei helfen.


Private Sub CommandButton1_Click()
Dim s%, e!, z!

'Spalte B:
s = 2

'Letzte Zeile mit Eintrag suchen:
e = Cells(Rows.Count, s).End(xlUp).Row

'Zeilen ausblenden:
For z = 10 To e
If Cells(z, 2) = "" Then Rows(z).EntireRow.Hidden = True
Next

'Druckbereich festlegen:
ActiveSheet.PageSetup.PrintArea = "$A$4:$G$70"

'Drucken:
ActiveSheet.PrintOut

'Druckbereich aufheben:
ActiveSheet.PageSetup.PrintArea = ""

'Zeilen einblenden:
Rows.Hidden = False


End Sub


wie bzw. was muß ich ändern.

Besten Dank an die die antworten.

 

Hallo!

For z = 10 To 74
If Cells(z, 2) = "" Then Rows(z).EntireRow.Hidden = True
Next

(Die Variablen s und e sind dann überflüssig.)

 

[Excel 2003] Bereich eingrenzen

Hallo,

vielen Dank Schatzi.

Wie immer klappt es wunderbar. Ich habe das Makro so geändert.

Also Dank an dich und das ganze Board für die Hilfe.

 

[Excel 2003] Bereich eingrenzen

Hallo Schatzi,

die Freude ar groß, als alles klappte.

Ich jetzt aber ein Problem, wenn ich drucken will kommt immer wieder die Fehlermeldung Laufzeitfehler. Icch weiß aber leider jetzt nicht mehr die genaue Meldung. Ich kann es erst morgen mitteilen.
Ich weiß nur, daß es den Bereich bzw. die Zeile
'Zeilen ausblenden:
For z = 10 To 74
If Cells(z, 2) = "" Then Rows(z).EntireRow.Hidden = True
Next

Then Rows(z).EntireRow.Hidden = True gelb markiert.

Was hab ich da für einen Fehler gemacht? Weil zuhause klappt beim drucken (Canon Tintenstrahl PIXMA 400) alles wunderbar, aber in der Arbeit kommt immer wieder die Meldung Laufzeitfehler. Ich drucke da mit einem Laserdrucker im Netzwerk (HP Laserjet 4250). Ich kann mir aber vorstellen, daß es nicht am Drucker liegt.

Ich weiß halt im Moment nicht mehr weiter.

 

Hallo,

wie bereits oben gemeldet hab ich immer wieder die Fehlermeldung beim drucken des Dokuments.
Es wäre toll wenn ihr mir dabei helfen könntet, damit das Sheet ohne Probleme gedruckt werden könnte.
Da ich nicht alleine mit dem Sheet arbeite sondern auch noch andere und wenn dann die Fehlermeldung kommt
wissen die Jungs dann nicht weiter.

Also danke mal im voraus für die Hilfe

 

Versuch mal, ob

Code:

If trim$(Cells(z, 2).value) = "" Then Rows(z).rowheight = 0

geht.
3 kleine Änderungen:
a) .Value, um expplizit den Zellwert zu nehmen
b) mit trim$ ggf. Leerzeichen entfernen
c) Zeilenhöhe auf 0 hat gleichen Effekt wie "verstecken"

Gruß, Michael

 

[Excel 2003] Bereich eingrenzen

Hallo Michael,

entschuldige, daß ich mich jetzt erst melde. Ich hatte einiges zu tun. Wir arbeiten gerade an einem Produktbevorratungssystem mit einem Kollegen zusammen. Das ganze natürlich mit Excel.

Aber jetzt zu deiner Antwort. Ich hab es mal so umgesetzt. Hatte auch beim ersten Druck einen Erfolg,aber dann die Meldung wieder.
Nun hab ich weiter oben einen Beitrag mit dem Titel "Laufzeitfehler 1004 bei Makroausführung" gesehen. Der brachte mich auf die Idee, da ich meine Blätter ja auch geschützt habe, könnte es ja bei mir auch zutreffen. Also hab ich die Codes am Anfang und am Ende integriert. Nach mehrmaligem Test hat alles bestens funktioniert.

Also Dank nochmal an dich für die Hilfe, aber auch Dank an "maninweb" für seine ungwollte Hilfe und entschuldige wenn ich von dem Thread "geklaut" habe.