Massenausbuchung
02.08.2007 17:24:00
Christian
Ich habe eine Datei in der ich eingebaut habe, daß wenn eine Zahl "von" "bis" in einer Userform eingetragen wird VBA automatisch für die Zahlen dazwischen jeweils eine Zeile einträgt.
Das klappt auch echt super !
Nun möchte ich, die Felder "von" "bis" auch für das austragen aus der Datei benutzen, da ich nicht jede
Zeile einzeln ausbuchen möchte.
Code zum einbuchen:
If TextBox13.Value "" And TextBox14.Value "" Then
'für KuponNummer_von und KuponNummer_bis wurden Werte eingegeben
For lIndex = CInt(TextBox13.Value) To CInt(TextBox14.Value)
.Cells(lZeile, 3).Value = Depot 'Spalte C
.Cells(lZeile, 4).Value = ISIN 'Spalte D
.Cells(lZeile, 5).Value = Nennwert 'Spalte E
.Cells(lZeile, 6).Value = StückeNummer1 'Spalte F
.Cells(lZeile, 7).Value = lIndex 'Kupon-Nummer Spalte G
.Cells(lZeile, 8).Value = Art_des_WP 'Spalte H
.Cells(lZeile, 9).Value = Währung1 'Spalte I
.Cells(lZeile, 10).Value = Zugangs_Buchungsbelegnummer1 'Spalte J
.Cells(lZeile, 11).Value = Datum 'Spalte K
.Cells(lZeile, 12).Value = Erster_Freigeber 'Spalte L
.Cells(lZeile, 13).Value = Zweiter_Freigeber 'Spalte M
lZeile = lZeile + 1
Next lIndex
Else
'Nur Daten für einen Kupon eintragen
.Cells(lZeile, 3).Value = Depot 'Spalte C
.Cells(lZeile, 4).Value = ISIN 'Spalte D
.Cells(lZeile, 5).Value = Nennwert 'Spalte E
.Cells(lZeile, 6).Value = StückeNummer1 'Spalte F
.Cells(lZeile, 7).Value = KuponNummer_von 'Spalte G
.Cells(lZeile, 8).Value = Art_des_WP 'Spalte H
.Cells(lZeile, 9).Value = Währung1 'Spalte I
.Cells(lZeile, 10).Value = Zugangs_Buchungsbelegnummer1 'Spalte J
.Cells(lZeile, 11).Value = Datum 'Spalte K
.Cells(lZeile, 12).Value = Erster_Freigeber 'Spalte L
.Cells(lZeile, 13).Value = Zweiter_Freigeber 'Spalte M
End If
End With
klappt wie gesagt super !!
Nun der Code zum austragen bisher:
Set gefunden = Worksheets("Bogentresor").Range("H10:H5000").Find(Art_des_WP)
If gefunden Is Nothing Then MsgBox ("Art des WP nicht gefunden !"): GoTo Ende
lZeile = gefunden.Row
iGefunden = iGefunden + 1
Set gefunden = Worksheets("Bogentresor").Range("J10:J5000").Find(Zugangs_Buchungsbelegnummer1)
If gefunden Is Nothing Then MsgBox ("Zugangs-Buchungsbelegnummer nicht gefunden !"): GoTo Ende
lZeile = gefunden.Row
iGefunden = iGefunden + 1
Set gefunden = Worksheets("Bogentresor").Range("G10:G5000").Find(KuponNummer_von)
If gefunden Is Nothing Then MsgBox ("Kuponnummer nicht gefunden !"): GoTo Ende
lZeile = gefunden.Row
iGefunden = iGefunden + 1
If iGefunden = 3 Then
gefunden.EntireRow.Cut
Worksheets("Archiv").Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).EntireRow.Insert
Else: MsgBox ("Bestand nicht gefunden !"): GoTo Ende
Kann einer von Euch vielleicht helfen ?