VBA Werte in nächste freie Zeile einfügen

[Olerostock]

Hi Uwe,

bis zu dem Punkt wo die Daten aus der einen Datei in das Sheet der Zieldatei eingefügt werden soll läuft es.
Dann kommt aber Laufzeitfehler '438'
Objekt unterstützt diese Eigenschaft oder Methode nicht.

Code-Zeile

RNGZ.Resize(RNGQ.Rows.Cout, RNGQ.Columns.Count).Value = RNGQ.Value

Gruß Ole

---

Hi Uwe,

Fehler von mir. Nicht Cout sondern Count Peinlich und Danke für deine schnelle Hilfe.

Gruß Ole

---

Hi Uwe,

ich habe in Spalte A und B Daten stehen und wenn ich deinen Code verwende, dann fügt er die Daten zwar in die Spalte C ein, aber erst nach dem letzten Eintrag in Spalte B. Dazu hatte ich "Set RNGZ = TBZ.Cells(LR + 1, 3) 'Zielzelle" verwendet. Die Daten sollen aber in die erste freie Zelle von Spalte C und die Spalten A und B nicht beachten.
Was muss ich am Code ändern, damit es klappt?

Sorry für die Umständlichkeit von mir.

Gruß Ole

[Gast 123]

Hallo Ole

wenn du in VBA fiter wirst, siehst du selbst am Code wo der "Hase" falsch läuft. Schu bitte mal hier!
LR = TBZ.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
d.h. die LastZell von ALLEN Spalten!!   Ändere die LastZell bitte auf Spalte C ab.
LR = TBZ.Cells(Rows.Count, 3).End(xlUp).Row  'LastZell in Spalte C
Set RNGZ = TBZ.Cells(LR + 1, 2) 'Zielzelle

mfg Gast 123

[Olerostock]

Moin gast123,

Danke für deine Hilfe. Ich habe es wohl jetzt endlich verinnerlicht und abgespeichert.

Ganz großen Dank!!!

Gruß Ole