AW: Englischer name
Jan.W
Hallo Gerd, ich habe von Matthias G. eine Code erhalten der in der Zelle Q6 immer mit den
Werten aus P6/aktueller Monat rechnen soll.
Ich kann dir die tabelle leider nicht einstellen, sie ist aber im Forum unter Jan.W zu finden. Da ich in miener Firma eine englische Version habe bekomme ich das nicht ganz so hin.
Sub NurAktMonat()
Dim i As Integer
For i = 4 To 15
Monat = i - 3
Cells(1, i).EntireColumn.Hidden = (Month(Date) <> Monat + 1)
Next i
End Sub
Sub AlleMonate()
Columns("d:o").Hidden = False
End Sub
Function Sichtbar(ber As Range)
Dim z As Range
For Each z In ber
If z.EntireColumn.Hidden = False Then
Sichtbar = z.Value
Exit Function
End If
Next z
'keine sichtbar:
Sichtbar = "#NV"
End Function