Spalten ausblenden VBA

Sub SpaltenAusblenden() Dim Datum1 As Date Dim Datum2 As Date Dim i As Integer Datum1 = CDate(Worksheets("Projectplan").Range("D2")) Datum2 = CDate(Worksheets("Projectplan").Range("D3")) Application.ScreenUpdating = False Columns.Hidden = False For i = 11 To Columns.Count If CDate(Cells(5, i)) Datum2 Then Columns(i).Hidden = True End If Next i Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus Matty,
hier das makro für die Spalten, falls du mit der Umstellung nicht zurecht kommen solltest:


Sub spalten()
Dim rSuche As Range, rFinde As Range
Dim lngletzte As Long, SpalteOben As Long, SpalteUnten As Long
Set rFinde = Range("K5:IV5")
lngletzte = Cells.Find(what:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
'MsgBox lngletzte
Application.ScreenUpdating = False
Set rSuche = rFinde.Find(what:=DateValue(Range("D2")), LookAt:=xlWhole, LookIn:=xlValues)
If Not rSuche Is Nothing Then
SpalteOben = rSuche.Column
'MsgBox SpalteOben
End If
Set rSuche = rFinde.Find(what:=DateValue(Range("D3")), LookAt:=xlWhole, LookIn:=xlValues)
If Not rSuche Is Nothing Then
SpalteUnten = rSuche.Column
'MsgBox SpalteUnten
End If
Range(Cells(5, 11), Cells(5, SpalteOben - 1)).EntireColumn.Hidden = True
Range(Cells(5, SpalteUnten + 1), Cells(5, lngletzte)).EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub


Sub ein()
Range("A:IV").EntireColumn.Hidden = False
End Sub

Eventuell solltest du noch den ein oder anderen Fehler abfangen, z.B.: kein Datum in D2 oder D3 oder eingegebenes Datum nicht vorhanden.
Gruß
Chris

ich hab paarmal versucht die datei hochzuladen, geht leider nicht. sagt immer wieder ungültiger Dateiname. Naja... es liegt jedenfalls am Datum...
Ich habe zwei Grundlagen: Erstens Anfangs und Enddatum (Zelle D2 und 3).... dieses Datum kann der User aus einem Dropdownmenü bekommen.... (Liste - Gültigkeit...) Da ich den Terminplan dynamisch halten möchte gibt man einen Terminplanstartpunkt für den Gesamtterminplan ein... die restlichen Daten für das Dropdownmenü berechnen sich automatisch, da Anfangsdatum D2 immer Montag ist und Enddatum D3 immer Freitags sein soll. Also berechnet sich das immer Datum + 7....
Das ist die Grundlage für D2 und D3.
In Zeile 5 ergibt sich das Datum jeweils mit ner Wochentagformel.... und da scheint es dann nicht mehr zusammenzupassen. owohl es mich wundert dass es mit meiner ersten programmierung funktioniert hatte.
Ich hab das file mal unter Sendspace.com hochgeladen... sind nur 42kb...
http://www.sendspace.com/file/pgmd5m

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten ausblenden VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread