Spalten ausblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Spalten_ausblenden() Dim spalte As Long If Cells(2, 1) > 2 Then Range(Cells(1, 6), Cells(65536, 256)).EntireColumn.Hidden = False spalte = ((Cells(2, 1).Value - 2) * 7) + 5 Range(Cells(1, 6), Cells(65536, spalte)).EntireColumn.Hidden = True End If End Sub

Sub Spalten_ausblenden() Dim spalte As Long If Cells(2, 1) > 2 Then Range(Cells(1, 6), Cells(1048516, 16384)).EntireColumn.Hidden = False spalte = ((Cells(2, 1).Value - 2) * 7) + 5 Range(Cells(1, 6), Cells(1048516, spalte)).EntireColumn.Hidden = True ' Columns(1).ColumnWidth = 0 End If End Sub

Sub Spalten_ausblenden() Dim spalte As Long If Cells(2, 1) > 2 Then 'guckt in der Zelle A2 nach ob der Wert fuer die KW groesser 2 ist, _ da ansonsten nichts ausgeblendet werden muss Range(Cells(1, 6), Cells(65536, 256)).EntireColumn.Hidden = False 'blendet alle _ ausgeblendeten Spalten ein spalte = ((Cells(2, 1).Value - 2) * 7) + 5 'hier wird die Spalte errechnet, bis zu der _ ausgeblendet werden soll Range(Cells(1, 6), Cells(65536, spalte)).EntireColumn.Hidden = True 'hier wird der _ entsprechende Bereich ausgeblendet End If End Sub

Hallo,
1. Mein Fehler mir fehlte der Button zum starten des Scriptes.
2. Habe die Berechnung von +5 auf +8 angepasst, weil ich drei Tage zuviel hatte
3. Was mein noch eigentliches Problem ist
Es funktioniert nur wenn mein Datumsbereich beim 1.1. beginnt. Meine Zeitrechnung beginnt jedoch variabel z.B. 9.6.2010
Zur besseren Übersicht für mich habe ich nun die aktuelle Kalenderwoche in A2 und die Datumsangaben in den einzelnen Spalten in Zeile 3 gepackt, die daraus jeweils errechnete Kalenderwoche ist nun ebenfalls in der 2. Zeile
Wenn ich das nun richtig verstehe bezieht sich das ganze Script nur auf die Zelle A2 ohne Berücksichtigung der Kalenderwochenangaben in den auszublenden Spalten (F2-...)
Kann man das irgendwie mit einarbeiten?

Sub Spalten_ausblenden()
Dim spalte As Long
If Cells(2, 1) > 2 Then 'guckt in der Zelle A2 nach ob der Wert fuer die KW groesser 2 ist,  _
_
da ansonsten nichts ausgeblendet werden muss
Range(Cells(1, 6), Cells(1048516, 16384)).EntireColumn.Hidden = False 'blendet alle _
ausgeblendeten Spalten ein
spalte = ((Cells(2, 1).Value - 2) * 7) + 8 'hier wird die Spalte errechnet, bis zu der  _
_
ausgeblendet werden soll
Range(Cells(1, 6), Cells(1048516, spalte)).EntireColumn.Hidden = True 'hier wird der _
entsprechende Bereich ausgeblendet
End If
End Sub

Option Explicit Sub HideColumns() Dim vntMtch With ActiveSheet vntMtch = Application.Match(.Cells(2, 1), .Rows(3), 0) If IsNumeric(vntMtch) Then .Columns.Hidden = False If vntMtch > 13 Then .Columns(6).Resize(, vntMtch - 13).Hidden = True End If End If End With End Sub

Hi,
kann ich nicht irgendwie eine schleife abarbeiten lassen die
a2(aktuelle Kalenderwoche) - 1 (woche zur vergangenheitsansicht) = f2 (1. Tag woche x)
a2(aktuelle Kalenderwoche) - 1 (woche zur vergangenheitsansicht) = g2 (2. Tag woche x)
a2(aktuelle Kalenderwoche) - 1 (woche zur vergangenheitsansicht) = h2 (3. Tag woche x)
a2(aktuelle Kalenderwoche) - 1 (woche zur vergangenheitsansicht) = i2 (4. Tag woche x)
a2(aktuelle Kalenderwoche) - 1 (woche zur vergangenheitsansicht) = j2 (5. Tag woche x)
...
a2(aktuelle Kalenderwoche) - 1 (woche zur vergangenheitsansicht) = aaa2 (x. Tag woche x)
30 (aktuelle Kalenderwoche) - 1 Woche = 29
Somit müssten nur alle Spalten zwischen den spalten f bis aaa ausgeblendet werden die in Zeile 2 einen wert kleiner als 29 stehen haben
Gruß tom

Sub ausblenden() Dim i As Long For i = 6 To 16384 If Cells(2, i).Value = Cells(2, 1).Value Then Range(Cells(1, 6), Cells(1048516, 16384)).EntireColumn.Hidden = False Range(Cells(1, 6), Cells(1048516, i - 8)).EntireColumn.Hidden = True Exit For End If Next End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread