Office: Daten per Makro übertragen

Hallo liebes Forum,

ich habe ein kleines Problem.
Ich haben hier in der Firma eine Quellenliste die ewig lang ist.

Damit es einfacher wird die neuen Quellen einzutragen dachte ich an ein Makro dass die Daten in einer Tabelle an das Ende einer 2. Tabelle kopiert.
Allerdings kenne ich mich mit Makros kaum aus und mein aufgezeichnetes funktioniert nicht.

Die Daten stehen untereinander (B6-B15) und sollen in der zweiten Tabelle nebeneinander (A1-J1) stehen. Die Daten aus der 1. Tabelle sollen danach gelöscht werden.

Könnt ihr mir da vielleicht weiterhelfen?

Liebe Grüße Susi.

 

Hallo nochmal ...

ich habe es jetzt doch (fast) geschafft.

Code:

Sub Makro1()
    Sheets(1).Range("B6:B15").Copy
    zeile = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets(2).Cells(zeile, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
End Sub

Jetzt fügt er meinen Inhalt aus der ersten Tabelle zwar in die zweite Tabelle in die zweite Zeile ein, aber er überschreibt diesen einfach immer wieder.

Könnt ihr mir kurz schreiben wo ich da nen Fehler gemacht habe?[/code]

 

Hallo!

Also bei mir macht dein Code genau was er soll:
Beim erstenmal wird in Zeile 2 eingefügt, beim zweitenmal in Zeile 3, usw.

 

jep ... bei mir auch, keine ahnung woran es gelegen hat.