Zelle beobachten und neue Werte speichern

Hi Leute,
ich hätt mal wieder ne Frage und hoffe ihr könnt mir helfen.
ich möchte gern eine Zelle beobachten und immer wenn der Wert sich ändert und nicht dem Altwert entspricht,
soll der Neue Wert in eine neue Zeile eines anderen Tabellenblatts geschrieben werden.usw usw.
Des soll dann so aussehen, dass ich in dieser Tabelle dann alle Werte der Beobachteten Zelle untereinander stehen habe. Daraus möchte ich dann ein Liniendiagramm machen.
Ich habe jetzt schon rumgedoktort mit
Private Sub Worksheet_Change(ByVal Target As Range) und intersect. Aber ich habe leider noch nichts brauchbares hinbekommen.
Hat jemand sowas schonmal gemacht und kann mir vieleicht helfen.
Vielen Dank schonmal.
Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim sZelle As String 'das beobachten Dim wksOutput As Worksheet 'hierhin beobachten Dim iColOut As Integer 'Spalte zum beobachten Dim lRow As Long 'Zelle A1 beobachten sZelle = "$A$1" 'hierhin die "Beobachtung" schreiben Set wksOutput = Sheets("Sheet2") 'Tabellenname ändern! iColOut = 1 'Output-Spalte ändern! A=1, B=2 usw If Target.Address = sZelle Then With wksOutput lRow = .Cells(Rows.Count, iColOut).End(xlUp).Row + 1 .Cells(lRow, iColOut).Value = Target.Value 'optional: wann geändert (ein oder aus kommentieren) .Cells(lRow, iColOut).Offset(0, 1).Value = Now 'optional: von wem geändert (ein oder aus kommentieren) .Cells(lRow, iColOut).Offset(0, 2).Value = Environ("username") End With Else End If End Sub

Hi,
Basiskentnisse in VBA, ja? Ich hab den Code extra kommentiert! Kommentare sind die grünen Dinger in Klartext, die erklären was genau der Code an dieser Stelle macht.
Aa steht nicht "#", sondern Datum + Uhrzeit (siehst du, wenn du die Spalte breiter machst).
.Cells(lRow, iColOut).Offset(0, 1).Value = Now
Und "Adminstrator" steht da, weil du als jener angemeldet bist.
.Cells(lRow, iColOut).Offset(0, 2).Value = Environ("username")
die entsprechenden Zeilen einfach löschen oder auskommentieren, wenn sie nicht gewünscht sind. Wie im Kommentar steht!
Um nach 50 Zeilen aufzuhören, setze einfach hinter diese Zeile
lRow = .Cells(Rows.Count, iColOut).End(xlUp).Row + 1
eine Abschlussbedingung, zb: if lRow > 50 then end
Und weil ich so nett bin, hab ich das alles gemacht und du kannst den Code unten einfach wieder rauskopieren ohne ihn zu lesen :-)
Grüße,
Klaus M.vdT.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sZelle As String        'das beobachten
Dim wksOutput As Worksheet  'hierhin beobachten
Dim iColOut As Integer      'Spalte zum beobachten
Dim lRow As Long
'Zelle A1 beobachten
sZelle = "$A$1"
'hierhin die "Beobachtung" schreiben
Set wksOutput = Sheets("Sheet2")    'Tabellenname ändern!
iColOut = 1                         'Output-Spalte ändern! A=1, B=2 usw
If Target.Address = sZelle Then
With wksOutput
lRow = .Cells(Rows.Count, iColOut).End(xlUp).Row + 1
if lRow

Private Sub Worksheet_Change(ByVal Target As Range) Dim sZelle() As String 'das beobachten Dim wksOutput As Worksheet 'hierhin beobachten Dim iColOut As Integer 'Spalte zum beobachten Dim lRow As Long Dim i As Long Dim Beobachtungswerte As Long Beobachtungswerte = 14 'Zelle A1 beobachten For i = 1 To Beobachtungswerte sZelle(i) = Cells(9 + i, 7) 'hierhin die "Beobachtung" schreiben Set wksOutput = Sheets("Verbindung") 'Tabellenname ändern! iColOut = Cells(1 + i, 9) 'Output-Spalte ändern! A=1, B=2 usw If Target.Address = sZelle(i) Then With wksOutput lRow = .Cells(Rows.Count, iColOut).End(xlUp).Row + 1 If lRow

Beliebteste Forumthreads (12 Monate)

Zelle beobachten und neue Werte speichern

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread