Hallo Helmut u. M.O.
Danke für Eure Antworten.
Zur Verdeutlichung meinen Code:
Option Explicit
Private Sub CommandButton1_Click()
Public Row As Integer 'Initialisieren
Dim Auszug_B As Integer Löschen
Dim Blatt_B As Integer Kontobewegungen.L_Beweg.AddItem "En"
Dim Butag_B As Date Kontobewegungen.L_Beweg.AddItem "Deg"
Dim Nr_B As Integer Kontobewegungen.L_Beweg.AddItem "Sta"
Dim fuer_B As String Kontobewegungen.L_Beweg.AddItem "Las"
Dim Haben_B As Currency Kontobewegungen.L_Beweg.AddItem "Wic"
Dim Soll_B As Currency Kontobewegungen.L_Beweg.AddItem "F"
Dim Ktostand_B As Currency Kontobewegungen.L_Beweg.AddItem "Yi"
Dim Beweg_L As String 'Letzten Eintrag suchen
Suchen
Sub Suchen() 'Nr. des Eintrags
Sheets("2008").Activate Kontobewegungen.B_Nr = Row - 2
Range("A1").Select 'Dialogfeld anzeigen
Row = 4 Kontobewegungen.Show
While ActiveSheet.Cells(Row, 1).Value <> "" End Sub
ActiveSheet.Cells(Row, 1).Select
Row = Row + 1
Wend
ActiveSheet.Cells(Row, 1).Select
End Sub
Sub DatenLesen()
Nr_B = Kontobewegungen.B_Nr
Auszug_B = Kontobewegungen.B_Auszug
Blatt_B = Kontobewegungen.B_Blatt
fuer_B = Kontobewegungen.B_fuer
Butag_B = Kontobewegungen.B_Butag
Haben_B = Kontobewegungen.B_Haben
Soll_B = Kontobewegungen.B_Soll
Beweg_L = Kontobewegungen.L_Beweg
End Sub
Sub DatenÜbertragen()
Cells(Row, 1) = Nr_B
Cells(Row, 2) = Auszug_B
Cells(Row, 3) = Blatt_B
Cells(Row, 4) = Butag_B
Cells(Row, 5) = Beweg_L
Cells(Row, 6) = fuer_B
Cells(Row, 8) = Haben_B
Cells(Row, 7) = Soll_B
Ktostand_B = Cells(Row - 1, 9).Value
Cells(Row, 9) = Ktostand(Ktostand_B, Haben_B, Soll_B)
End Sub
Function Ktostand(K, H, S As Currency) As Currency
Kontobewegungen.B_Ktostand = K + H - S
Ktostand = K + H - S
End Function
Sub Neu()
Löschen
Row = Row + 1
Kontobewegungen.B_Nr = Row - 2
Kontobewegungen.B_Butag.SetFocus
End Sub
Sub Löschen()
Kontobewegungen.B_Soll = 0
Kontobewegungen.B_Haben = 0
Kontobewegungen.B_Butag = ""
Kontobewegungen.B_Auszug = ""
Kontobewegungen.B_Blatt = ""
Kontobewegungen.B_fuer = ""
End Sub
Da in den Ktoauszügen nicht alles nach der Reihe steht (Stadt, Engerievers. usw.) was in eine Tab. kommt
muß ich hier nicht mit If.....then arbeiten?
If....in Cells(Row, 5) Stadt steht - then in Tab. Stadt
If....in Cells(Row,5) Energievers. steht - then in Tab Nk-Tab.
usw.
Sehe ich das richtig?
Gruß
Lotte