Werte fortlaufend in naechste leere Zelle kopieren

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Experten!

Wie schaffe ich es mit Hilfe von VBA, Werte fortlaufend in die naechste freie Zelle innerhalb einer Spalte kopieren zu lassen?

Ich nehme also in Sheet 1 Werte von A1:A5 auf und kopiere sie in Sheet 2 von A1:A5.
Nun moechte ich neue Werte, wieder in A1:A5 in Sheet 1 unter die alten Werte in Sheet 2 kopieren lassen, also von A6:A10.

Bin leider gnadenlose daran gescheitert, auch wenn es mit einer Schleife eigetnlich klappen muesste.
Bin also fuer jede etwaige Hilfe aeusserst dankbar!

#2

Wie schaffe ich es mit Hilfe von VBA, Werte fortlaufend in die
naechste freie Zelle innerhalb einer Spalte kopieren zu
lassen?
Ich nehme also in Sheet 1 Werte von A1:A5 auf und kopiere sie
in Sheet 2 von A1:A5.
Nun moechte ich neue Werte, wieder in A1:A5 in Sheet 1 unter
die alten Werte in Sheet 2 kopieren lassen, also von A6:A10.
Bin leider gnadenlose daran gescheitert, auch wenn es mit
einer Schleife eigetnlich klappen muesste.

Hi Schleicher,

mir völlig unklar was du da vorhast.

So sieht der Code aus wenn ich das was ich verstanden habe umsetze:

Option Explicit
'
Sub tt()
Dim N As Integer, Zei1 As Long, wks1 As Worksheet
Set wks1 = Worksheets(1)
With Worksheets(2)
 For N = 1 To 10
 Zei1 = .Cells(Rows.Count, 1).End(xlUp).Row
 If .Cells(1, 1) = "" Then Zei1 = 0
 wks1.Range("A1:A5").Copy Destination:=.Cells(Zei1 + 1, 1)
 Next N
End With
End Sub

Gruß
Reinhard

#3

Schonmal vielen herzlichen Dank!!

Leider klappt das noch nicht so ganz, mit diesem Code moechte sich immer ein neues Workbook erstellen.

Werte, die in Sheet 1 immer in die gleichen Zellen eingefuegt werden, sollen mittels eines schon bestehenden Buttons (wenn man diesen drueckt) in Sheet 2 der gleichen Mappe kopiert werden. Da jedoch jeden Tag neue Werte hinzukommen, sollen die neue in Sheet 2 kopierten Werte unter die alten geschrieben werden.

Mir fehlt leider der Befehl, dass sich die neuen Werte immer unter die alten setzen.

#4

Hi Schleicher,

Leider klappt das noch nicht so ganz, mit diesem Code moechte
sich immer ein neues Workbook erstellen.

? Wieso dass denn? Im Code steht davon nix!

Werte, die in Sheet 1 immer in die gleichen Zellen eingefuegt
werden, sollen mittels eines schon bestehenden Buttons (wenn
man diesen drueckt) in Sheet 2 der gleichen Mappe kopiert
werden. Da jedoch jeden Tag neue Werte hinzukommen, sollen die
neue in Sheet 2 kopierten Werte unter die alten geschrieben
werden.

Sub tt()
Dim Zei1 As Long, wks1 As Worksheet
Set wks1 = Worksheets(1)
With Worksheets(2)
 Zei1 = .Cells(Rows.Count, 1).End(xlUp).Row
 If .Cells(1, 1) = "" Then Zei1 = 0
 wks1.Range("A1:A5").Copy Destination:=.Cells(Zei1 + 1, 1)
End With
End Sub

Gruß
Reinhard

2 Like
#5

Hallo Reinhard!
Perfekt, der Code funktioniert einwandfrei.

Vielen herzlichen Dank und einen schoenen Tag noch! :smile:

Lg
Stefan

#6

Moin,

im übrigen kann man in excel einfach die Makroaufziehnung starten, alles manuell druchführen und bekommt so jeden Code genereirt…

Gruß

Bernd