Hallo Zusammen
wie heißt das Sprichwort "man sieht den Wald vor lauter Bäumen nicht".
Ich brauchte ja nur den Fehler abfangen
If wbANZ = 0 Then
Mldg = "Fehler" & Chr(10) & Chr(10) & _
"keine Excel-Tabelle aus CIM erstellt" & Chr(10)
Stil = vbOKOnly + vbCritical
Titel = ""
Antwort = MsgBox(Mldg, Stil, Titel)
End
End If
und dann über eine Schleife die Workbocks auslesen
For Each wb In excelApp.Workbooks
For Each sh In wb.Worksheets
....
.... prüfe die Daten in der Tabelle ....
....
next sh
next wb
und alles ist GUT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP