Spalten ausblenden

Forumthread: Spalten ausblenden
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalten ausblenden

Spalten ausblenden

Peter

Hallo zusammen,
ich suche ein Makro, was eine Spalte ausblendet, wenn ab Zeile 3 nichts mehr steht. Und das für die Spalten B bis DA (jede Spalte muss für sich selbst betrachtet werden).
Ggf. rufe ich das Makro in einer Schleife 30 mal auf...
Hat jemand einen Rat?
Peter

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

30 ?

Matthias
Hab nicht gezählt, aber schlecht

Peter
AW: Hab auch nicht gezählt ...

Gerd
Spalten ausblenden ... so mach ich das ...

Matthias
AW: Spalten ausblenden

mpb
AW: Spalten ausblenden

Peter

30 ?

27.07.2011 22:02:33

Matthias

Hallo Peter
Wie kommst Du denn auf 30 mal ?
Spalte"B" bis Spalte"DA" sind nicht nur 30 Spalten
Buchstabendreher ?
Gruß Matthias

Hab nicht gezählt, aber schlecht

27.07.2011 22:11:02

Peter

Geschätzt. :-)

AW: Hab auch nicht gezählt ...

27.07.2011 22:22:34

Gerd

Hallo Peter!

Sub Spalten_ausblenden()
Dim lngCol As Long
For lngCol = Columns("B").Column To Columns("AD").Column
If Cells(Rows.Count, lngCol).End(xlUp).Row

Gruß Gerd

Spalten ausblenden ... so mach ich das ...

27.07.2011 22:33:09

Matthias

Hallo Peter
https://www.herber.de/bbs/user/75909.xls
Gruß Matthias

AW: Spalten ausblenden

27.07.2011 22:16:18

mpb

Hallo Peter,
wenn die Zellen wirklich leer sind, versuche mal

Sub Ausblenden()
For i = 2 To 30
If Cells(2, i).End(xlDown).Row = 65536 Then
Columns(i).Hidden = True
End If
Next i
End Sub

Gruß
Martin

AW: Spalten ausblenden

28.07.2011 00:00:06

Peter

Hallo zusammen,
vielen Dank für Eure Hilfe!
Bei meinem Problem funktioniert die Lösung von Dir, Martin, am besten. Weiß auch nicht, bei den anderen Makros bleiben immer Spalten stehen.
Viele Grüße
Peter