ich steh auf dem Schlauch und komm echt nicht weiter. Beim Ablauf eines Makros erhalte ich immer den Fehler "Automatisierungsfehler Bibliothek nicht registriert". Um welches Verweis es sich handeln könnte habe ich auch annähernd keine Ahnung. Das nachstehende Makro wurde mal vor einigen Jahren hier im Forum für mich gemacht und lief bisher auf Office XP absolut fehlerfrei. Seit ich Office 2003 benutze läuft es nicht mehr.
Public
Sub Konvert_lesen()
Dim fso As New FileSystemObject
Dim f As Folder
Dim p As File
Dim str As String
Dim aktuell As String
Set WS = Worksheets("Konvert")
Set fso = New FileSystemObject *<-- hier bleibt das Programm hängen
Set f = fso.GetFolder("C:\ALWIN\RENAME") 'hier bitte den Pfad anpassen
h = 0
l = 1
Do While h <> 1
If Sheets("Konvert").Cells(l, 1) = 0 Then
h = 1
Else
l = l + 1
End If
Loop
leer = l
i = leer
For Each p In f.Files
Sheets("Konvert").Cells(i, 1) = p.Name
i = i + 1
Next
End Sub
Wer kann mir helfen. Habe vom Programmieren kaum Ahnung.
Danke und Gruß
Thomas