|
Hallo,
ich habe folgendes Makro:
Sub Aublenden()
Dim i%, Ab%, Bis%, Was1$, Was2$
Ab = 18: Bis = 300 'D bis Z
Was1 = "Sa"
Was2 = "So"
Application.ScreenUpdating = False
With ActiveSheet
.Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False 'zurücksetzen
For i = Ab To Bis
If .Cells(11, i) = Was1 Or .Cells(11, i) = Was2 Then
.Columns(i).EntireColumn.Hidden = True
End If
Next i
End With
End Sub
Dies blendet alle Spalten im Bereich 18-300 aus die in der 11. Zeile ein Sa oder So stehen
haben.
ich habe aber kein Sa oder So in der 11. Spalte stehen sondern ein Formel und da werden
die Spalten nun nicht ausgeblendet.
Wie muss ich das Makro anpassen damit das funktioniert. Kann mir da jemand einen Tipp geben. ?
Danke im Voraus.
Schöne Grüsse
Matthias
|