Userform - an Tabellenblatt fixieren
31.01.2022 14:48:52
Chris
ich baue gerade ein Excel Tabelle zur Unterstützung bei der Kalkulation von Aufträgen.
Dazu habe ich mir eine .xlsm mit mehreren Tabellenblättern angelegt.
Im ersten Tabellenblatt "Eingabe" habe ich 3 Button angelegt und mit unterschiedlichen Userformen hinterlegt um das Handling möglichst einfach zu gestalten.
Beim Start der Userform wechselt direkt das Tabellenblatt nach "Materialübersicht" was der Anwender nicht unbedingt sehen sollte, aus dem ich für meine combobox in der Userform Informationen ziehe.
Ich habe auch schon versucht als erstes zu schreiben, allerdings wechselt er immer auf die "Materialübersicht".
Nun meine Frage, wie kann ich es einstellen, dass meine Userform auf dem ersten Tabellenblatt "Eingabe" bleibt?
Private Sub UserForm_Initialize()
Worksheets("Materialübersicht").Activate
Eingabemaske1.Haftgrund.RowSource = "C4:C10"
Eingabemaske1.Filament1.RowSource = "C11:C31"
Eingabemaske1.Filament2.RowSource = "C11:C31"
Worksheets("Druckerübersicht").Activate
Eingabemaske1.Drucker.RowSource = "C4:C11"
Worksheets("Personalkosten").Activate
Eingabemaske1.MA2.RowSource = "C38:C44"
Eingabemaske1.MA3.RowSource = "C38:C44"
End Sub
Private Sub Button_Cancle_Click()
'Eingabefenster schließen
Unload Eingabemaske1
End Sub
Private Sub Button_Kulk_Click()
'Eingabe der Schaltfläche in die Arbeitsmappe übernehmen
Worksheets("Ergebnisblatt").Activate
Range("C13") = Haftgrund.Text
Range("E13") = HaftgrundGewicht.Text
Range("C14") = Filament1.Text
Range("E14") = Filament1Gewicht.Text
Range("C15") = Filament2.Text
Range("E15") = Filament2Gewicht.Text
Range("C21") = Drucker.Text
Range("C27") = ZeitH.Text
Range("D27") = ZeitM.Text
Range("C28") = AuNH.Text
Range("D28") = AuNM.Text
Range("E28") = MA2.Text
Range("C29") = KonstrH.Text
Range("D29") = KonstrM.Text
Range("E29") = MA3.Text
Unload Eingabemaske1
End Sub