|
die erste UF macht nur das:
Dim intErsteLeerezeite As Long1
inErsteleereZeile = Worksheets("Contacted Sellers").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("xxxx").Cells(inErsteleereZeile, 1).Value = Me.txt1.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 2).Value = Me.txt2.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 3).Value = Me.txt3.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 4).Value = Me.txt4.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 6).Value = Me.Comb1.Value
ActiveWorkbook.Save
UF. Hide
UF2.Show
die zweite UF macht das:
Dim intErsteLeerezeite As Long
inErsteleereZeile = Worksheets("xxxx").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("xxxx").Cells(inErsteleereZeile, 5).Value = Me.txtPho.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 7).Value = Me.txtCa.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 8).Value = Me.txtZe.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 10).Value = Me.txtDef.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 19).Value = Me.txtAdv.Value
Worksheets("xxxx").Cells(inErsteleereZeile, 20).Value = Me.cbdef1.Value
ActiveWorkbook.Save
Unload UF
Unload UF1
Application.WindowState = xlMaximized
ich hab beide mal auf das wesentliche reduziert weil es ja keine große Rolle spielen sollte was die UF machen. In der 1 Uf trägt man Daten ein und wenn man fertig ist drückt man weiter. In der zweiten UF trägt man weitere Daten ein die sich auf die erste UF beziehen. Beide Eingaben werden in eine Tabelle abgespeichert.
Wichtig ist nur, dass die das die Daten der 1. Uf in die letzte leere Zeile der Tabelle eingetragen wird(man legt quasi einen neuen Datensatz an) und die Daten der zweiten UF in die lettze Zeile in der etwas eingegeben wurde(man ergänzt den Datensatz um zusätzliche Infos). Wenn man sich in der zweiten UF befindet sollte man in die erste zurückkehren können ohne das in der Tabelle eine neue Zeile geschrieben wird.
Ich hoffe es gibt eine Lösung dafür
|