Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
968to972
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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige