Liebe Forumsgemeinde!
Ich habe eine Suchmaske (Userform) und möchte mit einem Button, Änderungen im gefundenen Datensatz speichern, der in einer Zeile, der selben Arbeitsmappe abgelegt ist.
Dafür habe ich folgendes Makro:
Private Sub CommandButton2_Click()
Dim DieZeile As Variant
DieZeile = Application.Match(RechnungsNr, Sheets("Daten").Columns(3), 0)
If IsError(DieZeile) Then DieZeile = Sheets("Daten").Cells(Rows.Count, 3).End(xlUp).Row + 1
With Worksheets("Daten")
.Range("B" & DieZeile) = Worksheets("Dashboard").Range("Datum")
.Range("C" & DieZeile) = Worksheets("Dashboard").Range("Rechnungsnr")
.Range("D" & DieZeile) = Worksheets("Dashboard").Range("Leistungszeitr")
.Range("E" & DieZeile) = Worksheets("Dashboard").Range("Bestellnummer")
.Range("F" & DieZeile) = Worksheets("Dashboard").Range("Auftragsnr")
...
End With
Leider finde ich die Rechnungsnummer nicht, obwohl diese ja mittels Suchfunktion aus der Datensammlung übernommen wurde, also sicher existiert, sondern lande immer in der ersten leeren Zeile.
Kann mir jemand sagen wo der Fehler liegt und wie es richtigerweise aussehen muss?
Vielen Dank und beste Grüße
Knolli