Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalten ausblenden mit VBA

Spalten ausblenden mit VBA
23.04.2008 15:31:00
Domtsgi
Guten Tag miteinander.
folgendes Problem:
In der Zelle A1 möchte ich die Anzahl der Spalten die ausgeblendet werden.
zB:
Zelle A1 = 4 Spalte B-E werden ausgeblendet
Zelle A1 = 1 Spalte B wird ausgeblendet
Zelle A1 = 10 Spalte B-K werden ausgeblendet
und dies verpackt in einem VBA Code.
vielen Dank für eine Lösung.
Domtsgi

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden mit VBA
23.04.2008 15:52:23
AK
Hallo Domtsgi,
müßte so funktionieren:

Private Sub Worksheet_Change(ByVal Target As Range)
Columns.Select
Selection.EntireColumn.Hidden = False
For a = 2 To Cells(1, 1) + 1
Columns(a).Hidden = True
Next
End Sub


Gruß
Andreas

Anzeige
AW: Spalten ausblenden mit VBA
23.04.2008 15:58:00
Ptonka
Hallo Domtsgi,
hier der Code:

Sub ausblenden()
Anzahl = Range("A1").Value + 1
For i = Anzahl To 2 Step -1
Columns(i).Select
Selection.EntireColumn.Hidden = True
Next i
Range("A1").Select
End Sub


Gruß,
Ptonka

Anzeige
vielen Dank
23.04.2008 16:43:54
Domtsgi
Ein grosses Merci an alle.
Mit diesen Vorlagen kann ich weiterarbeiten.
Gruss Domtsgi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige