berechnete Daten fortlaufend in Sheet eintragen

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler Dim TB1, TB2 Dim SP%, LR& Application.ScreenUpdating = False Sheets("DATEN 1").Activate ActiveSheet.Range("N42").Select If Not Intersect(Range("B2"), Target) Is Nothing _ And Target.Count = 1 _ And Target "" Then 'auslösende Zelle Set TB1 = Sheets("DATEN 1") Set TB2 = Sheets("Auswertung") SP = 1 'Spalte A With TB2 LR = .Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte If WorksheetFunction.CountIf(.Columns(SP), TB1.Cells(2, SP)) > 0 Then MsgBox "Datum schon vorhanden" Exit Sub Else .Cells(LR + 1, SP) = Target.Offset(0, -1) .Cells(LR + 1, SP + 1) = Target End If End With End If Fehler: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public B2 As Variant Public N42 As Variant Private Sub Worksheet_Activate() B2 = Cells(2, 2) N42 = Cells(42, "N") End Sub Private Sub Worksheet_Change(ByVal Target As Range) If B2 Cells(2, 2) Then Set Target = Range("B2") If N42 Cells(42, "N") Then Set Target = Range("N42") If Not Intersect(Target, Range("B2", "N42")) Is Nothing Then With Sheets("Auswertung") lr_D = .Cells(Rows.Count, "A").End(xlUp).Row If .Cells(lr_D, "B") = Date Then MsgBox "Wert bereits gespeichert" Else .Cells(lr_D + 1, "A") = Target.Value .Cells(lr_D + 1, "B") = Date End If End With End If End Sub

Hallo Fennek,
Danke für die rasche Antwort...wäre froh wenn ich auch kontinuierlich aan meinem Problem arbeiten könnte...aber...naja
Ich habe beim Hochladen der jpg einen Fehler gemacht...
Tatsächlich will ich aus dem Sheet "Daten 1" die Zelle N42 mit dem sich verändernden Wert auslesen und täglich in die nächste Zeile auf dem Sheet "Auswertung" übergeben.
Insofern habe ich alle Zeilen mit dem Wert B2 aus Deinem Script entfernt:
Public N42 As Variant

Private Sub Worksheet_Activate()
N42 = Cells(42, "N")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If N42  Cells(42, "N") Then Set Target = Range("N42")
If Not Intersect(Target, Range("N42")) Is Nothing Then
With Sheets("Auswertung")
lr_D = .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(lr_D, "B") = Date Then
MsgBox "Wert bereits gespeichert"
Else
.Cells(lr_D + 1, "A") = Target.Value
.Cells(lr_D + 1, "B") = Date
End If
End With
End If
End Sub

Leider wird der Wert immer noch nicht übergeben.
Übrigens wird der Wert in der Zelle N42 mittels einer Formel berechnet...kann es daran liegen? Oder habe ich den Hinweis falsch verstanden.
Kann das Datum das in der Zelle B2 im Sheet "Daten" mittels "=Heute()" steht, auch mit übergeben werden.
Nochmals bitte ich um Unterstützung... Danke

Beliebteste Forumthreads (12 Monate)

berechnete Daten fortlaufend in Sheet eintragen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread