Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: leere spalten ausblenden

leere spalten ausblenden
03.11.2005 11:48:49
pearser
Hallo!
Ich habe ein Tabellenblatt bei dem alle leeren Spalten ausgeblendet werden sollen!
Jedoch wenn von B6 bis B20 jeweils eine 0 steht wird Spalte B ausgeblendet, ansonsten nicht! Das Gleiche gilt für Spalte C, sprich C6 bis C20 steht eine 0, dann wird Spalte C ausgeblendet.
Das Ganze gilt bis Spalte AF.
Geht das?
Gruß
pearser
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: leere spalten ausblenden
03.11.2005 11:52:33
Marco
Hallo
Also wenn eine 0 drin steht, dann ist die Spalte doch nicht leer?!?!!
Gruss
Marco R
AW: leere spalten ausblenden
03.11.2005 11:55:09
pearser
Hallo Marco!
Ja, da hast Du schon Recht. Dann hab ich's evtl. falsch formuliert.
Also so soll es sein:
Wenn von B6 bis B20 jeweils eine 0 steht wird Spalte B ausgeblendet, ansonsten nicht! Das Gleiche gilt für Spalte C, sprich C6 bis C20 steht eine 0, dann wird Spalte C ausgeblendet.
Das Ganze gilt bis Spalte AF.
MfG
pearser
Anzeige
AW: leere spalten ausblenden
03.11.2005 11:55:22
pearser
Hallo Marco!
Ja, da hast Du schon Recht. Dann hab ich's evtl. falsch formuliert.
Also so soll es sein:
Wenn von B6 bis B20 jeweils eine 0 steht wird Spalte B ausgeblendet, ansonsten nicht! Das Gleiche gilt für Spalte C, sprich C6 bis C20 steht eine 0, dann wird Spalte C ausgeblendet.
Das Ganze gilt bis Spalte AF.
MfG
pearser
Anzeige
AW: leere spalten ausblenden
03.11.2005 12:33:12
Matthias
Hi pearser,

Private Sub Worksheet_Activate()
SpaltenAusblenden
End Sub
Private Sub SpaltenAusblenden()
Dim s As Integer, i As Long, z As Long
Dim b As Range
Application.ScreenUpdating = False
For s = 2 To 36 ' Spalte B bis AP
Set b = Range(Cells(6, s), Cells(20, s))
Columns(s).Hidden = _
Application.Max(b) = 0 And Application.Min(b) = 0
Next s
Application.ScreenUpdating = True
End Sub

das musst du dann in deine vorhandene Worksheet_Activate-Prozedur einbinden, d.h. den Aufruf SpaltenAusblenden ans Ende der vorhandenen Prozedur.
Gruß Matthias
Anzeige
AW: ...super...klappt einwandfrei...DANKE!!!
03.11.2005 12:39:05
pearser
Super...klappt einwandfrei!!!
Nochmals vielen Dank Matthias!!!!
MfG
pearser
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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