Hallo,

wir kopieren hier von einer (Eingabe) auf die andere (Datenbank) Seite ein paar Zellen. In der Datenbank ist alles tabellarisch aufgelistet.

Mit dem angefügten Makro klappt alles, nun hab ich so das Gefühl das man den Code vereinfachen kann. Bei der Ausführung „zappel“ Excel auch immer hin und her, kommt wohl daher da alles einzeln kopiert wird.

Kann man auch alles auf einmal kopieren?

Grüße und Danke

Set Eingabebereich = Sheets("Eingabe").Range("B9")
Eingabebereich.Copy
Sheets("Datenbank").Select
Range("a3").Select
Set zielbereich = Range("a1")
zielbereich.CurrentRegion.Cells(zielbereich.CurrentRegion.Rows.Count + 1, 1).Range("a1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Set Eingabebereich = Sheets("Eingabe").Range("E9")
Eingabebereich.Copy
Sheets("Datenbank").Select
Range("b3").Select
Set zielbereich = Range("a1")
zielbereich.CurrentRegion.Cells(zielbereich.CurrentRegion.Rows.Count, 1).Range("b1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Set Eingabebereich = Sheets("Eingabe").Range("H9")
Eingabebereich.Copy
Sheets("Datenbank").Select
Range("c3").Select
Set zielbereich = Range("a1")
zielbereich.CurrentRegion.Cells(zielbereich.CurrentRegion.Rows.Count, 1).Range("c1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Set Eingabebereich = Sheets("Eingabe").Range("B17")
Eingabebereich.Copy
Sheets("Datenbank").Select
Range("d3").Select
Set zielbereich = Range("a1")
zielbereich.CurrentRegion.Cells(zielbereich.CurrentRegion.Rows.Count, 1).Range("d1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Cells(ActiveCell.Row, 1).Select

Set zielbereich = Range("a1")
nummer = zielbereich.CurrentRegion.Cells(zielbereich.CurrentRegion.Rows.Count, 1).Range("a1").Value
nummer = nummer + 1