wie kann ich die Dateinamen aller geöfneter Exceldateien feststellen und an Variablen übergeben (max. 10 Dateien)
Sub Geoeffnet()
Dim wb As Workbook
For Each wb In Workbooks
MsgBox wb.Name
Next wb
End Sub
Sub test()
Dim NAME1 As String
Dim NAME2 As String
Dim NAME3 As String
Dim i As Byte
Dim wb As Workbook
i = 1
For Each wb In Workbooks
MsgBox wb.NAME
If i = 1 Then
NAME1 = wb.NAME
ElseIf i = 2 Then NAME2 = wb.NAME
ElseIf i = 3 Then NAME3 = wb.NAME
End If
i = i + 1
Next wb
End Sub
Function WBOffen()
Dim wb As Workbook, wn As Window
Dim vis As Boolean
Dim ListeString As String
For Each wb In Workbooks
vis = False
For Each wn In wb.Windows
If wn.Visible Then vis = True: Exit For
Next wn
If vis Then ListeString = ListeString & wb.Name & "\"
Next wb
If Len(ListeString) > 0 Then
ListeString = Left(ListeString, Len(ListeString) - 1)
End If
WBOffen = Split(ListeString, "\")
End Function
Sub test()
Dim liste
Dim i As Integer
liste = WBOffen
If UBound(liste) = -1 Then
MsgBox "Keine Mappen sichtbar!"
End If
For i = 0 To UBound(liste)
MsgBox liste(i)
Next i
End Sub