Microsoft Excel

Herbers Excel/VBA-Archiv

Zellenänderung

Betrifft: Zellenänderung von: Josi
Geschrieben am: 09.09.2004 23:32:38

Gute Nacht
zusammen.

Habe folgendes Problem
In Tabelle 1 steht in Zelle A1 ein Wert. Jedes Mal wenn dieser Wert geändert wird soll der alte Wert in Tabelle 2 in Spalte A immer unten angefügt werden, so dass ich dort alle bisherigen Werte sehen kann.

Vielen Dank für eure Hilfe

Josi

  


Betrifft: AW: Zellenänderung von: Ramses
Geschrieben am: 09.09.2004 23:42:45

Hallo

Mauszeiger auf Tabellenreiter von Tabelle1
Rechte Maustaste - Code anzeigen
code von hier kopieren und dort einfügen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tWks As Worksheet
Set tWks = Worksheets("Tabelle2")
If Target.Address(False, False) = "A1" Then
    tWks.Cells(tWks.Cells(65536, 1).End(xlUp).Row + 1, 1) = Target.Value
End If
End Sub


Gruss Rainer


  


Betrifft: AW: Zellenänderung von: Josi
Geschrieben am: 09.09.2004 23:53:45

Vielen Dank
könnte man es noch ein klein wenig erweiter, indem die benachbarte Zelle B1 mitkopiert wird

Gruß Josi


  


Betrifft: AW: Zellenänderung von: WernerB.
Geschrieben am: 10.09.2004 07:34:17

Hallo Josi,

versuche es mal so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tWks As Worksheet
    Set tWks = Worksheets("Tabelle2")
    If Target.Address(False, False) = "A1" Then
      tWks.Cells(tWks.Cells(65536, 1).End(xlUp).Row + 1, 1) = Target.Value
      tWks.Cells(tWks.Cells(65536, 1).End(xlUp).Row + 1, 2) = Target.Offset(0, 1).Value
    End If
End Sub

Viel Erfolg wünscht
WernerB.