nächste zwei leere Zeilen suchen
15.12.2014 16:01:16
Karmann
Ich versuche ein einfaches Buchführungsprogramm für meine Schüler zu schreiben. Was mir gelungen ist; im Journal einen einfachen Buchungssatz über ein Formular zu buchen. Für einen zusammengesetzten Buchungssatz müsste ich einen Code haben, der die nächsten beiden leeren Zeilen findet und dann die Eintragung macht. So wie der Code jetzt aussieht, wird nur die letzte Eingabe übernommen.
Kann mir da jemand weiterhelfen?
Private Sub cmdEingabe_Click()
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Eingabe in der ersten leeren Zeile im Journal
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txt1.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txt2.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txt3.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txt4.Value
'Eingabe in die zweite leere Zeile im Journal
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txt5.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txt6.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txt7.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txt8.Value
Unload frmbuchung
End Sub
Anzeige