860to864: Spalten ausblenden

Forumthread: Spalten ausblenden

Spalten ausblenden

12.04.2007 19: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 20:20:03

Sonnenpeter
AW: Spalten ausblenden

12.04.2007 20:59:55

Andreas
Danke, klappt super!

13.04.2007 10:27:38

Andreas
AW: Spalten ausblenden

12.04.2007 20:51:33

Beate Schmitz
AW: Spalten ausblenden

12.04.2007 21:03:15

Andreas

AW: Spalten ausblenden

12.04.2007 20:20:03

Sonnenpeter

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ß Sonnenpeter

AW: Spalten ausblenden

12.04.2007 20:59:55

Andreas

Hallo Sonnenpeter!
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 10:27:38

Andreas

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

AW: Spalten ausblenden

12.04.2007 20: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 21: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 Sonnenpeter dürfte gehen.
Aber Danke noch mal für die Hilfe!!!
mfg, Andreas

Beliebteste Forumthreads (12 Monate)

Forumthread: Spalten ausblenden

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

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread