Via VBA fortlaufende Liste führen (Excel 2010)

Question

Hallo zusammen

Wie kann man per VBA (via Button) den Wert aus einer bestimmten Zelle in eine andere Tabelle eintragen lassen? Es soll eine fortlaufende Liste erstellt werden.
Beispiel: Beim Tabellenblatt1 wird in der Zelle A1 ein Wert manuell eingetragen und der Button angeklickt. Der Wert soll dann im Tabellenblatt2 in die Zelle A1 eingetragen werden. Wird im Tabellenblatt1 ein weiterer Wert in der Zelle eingegeben und der Button angeklickt, soll der Wert im Tabellenblatt2 in die nächste freie Zelle eingetragen werden.

Danke für eure Mithilfe.

Liebe Grüsse
donjuandan

Answer 1

hi :-)

einzufuegen
alt+f11 > projektexplorer > tabelle1

gruss nighty

Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then
Worksheets(2).Cells(Worksheets(2).Range(Worksheets(2).Cells(Rows.Count, 1), Worksheets(2).Cells(Rows.Count, 1)).End(xlUp).Row + 1, 1) = Target.Value
End If
Application.EnableEvents = True
End Sub

Answer 2

Hallo,

probier's ,al so:

Option Explicit

Private Sub CommandButton1_Click()
Dim ws2 As Worksheet
Set ws2 = Worksheets("Tabelle2")
ws2.Range("A" & ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1) = Range("A1").Value
End Sub

Gruß
Rainer

Answer 3

Danke für eure Antworten.

Rainer, Dein Code war genau das was ich gesucht habe :-)

lg
donjuandan