Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten ausblenden

Spalten ausblenden
30.09.2002 10: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
Anzeige
Re: Spalten ausblenden
30.09.2002 18: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

gruß Herbert


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige