Sub LstFind()
Dim sh As Worksheet
Dim OleOb As OLEObject
Dim OleObs As OLEObjects
Dim IsDa As Boolean
Set sh = ActiveSheet
Set OleObs = sh.OLEObjects
IsDa = False
For Each OleOb In OleObs
If (OleOb.Name = NameToFind$) Then
IsDa = True
Exit For
End If
Next OleOb
If (IsDa = True) Then
MsgBox "OLE Object mit dem Namen " & NameToFind$ & " ist im ActiveSheet."
Else
MsgBox "OLE Object mit dem Namen " & NameToFind$ & " ist NICHT im ActiveSheet."
End If
End Sub
Sub DatenAusGeschDateiHolen()
Dim Etwas$
On Error GoTo ErrH
' Versuch einen Wert aus Book Etwas zu lesen, aber es ist nicht geoffnet - Fehler Nr.9 entsteht
Etwas$ = Excel.Application.Workbooks("Etwas.xls").ActiveSheet.Range("a1").Value
MsgBox "Wert im Sheet Etwas in der Zelle a1 ist " & Etwas$
Application.Workbooks("Etwas.xls").Close
Exit Sub
ErrH:
If (Err.Number = 9) Then
' Datei Etwas offnen und wieder auf der Zeile wo der Fehler aufgetreten ist fortfahren
' Etwas muss aber dort (hier D:\) existieren, sonst Fehler so wie so
Application.Workbooks.Open "D:\Etwas.xls"
Resume
Else
MsgBox Err.Description & " , nr." & Err.Number
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen