Ich komme nicht weiter.
Ich möchte aus Tabelle1 die Werte A1 (Datum) und B1 (Wert) nach Tabelle2 kopieren. Folgende Bedingunen sollten erfüllt sein:
- falls Datum in Tabelle2 schon besteht, dann überschreiben
- falls das Datum noch nicht besteht, dann in die nächste Zeile kopieren.
Ich bekomme das nur für eine zweite Zeile hin.... Wie kann ich das lösen, so dass in Tabelle2 die Daten und Werte historisch aufgelistet werden?
Besten Dank für die Unterstützung.
Anbei der Code:
Sub Kopieren()
Dim i As Integer
ende = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ende
If Sheets(1).Range("A" & i).Value > 0 Then
Sheets(2).Range("A" & i + 1).Value = Sheets(1).Range("A" & i).Value
Sheets(2).Range("b" & i + 1).Value = Sheets(1).Range("b" & i).Value
End If
Next i
ende = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To ende
If Sheets(2).Range("b" & a).Value = "" Then
Sheets(2).Rows(a).Delete
End If
Next a
End
Sub