Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

860to864: 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
Anzeige
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
Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige