Office: Excel 2003 Kopieren mehrerer Zellen mit VBA

Hallo,

ich bin ganz frisch in VBA deshalb bitte ich um Nachsicht. :-)

Folgendes:

Erstens: Ich kopiere eine Zelle in einem Tabellenblatt und füge sie auf einem anderen Blatt ein. Dann die nächste etc. s.u.
Wie kann ich es gleich zusammenmachen. Leider bekomme ich immer einen Fehler, wenn ich es versuche.

Zweitens: Wie ist die Syntax, wenn die Zellen nicht zusammenhängen, sondern ggf. eine frei ist.

Drittens: Was ist an meiner Syntax ggf. noch überflüssig?

Application.CutCopyMode = False 'Löschen des Kopierspeichers
Sheets("Eingabemaske").Activate
Sheets("Eingabemaske").Cells(16, 6).Copy

Sheets("Ausgabeblatt").Activate
Sheets("Ausgabeblatt").Cells(16, 6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Spezialeinfügen ("Inhalte einfügen" --> "Werte einfügen")
Application.CutCopyMode = False

Application.CutCopyMode = False 'Löschen des Kopierspeichers
Sheets("Eingabemaske").Activate
Sheets("Eingabemaske").Cells(17, 6).Copy

Sheets("Ausgabeblatt").Activate
Sheets("Ausgabeblatt").Cells(17, 6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Spezialeinfügen ("Inhalte einfügen" --> "Werte einfügen")
Application.CutCopyMode = False

usw.


Vielen Dank schonmal im Voraus!

Todde

 

Hallo!

Ungetestet sollte das hier reichen:

Code:

Sheets("Eingabemaske").Range("F16:F17").Copy
Sheets("Ausgabeblatt").Range("F16:F17").PasteSpecial Paste:=xlPasteValues

 

Danke

Paßt,
vielen Dank!

Thorsten