Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.04.2025 14:50:15
Power Query mehrere Aktionen in einer if-Abfrage
30.04.2025 14:18:48
Indirekt mit variablen Zellbezug
30.04.2025 14:16:05
Replace Punkt durch Komma mit kleiner Hilfe
30.04.2025 13:21:06
Makro bei jeder Änderung/Neuberechnung dateiübergreifend
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden

Forumthread: 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


Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige