860to864: Spalten ausblenden

Forumthread: Spalten ausblenden

Spalten ausblenden

12.04.2007 21:54:52

Andreas

Hallo Excelforum!
Mit fogendem Code blende ich bestimmte Zeilen aus. Jetzt möchte ich aber noch zusätzlich die Spalten A, C, E, F, G, H, usw. ausblenden.
Was muß ich da Wo einfügen.


Private Sub CommandButton_BesucherTag1_Click()
Dim lZeile  As Long
'zur Auswertung wechseln
Sheets("Auswertung").Select
Application.ScreenUpdating = False
With Sheets("Auswertung")
.Rows("5:1001").Hidden = False
For lZeile = 5 To 1000
If .Cells(lZeile, 29) = "" Then
.Rows(lZeile).Hidden = True
End If
Next
.Columns("B:AF").SpecialCells(xlCellTypeVisible).Columns.AutoFit
End With
Application.ScreenUpdating = True
Range("B1").Select
End Sub

Danke für die Hilfe!
mfg Andreas

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten ausblenden

12.04.2007 22:20:03

Gast
AW: Spalten ausblenden

12.04.2007 22:59:55

Andreas
Danke, klappt super!

13.04.2007 12:27:38

Andreas
AW: Spalten ausblenden

12.04.2007 22:51:33

Beate Schmitz
AW: Spalten ausblenden

12.04.2007 23:03:15

Andreas

AW: Spalten ausblenden

12.04.2007 22:20:03

Gast

Hallo,
probiere mal:


Private Sub CommandButton_BesucherTag1_Click()
Dim lZeile  As Long
'zur Auswertung wechseln
Sheets("Auswertung").Select
Application.ScreenUpdating = False
With Sheets("Auswertung")
.Rows("5:1001").Hidden = False
For lZeile = 5 To 1000
If .Cells(lZeile, 29) = "" Then
.Rows(lZeile).Hidden = True
End If
Next
.Columns("B:AF").SpecialCells(xlCellTypeVisible).Columns.AutoFit
End With
Range("A:A,C:C,D:D,E1,E:E,F:F,G:G").EntireColumn.Hidden = True
Application.ScreenUpdating = True
Range("B1").Select
End Sub

Gruß Gast

AW: Spalten ausblenden

12.04.2007 22:59:55

Andreas

Hallo Gast!
Danke für die Hilfe. Kann es leider erst morgen testen. Gebe aber auf jeden Fall Feedback.
mfg, Andreas

Danke, klappt super!

13.04.2007 12:27:38

Andreas

Hallo Gast!
Die Veränderung klappt super. Nochmals vielen Dank!
mfg Andreas

AW: Spalten ausblenden

12.04.2007 22:51:33

Beate Schmitz

Hallo Andreas

Private Sub CommandButton_BesucherTag1_Click()
    Dim lZeile  As Long
    Dim Spalte As Integer
    'zur Auswertung wechseln
    Sheets("Auswertung").Select
    Application.ScreenUpdating = False
    With Sheets("Auswertung")
        .Rows("5:1001").Hidden = False
        For lZeile = 5 To 1000
            If .Cells(lZeile, 29) = "" Then
                .Rows(lZeile).Hidden = True
            End If
        Next
        .Columns("B:AF").SpecialCells(xlCellTypeVisible).Columns.AutoFit
    End With
    For Spalte = 1 To ActiveSheet.UsedRange.Columns.Count Step 2
        Columns(Spalte).Hidden = True
    Next
    Sheets("Auswertung").Range("B1").Select
End Sub

Gruß,
Beate

AW: Spalten ausblenden

12.04.2007 23:03:15

Andreas

Hallo Beate!
Danke für die Hilfe, ich muß aber unregelmäßige Spalten ausblenden (A, C, E, F und noch ein par mehr). Ich denke mal der Code von Gast dürfte gehen.
Aber Danke noch mal für die Hilfe!!!
mfg, Andreas

Forumthread: Spalten ausblenden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread