ich suche eine Lösung für folgendes Problem:
In Workbook_Open befindet sich eine Prüfung für diverse Bedingungen. Eine davon ist folgende:
If Wb_Name = Worksheets("Hilfstabelle").Range("X26") _
And Worksheets("Hilfstabelle").Range("Z2").Value > "" _
And Worksheets("Hilfstabelle").Range("Z3").Value = "" _
And Worksheets("Berechnungstabelle").Range("A2") = 0 Then 'hier muss andere Prüfung _
eingefügt werden, da 1. Eintrag = sein kann
MsgBox "Datei ""Postwertzeichen_Basis.xlsm"" kann nicht geöffnet werden!"
Exit Sub
Die Prüfung für Worksheets("Berechnungstabelle").Range("A2") = 0 soll sich nicht nur auf die Zelle A2 beziehen,sondern wenn die Spalte A von A2 bis zur letzten beschriebenen Zelle nur 0 enthält.
Bzw. in einer anderen Abfrage, ob bereits ein Wert über 0 vorhanden ist.
Könnt ihr mir hierbei bitte helfen.
Gruss
Peter