bitte um Hilfe. Ich bin scheinbar doch zu blöd.
Fehlermeldung Index Außerhalb d. gültigen Bereichs in der Set Anweisung zu wksSource.
Was hab ich denn schon wieder nicht begriffen?
Gruß Jens
bitte um Hilfe. Ich bin scheinbar doch zu blöd.
Fehlermeldung Index Außerhalb d. gültigen Bereichs in der Set Anweisung zu wksSource.
Was hab ich denn schon wieder nicht begriffen?
Gruß Jens
die Datei hat bestimmt den Namen
"Quelldatei.xls"
Gruß Hajo
mein Helfer in der Not. ;-)
Ne, heißt anders.
Ist ja variabel zum Einlesen.
siehe:
QuellDatei = Application.GetOpenFilename("ExcelDateien (*.xls), *.xls")
Gruß Jens
dann ohne Anführungszeichen
Gruß Hajo
auch nicht. Das muß irgendwie an dem Worksheets(1) liegen.
Set wksSource = Workbooks(QuellDatei).Worksheets(1)
Wenn die Zeile beim debuggen gelb hinterlegt ist un ich mit dem Cursor über die einzelnen Begriffe fahre:
wksSource : Nothing
Worksheets(Qu : Index außerhalb..
QuellDatei : "D:\blablabla\murx.xls"
Worksheets(1) : Index außerhalb..
Gruß Jens
ich habe es jetzt getest, hätte ich vielleicht gleich machen sollen. Ich gehe in mich.
Gruß Hajo
das verstehe ich nicht. Durch Workbook.Open wird die neu geöffnete Datei automatisch zum ActiveWorkbook. OK.
Warum kann ich in der Set Anweisung nicht explizit referenzieren, sondern nur über ActiveWorkbook.Name?
Das verstehe ich nicht.
Zusatzfrage:
'Werte aus erstem Blatt ohne Formatierung in Liste kopieren
Schaffe ich das noch bevor die Nacht vorbei ist? Oder hast Du vielleicht auch da was für mich?
Gruß Jens
auf der Variablen QuellDatei steht der Dateiname einschl. Phad für Workbooks wird aber nur der Dateiname benötigt.
hättet Du noch geschrieben welche dann wäre es ok gewesen darum nur ein Ansatz.
Gruß Hajo
"hättet Du noch geschrieben welche dann wäre es ok gewesen darum nur ein Ansatz." Was meinst Du mit welche?
Alles von wksSource nach wksTarget aber ohne Formate. Also Fett, andere Schriftgröße etc.
Gruß Jens
ändere den letzten Teil in
Gruß Hajo