Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen ausblenden, wenn Zellen =1

Zeilen ausblenden, wenn Zellen =1
Andreas
Hallo Excelprofis!
Mit dem folgenden Makro lege ich auf den Blättern 1 bis 20 den Druckbereich fest, lege als Blattformat "Hochformat" fest und blende im Bereich 11 bis 46 alle Zeilen aus, bei denen in der Zelle 26 ("Z") nicht der Wert "1" steht.
Jetzt möchte diesen Code soweit ergänzen, dass nur die Zeilen ausgeblendet werden, bei denen in der Zelle 26 und / oder 27 nicht der Wert "1" steht.
Also: Zelle 26=1, nicht ausblenden ; Zelle 26 & 27=1, nicht ausblenden ; Zelle 27=1, nicht ausblenden.
Habe leider keine Ahnung von VBA. Kann mir bitte Jemand helfen!

Sub festlegenDruckbereich_fürGravur()
' ändern des Druckbereiches auf den Bereich "A1:I48!
' ausblenden der Zeilen ohne Gravur
For z = 1 To 20
With Worksheets(z)
.PageSetup.PrintArea = "$A$1:$i$48"
.PageSetup.Orientation = xlPortrait
.Unprotect
For i = 11 To 46
If Not .Cells(i, 26) = 1 Then
.Rows(i).Hidden = True
End If
Next i
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Next z
End Sub

Danke für die Hilfe!
mfg, Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen ausblenden, wenn Zellen =1
Remo
Ciao Andreas
Ich würde es so lösen:
...
For i = 11 To 46
If Cells(i, 26) 1 And Cells(i, 27) 1 Then
.Rows(i).Hidden = True
...
Gruss Remo
AW: Zeilen ausblenden, wenn Zellen =1
Andreas
Hi Remo!
Geht leider nicht. Bei deiner Variante funktioniert das nur auf dem ersten Blatt richtig, bei allen anderen Blättern werden genau die selben Zeilen ausgeblendet wie auf dem ersten, unabhängig vom Zellinhalt.
mfg, Andreas
AW: Zeilen ausblenden, wenn Zellen =1
Remo
sorry, habe die punkte vergessen...
For i = 11 To 46
If .Cells(i, 26) 1 And .Cells(i, 27) 1 Then
.Rows(i).Hidden = True
AW: Funzt, habe den Fehler gefunden, Danke!!
13.04.2004 11:25:32
Andeas
Hi Remo!
Danke für die Hilfe, die Punkte vor Cells haben gefehlt, deshalb hat es nicht gleich gefunzt. Jetzt gehts aber super!
mfg, Andreas
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige