3 Fragen :-)

Sub SpalteCompleteCopy() Application.ScreenUpdating = False Application.DisplayAlerts = False ' Diese Variante 1 funktioniert tbl_Quelle.Range("D1:D48576").Offset(1, 0).Copy Destination:=tbl_Ziel.Range("F2") ' ' Diese Variante 2 funktioniert nicht ' tbl_Quelle.Range("D1:D" & .Rows.Count).Offset(1, 0).Copy Destination:=tbl_Ziel.Range(" _ F2") tbl_Ziel.Range("F2:F48576").NumberFormat = "General ""m²""" tbl_Ziel.Columns("F:F").AutoFit endmacro: Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "Complete" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
1. du schreibst den Punkt, dann brauchst du aber auch eine WITH-Klammer, in welcher du definierst, welches das Objekt sein soll, das eingesetzt wird wenn die Objektkette mit einem Punkt beginnt.
alternativ kannst du auch schreiben "tbl_Quelle.Rows.Count"
oder einfach nur nur "Rows.Count", da im Prinzip alle Tabellenblätter die gleiche Anzahl zeilen haben, ist es auch egal, auf welchem gezählt wird.
hierfür gibt es aber zwei Ausnahmen, bzw Fälle, in welchen man das Tabellenblatt vor Rows.Count angeben muss:
a) du arbeitest gleichzeitig mit Dateien mit dem alten 2003er-Format (xls) und dem neuen 2007er-Format (xlsx, xlsm, xlsb)
b) du hast Diagrammblätter, welche zufällig aktiv sein könnten und dann versuchst auf diesen die Zeilen zu zählen.
btw, da ist auch nicht nur der Punkt ohne WITH falsch.
mit tbl_Quelle.Range("D1:D" & .Rows.Count) hast du die ganze Spalte und könntest auch einfach ...Range("D:D") schreiben
ebenso kann man eine ganze Spalte nicht um 1 nach unten versetzen (.Offset), weil darunter nichts ist.
Außerdem muss man eine ganze Spalte immer in Zeile 1 einfügen, sonst hat sie keinen Platz und letzten Zellen des einzufügenden Bereichs würden über den unteren Rand des Blattes hinausragen.
Du meinst wahrscheinlich:

 tbl_Quelle.Range("D2:D" & tblQuelle.Cells(Rows.Count, 4).end(xlup).row).Copy

2. im Prinzip ja.
ist ja nicht viel drin. Screenupdating und DisplayAlerts musst du da nicht ausschalten.
ScreenUpdating aus bringt nur was, wenn man noch viel mit Select und Activate arbeitet (was du nicht machst)
Aktionen, die eine Systemrückfrage bewirken könnten, sollten auch nicht dabei sein.
3. ist wumpe.
Formeln schauen immer auf den Unformatierten Zellewert. VBA-Auswertungen mit .Value auch.
höchsten wenn du .Text einsetzt und dann versuchst den Text in eine Zahl zu wandeln, könnte es probleme geben.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread