Option Explicit
Public buttons() As New meineButton
Sub einbinden()
Dim i As Long
Dim schalter As OLEObject
For Each schalter In ActiveSheet.OLEObjects
i = i + 1
ReDim Preserve buttons(i)
Set buttons(i).clsButton = schalter.Object
Next schalter
End Sub
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function
Sub dateien_oeffnen(zahl As Long)
Dim oTargetBook As Object
Dim Datei As String
Dim Name As String
Set oTargetBook = ActiveWorkbook
MsgBox zahl
Exit Sub
Datei = oTargetBook.Sheets("Programmdeckblatt").Range("C" & (54 + zahl)).Value
Name = oTargetBook.Sheets("Programmdeckblatt").Range("B" & (54 + zahl)).Value
If WkbExists(Name) = False Then
If oTargetBook.Sheets("Programmdeckblatt").Range("A" & (54 + zahl)).Value > 0 Then
Workbooks.Open Datei
End If
Else
Workbooks(Name).Activate
End If
End Sub