quellcode
02.09.2006 19:50:20
Christopher
Private Sub CommandButton1_Click()
Dim i As Integer
Dim strDatName As String
For i = 1 To Workbooks.Count
strDatName = strDatName & vbCr & Workbooks(i).Name
Next
MsgBox strDatName
End Sub
möchte mit diesem Code alle öffenen Excel-Dateien durchlaufen und anzeigen lassen.
Hat jemand ne Idde?
mfg Christopher
Anzeige