Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellenänderung

Zellenänderung
09.09.2004 23:32:38
Josi
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenänderung
Ramses
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
AW: Zellenänderung
Josi
Vielen Dank
könnte man es noch ein klein wenig erweiter, indem die benachbarte Zelle B1 mitkopiert wird
Gruß Josi
AW: Zellenänderung
WernerB.
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.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige