Hi,
dies ist Teil des Codes meines kleinen Programmes. Beim öffnen dieses Workbooks öffnet es ein weiteres Excel Workbook und kopiert Daten aus den Spalten B und C in das erste Workbook.
Das funktioniert auf meinem PC auch alles einwandfrei.
Sobald ich allerdings auf einen anderen NetzwerkPC ausweiche, der auf die Quelldatei ebenfalls Zugriff hat, gibt mir das Programm einen Fehler wieder. Der Debugger zeigt an, dass sich der Fehler in folgender Zeile befindet: Tabelle1.Range("B1").Select (4. von unten)
Sub Auto_open()
Cells.Select
Selection.ClearContents
Tabelle1.Cells(1, 1).Value = "Ticker"
Worksheets("Tabelle1").Range("A1").Font.Bold = True
Tabelle1.Cells(2, 1).Value = "ISIN"
folderspec = "H:\SEKRET\BONDS\Praktikanten\Claus\EN00\en00-Neu_Stefan\"
' Files definieren
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
' alle definierten Files ansprechen
For Each f1 In fc
Name = f1.Name
' Bedingung, dass CSV-Datei
If Right(Name, 3) = "csv" Then
Name = folderspec + Name
' Mappe öffnen
Workbooks.Open (Name)
Range("B5:C530").Select
Selection.Copy
Workbooks(1).Activate
Tabelle1.Range("B1").Select
ActiveSheet.Paste
End If
Next
Er öffnet also auch auf diesem PC die Quelldatei korrekt, markiert das Ziel, kopiert es, scheint aber dann nicht die Zieldatei zu erkennen. Hat jemand eine Idee, warum er das auf dem einen PC kann, auf dem anderen aber nicht?
Bin über jeden Tip Sehr dankbar. Lg Stefan |