Sprungmarke
29.01.2007 12:24:07
Christian
kann mir jemand sagen, was ich bei den folgenden zeilen falsch mache ? VBA soll die Daten der entsprechenden Reihe der Buchungsbelegnummer aus dem Tabellenblatt herausschneiden und in das Tabellenblatt "Archiv" einfügen.Anschließend soll VBA noch das Datum, erster und zweiter Freigeber sowie Empfänger hinzufügen. doch irgendwie kopiert VBA nicht alle Daten der Reihe in das TabellenBlatt "Archiv". Kann mir jemand sagen was ich falsch mache ?
If gefunden Is Nothing Then MsgBox ("Bestand nicht gefunden !"): TextBox7.SetFocus: Exit Sub
Worksheets("Archiv").Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).EntireRow.Insert
Set gefunden = Worksheets("Archiv").Range("M11:M769").Find("")
gefunden = Datum
Set gefunden = Worksheets("Archiv").Range("N11:N769").Find("")
gefunden = Erster_Freigeber
Set gefunden = Worksheets("Archiv").Range("O11:O769").Find("")
gefunden = Zweiter_Freigeber
Set gefunden = Worksheets("Archiv").Range("P11:P769").Find("")
gefunden = Empfänger
End With