Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten ausblenden und den Rest...

Spalten ausblenden und den Rest...
18.03.2004 22:01:35
Achim
Hallo Leute,
würde gern realisieren, dass alle leere Spalten ausgeblendet werden
und die verbleibenden Spalten alle die Spaltenbreite der breitesten
Spalte erhalten.
Also es bleiben z.B. 5 Spalten sichtbar und die breiteste ist 20 breit,
dann sollen die anderen 4 Spalten auch 20 breit sein, ist die breiteste
nur 12 breit , dann die andern auch 12.
Hoffe, das war nicht zu verwirrend?
Danke schon mal und Grüße
Achim

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden und den Rest...
18.03.2004 22:51:00
K.Rola
Hallo,
Option Explicit
Option Base 1

Sub aus_optimal()
Dim s As Integer, arrW() As Double, arrS() As Integer, z As Integer
Application.ScreenUpdating = False
Cells.Columns.AutoFit
For s = 1 To 256
If Application.CountA(Columns(s)) = 0 Then
Columns(s).Hidden = True
Else
z = z + 1
ReDim Preserve arrW(z)
ReDim Preserve arrS(z)
arrW(z) = Columns(s).ColumnWidth
arrS(z) = s
End If
Next
For s = 1 To UBound(arrS)
Columns(arrS(s)).ColumnWidth = Application.Max(arrW)
Next
Application.ScreenUpdating = True
End Sub

Gruß K.Rola
Perfekt! Danke dir oT
18.03.2004 22:57:17
Achim
oT
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige