Hallo zusammen,
möchte eines meiner Makro vereinfachen. Über sechs Inputboxen gebe ich hintereinander Informationen ab, die für Berechnungen verwendet werden.
Kann ich diese Infos statt über Inputboxen über ein Formular eingeben. So dass ich alle Infos auf einmal eingeben kann und nicht hintereinander? Kann mir jmd. da einen Tip geben wie das gehen würde?
Viele Grüße
dani
unten anbei die Inputboxen, die ich verwende:
Bezugspreis = Application.InputBox("Bezugspreis bitte eingeben:", "Dateneingabe:", , , , , , 1)
If Bezugspreis = vbNullNull Then Exit Sub
Worksheets(5).Range("c6") = Bezugspreis
alte_Aktien = InputBox("BEZUGSVERHÄLTNIS Teil 1: Anzahl alter Aktien eingeben", "Dateneingabe:")
If alte_Aktien = vbNullNull Then Exit Sub
Worksheets(4).Range("b4") = alte_Aktien
neue_Aktien = InputBox("BEZUGSVERHÄLTNIS Teil 2: Anzahl neuer Aktien eingeben", "Dateneingabe:")
If neue_Aktien = vbNullNull Then Exit Sub
Worksheets(4).Range("b5") = neue_Aktien
Trennverhältnis1 = InputBox("Trennverhältnis Teil 1 Anzahl alter Aktien eingeben:", "Dateneingabe:")
Sheets(4).Range("b11") = Trennverhältnis1
If Trennverhältnis1 = vbNullNull Then Exit Sub
Worksheets(4).Range("c10") = Trennverhältnis
Trennverhältnis2 = InputBox("Trennverhältnis Teil 2 Anzahl neuer Aktien eingeben:", "Dateneingabe:")
If Trennverhältnis2 = vbNullNull Then Exit Sub
Worksheets(4).Range("b10") = Trennverhältnis2