Anwendungs oder Objektdefinierter Fehler
Stefan
wieso bekomme ich bei dem folgenden Makro in der letzten Zeile ".Range(.Columns...") die Fehlermeldung: "Anwendungs- oder Objektdefinierter Fehler"
Es geht um folgendes. Wenn EZ19 einen Wert zwischen 0 und 10 annimmt, sollen die entsprechenden Zeilen ausgeblendet werden. Das gleiche gilt für die Zelle FA 19.
Im Anschluss möchte ich die Spalten ab Spalte 17 bis 256 ausblenden sowie die Zeilen ab 60 ausblenden.
Sub Auswahl_Beziehungen_Kunden_MB1_TMB1()
Dim Spalte1 As Long, Spalte2 As Long, Spalte3 As Long
Application.ScreenUpdating = False
Blattschutz_aus
Spalte1 = 1
Spalte2 = 256
With Worksheets("Vertrieb_Beziehungen_Kunden")
.Range(.Columns(Spalte1), .Columns(Spalte2)).EntireColumn.Hidden = False
.Rows("13:395").EntireRow.Hidden = False
If Worksheets("Überblick_Vertriebseinheit1").Range("EZ19") = CInt(Range("EZ19")) And Range(" _
EZ19") Vielen vielen Dank für eure Hilfe!
Stefan.