Kopierfunktion geht nicht...
29.04.2013 08:51:21
Toumas
ich habe mir folgendes Makro gebastelt :
Sub Scanlistekopieren()
Windows("TEST.xls").Activate
Sheets("Scanakten").Select
Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 6)).SpecialCells(xlCellTypeVisible) _
.Copy
Windows("Mappe1.xlsm").Activate
Sheets("Tabelle1").Select
LZ = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Tabelle1.Range("A" & LZ).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
End Sub
Es kopiert mir aus einer anderen, geöffneten Exceldatei alle Daten von A-F und kopiert diese in meine neue Datei (in dem Fall Mappe1, da es noch meine Testversion ist) in die nächste leere Zelle rein....Dies funktioniert mit meiner Testdatei auch super gut
Nun komme ich an ein Problem. Die eigentliche Datei, aus der die Daten gezogen werden sollen, liegt bei uns im Intranet auf einem Laufwerk, welches über einen
HTTP-Link angesteuert werden kann. Um die Datei zu öffnen, benötigt man Benutzername und Passwort.
Nun dachte ich, da ich die Datei eh vorher von Hand öffne, wird das Makro hier auch funktionieren, aber leider kommt immer die Fehlermeldung :
Index außerhalb des gültigens Bereichs
ich habe es schon versucht mit :
Windows("XXX*.xls*").Activate
usw. aber auch die * als Platzhalter helfen da nicht....
Habt ihr mir einen Tipp ?
Viele Grüße
Toumas