Automatische Zuordnung zum Datum

Hallo liebe Gemeinde,
Ich versuche mich seit Tagen daran meine Idee praktisch umzusetzen, scheitere daran aber kläglich.
Dabei geht es darum, auf Tabellenblatt 1 befindet sich eine Zelle in der eine Tagesaktuelle Zahl am Morgen eingetragen werden soll und diese dann auf Tabellenblatt 2 entsprechend dem aktuellen Datum zugeordnet wird. Dabei soll allerdings am nächsten Tag die Zahl vom Vortag nicht im Tabellenblatt 2 überschrieben, gelöscht oder mit "0" dargestellt werden da diese später erneut benötigt wird.
Die Tabelle mit dem entsprechendem Datum im Tabellenblatt 2 ist nach unten fortlaufend.
Als bsp:
Zelle J17 im Tabellenblatt 1 ist die Zelle in welche am Morgen die gewünschte Zahl eingetragen wird und welche dann auf dem Tabellenblatt 2 ab der Zelle B2 wieder ausgegeben werden soll. Am nächsten Morgen dann erneute Eingabe in J17 aber Ausgabe demnach dann in B3 ohne Verlust von B2,usw.
Ich hoffe ihr könnt mir dabei helfen.
Vielen Dank im voraus.
LG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim wkb As Workbook Dim wks As Worksheet Dim lz As Long Set wkb = ThisWorkbook Set wks = wkb.Worksheets("Tabelle2") lz = wks.Cells(Rows.Count, 1).End(xlUp).Row wks.Cells(lz + 1, 2) = Target.Cells.Value wks.Cells(lz + 1, 1) = Date End Sub

hab ichs richtig verstanden.
Überschreib mal den Code, den ich dir vorhin geschickt habe mit dem nachfolgenden und teste mal. _


Private Sub Worksheet_Change(ByVal Target As Range)
Dim wkb As Workbook
Dim wks As Worksheet
Dim lz As Long
Set wkb = ThisWorkbook
Set wks = wkb.Worksheets("Tabelle2")
lz = wks.Cells(Rows.Count, 1).End(xlUp).Row
If Target.Address = "$J$17" And wks.Cells(lz, 1)  Date Then
wks.Cells(lz + 1, 2) = Target.Cells.Value
wks.Cells(lz + 1, 1) = Date
ElseIf Target.Address = "$J$17" And wks.Cells(lz, 1) = Date Then
wks.Cells(lz, 2) = Target.Cells.Value
wks.Cells(lz, 1) = Date
End If
If Target.Address = "$B$14" And wks.Cells(lz, 1)  Date Then
wks.Cells(lz + 1, 3) = Target.Cells.Value
wks.Cells(lz + 1, 1) = Date
ElseIf Target.Address = "$B$14" And wks.Cells(lz, 1) = Date Then
wks.Cells(lz, 3) = Target.Cells.Value
wks.Cells(lz, 1) = Date
End If
If Target.Address = "$F$14" And wks.Cells(lz, 1)  Date Then
wks.Cells(lz + 1, 4) = Target.Cells.Value
wks.Cells(lz + 1, 1) = Date
ElseIf Target.Address = "$F$14" And wks.Cells(lz, 1) = Date Then
wks.Cells(lz, 4) = Target.Cells.Value
wks.Cells(lz, 1) = Date
End If
End Sub

Gruß Oisse

Beliebteste Forumthreads (12 Monate)

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