Datenimport in neues Tabellenblatt anfügen
01.02.2017 07:46:49
Matze
ich bin die letzte Zeit immer wieder durch diverse VBA Probleme im Forum unterwegs gewesen und nun ist es doch mal so weit, dass ich weitere Hilfe benötige und mich endlich registriert habe.
Mein Problem ist folgendes:
Ich habe einen Datenimport aus einer Textdatei der periodisch importiert wird. Immer identische Spaltenanzahl, jedoch unterschiedliche Zeilenanzahl. Da der Datenimport die alten Dateien überschreibt will ich die Daten nach dem Import via Makro in ein neues Tabellenblatt kopieren und die Daten beim nächsten Import an die bereits bestehenden Daten im neuen Tabellenblatt anhängen. Quasi eine immer länger werdende Liste.
Ich habe mir bereits ein bisschen was zusammengezimmert und das Makro tut auch schon seinen Dienst ABER leider kann es die neuen Daten immer nur im selben Tabellenblatt an einen nach rechts verschobenen Datensatz anfügen.
Kann mir jemand hierbei weiterhelfen wie ich "Tabelle2" angewählt kriege und die Daten dort anfü _ gen kann? Momentan treten bei allen Varianten die mir einfallen im bereich von "Selection.Find" im zweiten Teil meines Makros Fehler auf.
Sub einsetzen()
' Daten im Bereich (A1 bis C100) markieren und kopieren
Range("A1:C100").Select
Selection.Copy
' In Spalte E nach der ersten leeren Zelle suchen
Columns("E:E").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Select
' Markierte Daten als Werte einfügen
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Grüße,
Matze