Re: ich auch wg. Zeilen einfügen
03.05.2003 11:07:24
Holger
Hi Mikehat nicht geklappt, aber folgendes funktioniert tadellos -->
Sheets("30W").Select
ActiveWindow.SmallScroll Down:=21
Range("E46").Select
Selection.Copy
Sheets("Histo. Daten").Select
Columns("C:C").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
Dabei holt sich das Makro die Daten aus dem Tabellenblatt 30W und kopiert diese in das Blatt Histo. Daten in die Spalte C und dort in die erste freie Zelle. Übernommen werden mit diesem Makro allerdings lediglich die Inhalte, nicht die Formatierungen der Kopierten Zelle E46 aus dem Blatt 30W.
ciao
Holger