AW: Tabellenblatt kopieren
16.11.2022 18:28:42
Ronald
Vielen Dank.
Das klingt sehr gut. Ich habe jetzt nur das Problem, daß ich den Range nicht kenne und daher mittels Funktion erst herausfinden und dann als Variable hinterlegen muß.
Das sieht dann so aus:
lngAnzahlZeilenQuelle = wksheetQuelle.Cells.SpecialCells(xlCellTypeLastCell).Row
lngAnzahlSpaltenQuelle = wksheetQuelle.Cells(1, Columns.Count).End(xlToLeft).Column
wkbookQuelle.Worksheets("Tabelle1").Range(Cells(1, 1, Cells(lngAnzahlSpaltenQuelle, lngAnzahlZeilenQuelle))).Copy wkbookZiel.Sheets("Tabelle1").Range("A1")
Die wahrscheinlich längste Codezeile der Welt, wenn sie denn funktionieren würde...
Beim Debuggen markiert er das erste "Cells" im Range und schreibt: Fehler beim Kompilieren. Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft. Ich muß zugeben: ich habe nicht gewußt, wie man den Range mittels zweier Variablen angibt. Daher hab ich hier nachgeguckt:
https://www.ms-office-forum.net/forum/showthread.php?t=286569
Im drittletzten Beitrag stehts. Obs richtig ist, weiß ich nicht, zumindest funktionierts so nicht, sodaß ich nochmals um Hilfe bitten muß.
Danke im Voraus.
Gruß Ronald