Office: Kopieren per Makro + nächste Zeile usw., letzte Idee fehlt

Hallo Ihr Lieben,

dies ist meine erste Frage und ich hoffe sie ist nicht allzu dämlich! ;-)

Habe gerade auf Arbeit ne Tabelle erschaffen in der nach Variableneingabe in 6 Zellen Werte erscheinen (Blatt Eingabe). Danach habe ich ein zweites Blatt mit einer Auswertungstabelle angelegt (Blatt Sammeln) und ein Makro aufgezeichnet (löst durch Strg. + w aus) welches dazuführt, das die aktuelle Werte von "Eingabe" nach "Sammeln" kopiert werden (nur die angezeigten Werte). Ich scheitere jetzt daran, dass nach jedem Drücken von Strg. + w die Werte aus "Sammeln" in der nächsten Zeile stehen. So wie es jetzt ist überschreibt er immer wieder C6 und springt auf C7 (6 und 7 müssten also startend bei 6 pro Kopiervorgang um einen Wert erweitert werden).

Sub Werte_kopieren()
'
' Werte_kopieren Makro
' Makro am 03.01.2011 von b0852 aufgezeichnet
'
' Tastenkombination: Strg+w
'
Range("B18:G18").Select
Selection.Copy
Sheets("Sammeln").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C7").Select
End Sub

Vielen Dank für Eure Hilfe!!!

:)

 

Hi dmx79co

das Makro ist im Blatt Eingabe gespeichert? Dann musst Du für Operationen auf Blatt Sammeln dies auch extra angeben.

Code:

 

Hallo dmx79co,

vielleicht so:

Code eingefügt mit

 

Habe soeben das makro neu aufgezeichnet und im makro nach dem einfügen der werte eine neue zeile oberhalb eingefügt. damit ist das problem für mich gelöst. danke

 

Danke für Eure antworten, ich glaub ich muss mal einen VBA-Kurs besuchen!! ;-)

Sieht jetzt so aus:

Sub Makro4()
'
' Makro4 Makro
' Makro am 03.01.2011 von b0852 aufgezeichnet
'
' Tastenkombination: Strg+e
'
Range("B18:G18").Select
Selection.Copy
Sheets("Sammeln").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("7:7").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("B7").Select
Sheets("Eingeben").Select
End Sub