Hallo zusammen,
ich bin langsam echt verzweifelt - ich hoffe ihr könnt mir helfen - habe folgendes Problem:
Wenn ich in den Zellen F11:G18 einen beliebigen Wert eintrage, sollen automatisch die Spalten H:L eingeblendet werden.
Wenn die Zellen F11:G18 leer bleiben, sollen die Spalten H:L ausgeblendet sein.
Hier ist mein Makro:
Sub ANITA()
Sheets("Fahrzeug XY").Activate
If Range("F11") = " " Then
Columns("A:H").EntireColumn.Hidden = False
Columns("I:EG").EntireColumn.Hidden = True
Columns("CH:EI").EntireColumn.Hidden = False
Else
Columns("A:L").EntireColumn.Hidden = False
Columns("M:EG").EntireColumn.Hidden = True
Columns("CH:EI").EntireColumn.Hidden = False
ActiveWindow.FreezePanes = False
Range("D10").Select
ActiveWindow.FreezePanes = True
Range("A10").Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F11")) Is Nothing Then Exit Sub
Call ANITA
End Sub
Damit erreiche ich die benötigte Funktion, aber leider nur, wenn ich in Zelle F11 einen Wert eintrage bzw. weglasse.
Wenn ich nun versuche mein Makro folgendermaßen laufen zu lassen:
Sub ANITA()
Sheets("Fahrzeug XY").Activate
If Range("F11:G18") = " " Then
usw.
erscheint folgende Fehlermeldung: Laufzeitfehler ´13`: Typen unverträglich.
Wie krieg ich es jetzt hin mehrere Zellen zu markieren und das oben beschriebene Makro durchlaufen zu lassen?
Ich hoffe ihr könnt nachvollziehen, welches Problem ich habe. Ich danke euch schon im voraus für jeden Rat :)
LG
Anita
|