Re: in die nächste freie Zelle einfügen
03.05.2003 18:14:44
Holger
hi Lydiaich hatte gestern ein ähnliches Problem, hier mal eine Lösung,
wie du etwas aus einem Tabellenblatt in ein anderes kopieren kannst
und dort dann immer in die erste freie Zelle der Spalte A (Beispiel).
Dies Makro kopiert auch nur die Werte einer Zelle in eine andere, nicht die Formeln, Formatierungen usw.
Hier werden nun die Werte der Zelle A1 des Blattes "Tabelle1" in die "Tabelle2" in die erste freie Zelle der Spalte A eingetragen.
Du brauchst jetzt eigentlich nur noch die Tabellenblatt-Namen zu ändern und die jeweiligen Zellen/Spalten, aus denen Kopiert und in die Eingetragen werden soll.
Vielleicht hilft dir das....
ciao
holger
Sub ()
Sheets("Tabelle1").Select
Range("A1").Select
Selection.Copy
Sheets("Tabelle2").Select
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False