Zellenwerte immer in eine freie Zelle kopieren

Computer: Software & Programmierung Office Software
1

Hallo,
in die Zelle B12 werden Werte beliebig eingegeben. Diese sollen in eine Liste archiviert werden, die ab der Zelle I14 anfangen, durch den klick eines CommandButton. Nach jedem klick soll der Wert der gerade in B12 steht immer in die nächste freie Zelle der Archivierungsliste kopiert werden.

Das ist der Code den der Commandbutton ausführt. Es ist bis jetzt noch das einfache Wertekopieren.

Private Sub CommandButton_Click()
Range(„B12“).Select
Selection.Copy
Range(„I14“).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Wie muß ich diesen Code verändern das er wie oben beschrieben sich immer die nächste freie Zelle suchst, beginnend ab I14???

MFG Xen55

2

Hallo Xen55,

ich habe zwar nicht mit commandbuttonclick gearbeitet, aber von der
Logik sollte es mit

offset_1 = Range(„I14“).CurrentRegion.Rows.Count
Range(„I14“).Offset(offset_1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

=False, Transpose:=False

gehen, wenn Du dies : Selection.Copy
einfügt, den select und den paste Befehl herausnimmst.

Gruß

Frank

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]