Spalten automatisch verschieben

Computer: Software & Programmierung Office Software
1

Wer weiß, wie man Excel Spalten automatisch verschieben lassen kann.

Z.B., wenn die Spalten die Wochen anzeigen, sollen in Abhängigkeit von der aktuellen Woche, die bereits abgelaufenen Wochen nach links, aus dem sichtbaren Bereich der Arbeitsmappe verschwinden und bei Bedarf wieder sichtbar gemacht werden können.

Danke + Gruß

Sven Hogrefe

2

Wer weiß, wie man Excel Spalten automatisch verschieben lassen
kann.
Z.B., wenn die Spalten die Wochen anzeigen, sollen in
Abhängigkeit von der aktuellen Woche, die bereits abgelaufenen
Wochen nach links, aus dem sichtbaren Bereich der Arbeitsmappe
verschwinden und bei Bedarf wieder sichtbar gemacht werden
können.

Hi Sven,
Aus der Symbolleiste Formular eine Schaltfläche holen und der das Makro test() zuweisen.
Im Makro die Zeilen die hinten eine '3 haben, anstatt der 3 die Zeilennummer angeben in der die KW steht.

Sub test()
Application.ScreenUpdating = False
KW = DINKwoche(Date)
ActiveSheet.Shapes(Application.Caller).Select
Select Case Selection.Characters.Text
 Case "Spalten AUS"
 Selection.Characters.Text = "Spalten EIN"
 ActiveSheet.Columns.Hidden = False
 For n = 1 To Range("IV3").End(xlToRight).Column '3
 If Cells(3, n).Value = KW And n \> 1 Then '3
 Range(Cells(3, 1), Cells(3, n - 1)).Columns.Hidden = True '3
 Cells(3, n).Select '3
 Exit For
 End If
 Next n
 Case "Spalten EIN"
 ActiveSheet.Columns.Hidden = False
 Selection.Characters.Text = "Spalten AUS"
 Cells(3, KW).Select '3
End Select
Application.ScreenUpdating = True
End Sub

Function DINKwoche(Datum)
Dim tmp
tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKwoche = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function

Gruß
Reinhard

3

Hallo Sven,

normalerweise reicht für so etwas die Funktion ‚Fenster fixieren‘.

Positioniere den Cursor in der Zelle rechts neben den Zeilentiteln und unterhalb der Spaltentitel. Anschließend Menü Fenster–> Fenster fixieren. Beim Scrollen laufen die Spalten/Zeilen nach links/oben automatisch unterhalb der Zeilentitel/Spaltentitel weg.

Gruß
Franz

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]