Anzeige
Archiv - Navigation
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler auf anderem PC

Fehler auf anderem PC
19.01.2016 12:35:44
Gregor
Hallo zusammen
Folgender Code:
Workbooks(strFile).Worksheets("329_P96").Range(Cells(Erste_Zeile, 2), Cells(Erste_Zeile, iSpalte)).Copy Destination:=Workbooks(Masterdateiname).Worksheets(Blattname).Cells(1, 1)
läuft auf meinem PC ohne Fehlermeldung, auf einem anderen PC wird bei diesem Code die Fehlermeldung 1004 generiert. Ich finde nicht heraus, woran das liegen könnte. Alle Variablen haben einen eingelesenen Wert.
Woran kann das liegen?
Vielen Dank und Gruss
Gregor

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler auf anderem PC
19.01.2016 12:42:54
Nepumuk
Hallo,
die Bezüge in deinem Range passen nicht. Das Range-Objekt wird an eine bestimmte Tabelle verwiesen, die Cells-Objekte beziehen sich auf die aktive Tabelle. Test mal so:
With Workbooks(strFile).Worksheets("329_P96")
    .Range(.Cells(Erste_Zeile, 2), .Cells(Erste_Zeile, iSpalte)).Copy _
        Destination:=Workbooks(Masterdateiname).Worksheets(Blattname).Cells(1, 1)
End With

Gruß
Nepumuk

Anzeige
AW: Fehler auf anderem PC
19.01.2016 12:44:05
Rudi
Hallo,
das klappt nur, wenn Workbooks(strFile).Worksheets("329_P96") aktiv ist.
besser:
with Workbooks(strFile).Worksheets("329_P96")
.Range(.Cells(Erste_Zeile, 2), .Cells(Erste_Zeile, iSpalte)).Copy Destination:=Workbooks(Masterdateiname).Worksheets(Blattname).Cells(1, 1)
End with
Gruß
Rudi

AW: Fehler auf anderem PC
20.01.2016 08:32:28
Gregor
Vielen Dank an beide, ich werde das prüfen.
Gruss Gregor

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige