Spalten ausblenden

Forumthread: Spalten ausblenden
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Spalten ausblenden

Spalten ausblenden

30.09.2002 12:11:45

Alex

Hallo Leute,

ich habe einen Datenbestand mit einem Autofilter belegt. Zuerst filtere ich nach einem Kriterium, dann möchte ich auf Knopfdruck die Spalten ausblenden, in denen keine gefilterten Daten stehen.

Vielen Dank im Voraus
Alex

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Spalten ausblenden

30.09.2002 20:23:47

Herbert

Re: Spalten ausblenden

30.09.2002 20:23:47

Herbert

Hallo Alex,
Wenn Du dieses Makro an deinen Tabellenbereich anpaßt,müßte es funktionieren.

Sub Spalte_ausbl()
    Dim I As Long
    Dim Letzte As Long
    Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    On Error Resume Next
Application.ScreenUpdating = False
   For I = Letzte To 8 Step -1
    If Cells(I, 2) = "" Then Columns(2).Hidden = True
     If Cells(I, 3) = "" Then Columns(3).Hidden = True
    If Cells(I, 4) = "" Then Columns(4).Hidden = True
   If Cells(I, 5) = "" Then Columns(5).Hidden = True
  Next
Application.ScreenUpdating = True
End Sub