Laufzeitfehler Zeilen ausblenden
10.09.2014 14:48:26
volker
ich habe eine Excel-Mappe in die Daten aus einer anderen Mappe eingelesen werden. Nun soll, wenn in der einzulesenden Mappe in dem definierten Bereich "_Test_Ausblendung" ein Wert > 0 enthalten ist, in der Mappe in der die Werte eingelesen werden der definierte Bereich "_DirekteWirkungen" ausgeblendet werden.
Dies wollte ich über eine Wenn-Abfrage lösen. Die Sub "Ausblenden_DirekteWirkungen" zur Ausblendung liegt im Modul4.
Problem: Ich erhalten einen Laufzeitfehler, wenn ich das Programm ganz durchlaufen lasse. Für _
sich genommen funktionieren die Einzelteile (1.Wenn-Abfrage und 2.Ausblendung durch Modul4). Wo _ liegt das Problem?
If ActiveWorkbook.Sheets("Formular geplante Zielbeiträge").Range("_Test_Ausblendung") > 0 Then
Call Modul4.Ausblenden_DirekteWirkungen 'Modul4 Sub Ausblenden_DirekteWirkungen aufrufen
Else
End If
Sub Ausblenden_DirekteWirkungen()
' Ausblenden_DirekteWirkungen Makro
ThisWorkbook.Sheets("Auswertung Querschnittsziele").Range("_DirekteWirkungen").Select
Selection.EntireRow.Hidden = True
End Sub
Vielen Dank im Voraus!