ich möchte per Vba einen Datensatz aus einer Tabelle in eine andere Datei exportieren. Dieser neue Datensatz soll aber am Ende der Tabelle eingefügt werden und nicht immer in der selben Zelle. Unten seht ihr meinen Code. Wie muß ich ihn verändern, damit der Datensatz am Ende hinzugefügt wird? Ein nächster Schritt ist, dass er den Datensatz nur dann einfügt wenn der Name des Expoteurs (steht in einer Spalte) nicht schon vorhanden ist, ansonsten soll der bestehende Datensatz überschrieben werden. Vielen Dank für Eure Hilfe.
Sub Exportieren()
' Exportieren Makro
' Makro am 12.05.2005 von xxx aufgezeichnet
Range("C35:D35").Select
Selection.Copy
Windows("Fuel.xls").Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Ressourcen.xls").Activate
Range("C36:D36").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fuel.xls").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Ressourcen.xls").Activate
Range("G37:BH39").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fuel.xls").Activate
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Range("A4:A5").Select
ActiveSheet.Paste
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Range("B4:B5").Select
ActiveSheet.Paste
Range("C3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[3]:RC[54])"
Range("C3").Select
Selection.Copy
Range("C4").Select
ActiveSheet.Paste
Range("C5").Select
ActiveSheet.Paste
End Sub