excel vba Zeilen mit Daten in anderes Tabellenblatt nächste leere Zeile kopieren

Hallo Daniel

Vielen Dank. Es klappt bestens.

Dölr

Hallo Claus

Besten Dank, es hat bestens geklappt.

Dölf

Hallo Dölf,

hier der Code:

Sub CopyData()

    Dim lngLastRow1 As Long, lngLastRow2 As Long

    lngLastRow1 = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row    lngLastRow2 = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
    'wenn lngLastRow1 = 1 wird, dann gibt es nur die Spaltenbeschriftung und keine Daten    If lngLastRow1 > 1 Then
        Sheets("Tabelle1").Range("A2:R" & lngLastRow1).Copy        Sheets("Tabelle2").Range("A" & lngLastRow2 + 1).PasteSpecial xlValues

        Application.CutCopyMode = False

    End If
    'Zelle markieren    With Sheets("Tabelle2")
        'zunächst Tabellenblatt2 aktivieren        .Activate
        'dann erst die Zelle im Tabellenblatt2 aktivieren        .Range("A" & lngLastRow1 + lngLastRow2).Select
    End With
End Sub
Zunächst wird in beiden Tabellenblättern die jeweils letzte Zeile ermittelt. Abhängig davon, ob in Tabellenblatt1 mehr als eine Zeile (Spaltenbeschriftung) gibt, wird kopiert oder nicht. Anschließend wird im with Block die Zelle
 angewählt. Hier fehlte noch das vorherige Aktivieren von Tabellenblatt2.

Viel Erfolg und Frohes Schaffen!

Daniel

Hallo Claus

Ich präzisiere:

In der Tabelle1 befindet sich der zu kopierende Datenbereich. Das Makro (für kopieren und einfügen) befindet sich ebenfalls in diesem Arbeitsblatt. Diese Daten werden im Arbeitsblatt DB eingefügt. Dieses enthält bereits Daten, und die zu kopierenden Daten
sind unten, anschliessend einzufügen. Das Makro für den 1. Teil Kopieren der Daten markiert und kopiert korrekt. Beim 2. Teil Einfügen der Daten habe ich das Verhalten in meiner Frage oben dargelegt. Mit .Range("A" & iRow).Select
möchte ich, dass nach dem Einfügen der Cursor in die nächst leere Zeile in der Spalte A von Arbeitsblatt DB springt. Dies geht jedoch nicht.

Private Sub CommandButton2_Click()

'1. Kopieren der Daten

Dim LRows As Long 'Spalte, in der die letzte Zeile ermittelt werden soll

With Sheets("Tabelle1")

LRows = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'ermitellt letzte Zeile

.Range("A2" & ":R" & LRows).Copy

End With

'2. Einfügen der Daten

Dim iRow As Long

With Sheets("DB")

iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

.Range("A" & iRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

.Range("A" & iRow).Select

Application.CutCopyMode = False

End With

End Sub

Dölf

Hallo,

das ist etwas unverständlich.

Von welchem Blatt willst du kopieren? Wohin willst du nach dem Einfügen nach DB? Zurück in das Originalblatt oder in DB in die letzte leere Zelle?

Claus