Daten per VBA in andere Tabelle übertragen

Question

Moin!

Ich habe eine Exceldatei in der ich gern über eine Eingabemaske (ganz einfach per Excel gemacht) Daten eingebe und die dann per Makro in eine andere Tabelle in der alle Eingaben gesammelt werden übertragen werden

Ich hab mal ein Makro erstellt das aber noch nicht so funktioniert wie es soll.
Die Daten werden zwar von der Tabelle "Eingabe" in die Tabelle "Vegesack" übertragen aber auch nur in die selber Zeile (Testzeile ist 370)
Das ist natürlich blödsinn wenn ständig die Daten überschrieben werden
Ich möchte gern das jede Eingebe eine Zeile unter der letzten gemacht wird
Die Daten aus der Tabelle "Eingabe" sollen dann auch wieder gelöscht werden (außer das Datum und die Verkaufsstelle

Gut wäre wenn es "unsichtbar" verläuft. Im Moment sehe ich immer wie die Daten in Tabelle "Vegesack" eingetragen werden und bleibe bei der letzten eingetragenen Zeile stehen und muss manuell zur Tabelle "Eingabe" zurück

Zum besseren Verständnis hier meine Datei
http://www.file-upload.net/download-4377740/Kunden-1.5---Kopie.xlsm.html

Hier mal das Makro das ich zusammen geschustert habe

Sub Test()
'
' Test Makro
'

'
Range("D7").Select
Selection.Copy
Sheets("Vegesack").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Eingabe").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vegesack").Select
Range("B370").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Eingabe").Select
Range("D10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vegesack").Select
Range("C370").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Eingabe").Select
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vegesack").Select
Range("D370").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Eingabe").Select
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vegesack").Select
Range("E370").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Eingabe").Select
Range("D13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vegesack").Select
Range("F370").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Eingabe").Select
Range("D14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vegesack").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Range("L370").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Eingabe").Select
Range("D15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vegesack").Select
Range("O370").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Danke schonmal für eure Hilfe

Answer 1

Hoppla
Was noch wichtig wäre
Ich benutze Excel 2007

Answer 2

Hallo,

Ich nutze leider nur die 2003er Version, daher kann ich die von Dir hochgeladene Datei (Excel2007) nicht zur Gänze überblicken, da es beim downloaden wie immer Konvertierungsprobleme gibt.

Was die Datenerfassung in der Tabelle "Eingabe" betrifft würde nach meinem Dafürhalten eine UserForm ausreichen.

Habe gerade für mich ein Konzept fertiggestellt und könnte mir vorstellen, dass es im Prinzip das ist was Du brauchst.

UserForm2 besteht aus Textboxen und Comboboxen
UserForm1 nur Textboxen

Schau es Dir einmal unverbindlich an.

Konzept

Gruß

Paul1

Answer 3

Hallo ExcelMan,
ich hoffe ich habe auf die schnelle nichts übersehen oder verwechselt.
Versuch mal Makro Test1.
Durch die Berechnung deiner Formeln dauert das Übertragen der Daten etwas länger.

Gruß
fedjo

Kunden Kopie

Answer 4

@ fedjo
danke das sieht super aus und macht auch das was ich will und dazu noch einfach anpassbar

@ Paul1
hm leider weiß ich mit deinem Vorschlag nichts anzufangen
Aber trotzdem danke für die Mühe

mfg
ExcelMan