Hallo Leute,
Kleines Problem - Ich Habe eine Excel Tabelle, die ich über eine UF bediene. Im Verlauf des ausbuchens eines Postens, soll VBA die Tabelle "Manteltresor" nach der eingegebenen Belegnummer dursuchen und dann die geasammte Zeile dieser Belegnummer in ein weiteres Tabellenblatt "Archiv" eintragen und zusätzlich in die Spalten N,O,P,Q die weiteren Angaben zusetzen. Das kopieren der Zeile klappt aber leider nicht, weil VBA die Zeile nicht in die nächste freie Zeile einfügt. Somit erscheinen die weiteren Angaben in eine völlig falschen Zeile.
Was ist hieran falsch damit es klappt ?
With Worksheets("Archiv")
Worksheets("Manteltresor").Unprotect Password:="bla-bla"
Worksheets("Archiv").Unprotect Password:="bla-bla"
Set gefunden = Worksheets("Manteltresor").Range("J10:J769").Find(Buchungsbelegnummer)
If gefunden Is Nothing Then MsgBox ("Bestand nicht gefunden !"): TextBox7.SetFocus: Exit Sub
gefunden.EntireRow.Cut
Worksheets("Archiv").Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).EntireRow.Insert
Set gefunden = Worksheets("Archiv").Range("N11:N769").Find("")
gefunden = Datum
Set gefunden = Worksheets("Archiv").Range("O11:O769").Find("")
gefunden = Erster_Freigeber
Set gefunden = Worksheets("Archiv").Range("P11:P769").Find("")
gefunden = Zweiter_Freigeber
Set gefunden = Worksheets("Archiv").Range("Q11:Q769").Find("")
gefunden = Empfänger
End With