Excel VBA bis letzte Zelle markieren

Question

Halllo zusammen,

ich hab jetzt ewig gesucht aber irgendwie nicht die passende Antwort auf mein Problem gefunden.

Ich habe eine Tabelle mit mehreren Tabellenblättern. Mittels Makro sollen Daten aus mehreren Blättern in 1 Tabellenblatt zusammengefasst werden.

Die Zusammengefassten Daten sollen in Blat Tab1 stehen.

So jetzt das eigentliche Problem.
Es soll aus Blatt Tab2 der Bereich C4 bis letzte beschrieben Zelle in Spalte C kopiert werden und dann in der ersten freien Zelle von Spalte A in Tab1 eingefügt werden. Außerdem soll in Tab2 noch Spalte F4 kopiert werden und dies wieder genauso weit wie in Spalte C, weil darunter noch eine Summe steht, die nicht mitkopieren werden soll. Die kopierte Spalte soll dann wiederum in Tab1 Spalte B eingefügt werden direkt neben dem was aus Spalte C eingefügt wurde.

Ach benutzt wird Office 2010

Schonmal vielen Dank im Voraus für die Hilfe

Gruß Chris

Answer 1

Ok super der Fehler ist weg, jetzt hat sich die Fehlermedlung jedoch nach weiter unten verlagert.

Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler

Hier aufgetreten:

'Daten kopieren
'aus Tab2, Spalte C in Tab1 Spalte A
Worksheets("Tab2").Range(Cells(4, 3), Cells(lzeilec, 3)).Copy Destination:=Worksheets("Tab1").Cells(lzeilea + 1, 1)

Answer 2

Hallo,

versuch es mal so:

Sub kopieren()

Dim lzeilea, lzeilec As Long

'letzte beschriebene Zeile in Tab1, Spalte A ermitteln
lzeilea = Worksheets("Tab1").Cells(Rows.Count, 1).End(xlUp).Row

'letzte beschriebene Zeile in Tab 2, Spalte C ermitteln
lzeilec = Worksheets("Tab2").Cells(Rows.Count, 3).End(xlUp).Row

'Daten kopieren
'aus Tab2, Spalte C in Tab1 Spalte A
With Worksheets("Tab2")
.Range(Cells(4, 3), Cells(lzeilec, 3)).Copy Destination:=Worksheets("Tab1").Cells(lzeilea + 1, 1)

'aus Tab2, Spalte F in Tab1 Spalte B
.Range(Cells(4, 6), Cells(lzeilec, 6)).Copy Destination:=Worksheets("Tab1").Cells(lzeilea + 1, 2)
End With

End Sub

Gruß

M.O.

Answer 3

Hallo,

Ok ich habs jetzt aus ner Mischung von euren codes und meinen probiert und jetzt funktionierts

Vielen Dank

Gruß Chris