Zellen kopieren

Hallo liebe Excelexperten ich beschäftige mich mit einem Problem und komme einfach nicht weiter.
Im Tabellenblatt 1 werden immer und nur in die zelle a1 (ist Bedingung) ständig neue werte eingetragen.
Beim überschreiben gehen ja jedesmal diese Werte verloren.
Nun versuch ich eine Formel zufinden oder auch ein Macro zuschreiben welches die alten Werte aus Zelle a1 automatisch in ein anderes
Tabellenblatt2 untereinander einfügt.
So das nach 10 neu eingetragenen Werten in A1 im Tabellenblatt2 zehn Werte untereinander stehen.
Z.Beispiel: als Macro: kopiere A1 nach Tab.2 zu b1 aber in die nächst angrenzende leere Zelle B2.
Wer hat da eine passende Lösung. Ich arbeite schon seit 10 Jahren im selbststudium mit Excel und habe mein Büroprogramm selbst erarbeitet.
Nur an dieser Stelle komme ich halt nicht weiter. und mit Access will ich nicht unbediengt arbeiten.
Also ich freue mich auf kreative Lösungen
Vielen Dank Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lastTR As Integer Dim tarWks As Worksheet If Target.Address(False, False) = "A1" Then Set tarWks = Worksheets("Tabelle2") lastTR = tarWks.Range("A65536").End(xlUp).Row If lastTR > 1 Then lastTR = lastTR + 1 End If tarWks.Cells(lastTR, 1) = Target.Value Target.Select End If End Sub

Hallo Reiner
Das Untereinanderschreiben klapp für zelle A1. Wie gegt das nun wenn bei B1 dasselbe wie bei A1 passieren soll?
Ich habs mal so probiert .....
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastTR As Integer
Dim tarWks As Worksheet
If Target.Address(False, False) = "A1" Then
Set tarWks = Worksheets("Tabelle2")
lastTR = tarWks.Range("A65536").End(xlUp).Row
tarWks.Cells(lastTR + 1, 1) = Target.Value
Target.Select
End If
If Target.Address(False, False) = "B1" Then
Set tarWks = Worksheets("Tabelle2")
lastTR = tarWks.Range("B65536").End(xlUp).Row
tarWks.Cells(lastTR + 1, 1) = Target.Value
Target.Select
End If
End Sub

aber da werden die Werte alle in die Spalte A unten oder oben angefügt.
Kannst noch mal Helfen?

Private Sub Worksheet_Change(ByVal Target As Range) Dim lastTR As Integer Dim tarWks As Worksheet If Target.Address(False, False) = "A1" Then Set tarWks = Worksheets("Tabelle2") lastTR = tarWks.Range("A65536").End(xlUp).Row tarWks.Cells(lastTR + 1, 1) = Target.Value Target.Select End If If Target.Address(False, False) = "B1" Then Set tarWks = Worksheets("Tabelle2") lastTR = tarWks.Range("B65536").End(xlUp).Row tarWks.Cells(lastTR + 1, 2) = Target.Value Target.Select End If End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread