wieder einmal hänge ich über einer Frage, bei der Tante Gugl mir nicht so richtig geholfen hat, vermutlich suche ich mit den falschen Stichworten. Könnte mir hier jemand helfen?
So ist es bis jetzt:
Ich habe in einer langen Liste Spalten für Fahrtkosten. Pro Monat sind es genau 20 Spalten. Mit _
einem Makro kann in den jeweils aktuellen Monat gesprungen werden. Das funktioniert über
Sub SpringzuFaKo()
' Springt zur Berechnung Fahrkosten - aktiver Monat
Dim SuchZeile As Integer
Dim SuchFako As Integer
Dim SuchSpalte As Integer
Dim Monat As Integer
Monat = Range("CMQ2").Value 'Anzahl Monate seit Beginn
SuchZeile = ActiveCell.Row
Application.GoTo Reference:="vba_Fako"
SuchFako = ActiveCell.Column
SuchSpalte = SuchFako + Monat * 20
Cells(SuchZeile, SuchSpalte).Select
End Sub
So soll es werden:
Nun habe ich eine Gliederung eingebaut, bei der die einzelnen Monate nicht sichtbar sind. Mit dem Makro soll jetzt der aktuelle Monat aufgeklappt werden. In der sonstigen Liste mit festen Bezügen mache ich das über:
If Sheets("Namen").Columns("BFC:BGD"). _
EntireColumn.Hidden = True Then
Sheets("Namen").Columns("BFC:BGD"). _
EntireColumn.Hidden = False
End If
Aber wie kann ich das anpassen, damit die Spalten "SuchSpalte:SuchSpalte+20" aufgeklappt wird?
Vielen Dank und ebenso viele Grüße
Die Johanna