Microsoft Excel

Herbers Excel/VBA-Archiv

Spalten ausblenden bei bestimmtem Inhalt | Herbers Excel-Forum


Betrifft: Spalten ausblenden bei bestimmtem Inhalt von: lutz
Geschrieben am: 08.01.2010 20:06:34

Hallo Excel-Profis,

ich habe mal wieder ein Problem.

Ich habe ein Makro welches leere Zeilen vor dem Druck ausblendet und dann wieder ein.

Nun muß ich auch noch die Spalten G und H ausblenden, wenn in Zelle G9 etwas anderes als "" steht.

Muß/kann ich 2 x with verarbeiten? Wie müßte das Makro aussehen?

Sub Drucken()
    Range("H3").Select
    Sheets("BonB").Select
    Dim Bereich As Range
With Worksheets("BonB")
    Set Bereich = .Range("F9:F28")
    For Each Zelle In Bereich.Cells
        If Zelle.Value <> "" Then
            Zelle.EntireRow.Hidden = False
        Else
            Zelle.EntireRow.Hidden = True
        End If
    Next Zelle
.PrintOut Copies:=1, Collate:=True
.Range("F9:F28").EntireRow.Hidden = False
    Set Bereich = Nothing
End With
    Sheets("Eingabe").Select
    Range("H3").Select
 End Sub

Vielen Dank für Eur Hilfe

Lutz

  

Betrifft: AW: Spalten ausblenden bei bestimmtem Inhalt von: Worti
Geschrieben am: 08.01.2010 20:26:37

Hallo Lutz,
so sollte es gehen:

Sub Drucken()
    Dim zelle As Range
    Range("H3").Select
    Sheets("BonB").Select
    Dim Bereich As Range
    With Worksheets("BonB")
        Set Bereich = .Range("F9:F28")
        For Each zelle In Bereich.Cells
            If zelle.Value <> "" Then
               zelle.EntireRow.Hidden = False
            Else
               zelle.EntireRow.Hidden = True
            End If
        Next zelle
       If .Range("G9").Value <> "" Then
          .Columns("G:H").Hidden = True
       End If
       .PrintOut Copies:=1, Collate:=True
       .Range("F9:F28").EntireRow.Hidden = False
       .Columns("G:H").Hidden = False
       Set Bereich = Nothing
    End With
    Sheets("Eingabe").Select
    Range("H3").Select
 End Sub

Gruß Worti


  

Betrifft: AW: Spalten ausblenden bei bestimmtem Inhalt von: lutz
Geschrieben am: 08.01.2010 20:44:15

Hallo Worti,

vielen vielen Dank ich muß nur alle ausbelenden bei denen G9 = "" ist aber das konnte ich gerade noch ändern.

Ich wünsche Dir noch ein schönes Wochenende

Gruß aus Hamburg Lutz


Beiträge aus den Excel-Beispielen zum Thema "Spalten ausblenden bei bestimmtem Inhalt"