unter diesem Link hatte ich meine Frage schon einmal veröffentlicht, leider komme ich erst heute dazu weiter zu machen..
https://www.herber.de/forum/archiv/1492to1496/t1494455.htm#1494455
Nun bin ich noch nicht wirklich weiter gekommen:
Ich habe zwar den Code angepasst, aber die Werte werden nach wie vor nicht übertragen:
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
hier einmal 2 Screenshots:
Eigentlich möchte ich nur den rot markierten Wert im Sheet "Daten 1" in das Sheet "Auswertung" täglich mit dem Datum übergeben, und in der nächsten Zeile dann den Wert vom nächten Tag.
Ich bitte nochmals um Unterstützung. Ich stehe auf der Leitung.
Vielen Dank