Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

nächste zwei leere Zeilen suchen

nächste zwei leere Zeilen suchen
15.12.2014 16:01:16
Karmann
Hallo Zusammen!
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
https://www.herber.de/bbs/user/94422.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nächste zwei leere Zeilen suchen
15.12.2014 16:45:00
Rudi
Hallo,
einfach so?
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
intErsteLeereZeile = intErsteLeereZeile + 1
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
AW: nächste zwei leere Zeilen suchen
15.12.2014 17:03:51
Karmann
Super!!! Vielen herzlichen Dank!

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige