Hallo Community,

ich sitze gerde vor einer Tabelle, die mich zum verwezifeln bringt. Ich habe eine Eingabemaske auf der ersten Seite. Die Daten werden per Makro in das Tabellenblatt "Zwischenspeicher" kopiert und sollen dann in das Tabellenblatt "Verarbeitung" in die letzte Freie Zeile kopiert werden. Mit dem Makro, das ich im Kopf hatte, funktioniert alles soweit. Naja fast, beim Kopieren der Daten in das Tabellenblatt "Verarbeitung" stockt es dann letzlich. entweder schreibt er mir in meine Kopfzeile oder er überschreibt mir einfach die vorherigen Daten.

Die daten sollen auf dem Tabellenblatt "verarbeitung" ab D3 eingefügt werden. Die Spalten A-C sind nicht zu berücksichtigen. Vor Zeile 3 kommt noch der Kopf und eine Info.

Anbei der verwendete Code. Ich wäre extrem dankbar, wenn jemand die zündende Idee hätte.

Danke euchGruß Bernd

Sub Übertragung()
'
' Übertragung Makro
'

'
    Sheets("Zwischenspeicher").Select
    Range("A2").Select
    Selection.EntireRow.Insert
    Sheets("Eingabemaske").Select
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("F2").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("G2").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Eingabemaske").Select
    Range("C6").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Selection.ClearContents
    Range("C8").Select
    Selection.ClearContents
    Range("C10").Select
    Selection.ClearContents
    Range("C12").Select
    Selection.ClearContents
    Range("C14").Select
    Selection.ClearContents
    Range("C16").Select
    Selection.ClearContents
    Range("C18").Select
    Selection.ClearContents
    Range("C20").Select
   'Bereich kopieren
Sheets("Zwischenspeicher").Range("A2:G2").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Verarbeitung").Cells(Rows.Count, 1).End(xlUp).Offset(rowOffset:=1, columnOffset:=3).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
    
End Sub