Userform - an Tabellenblatt fixieren

Hallo zusammen,
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

Hallo,


wie kann ich es einstellen, dass meine Userform auf dem ersten Tabellenblatt "Eingabe" bleibt?

indem du auf Activate/ Select verzichtest und sauber referenzierst.
Private Sub UserForm_Initialize()
Eingabemaske1.Haftgrund.RowSource = "Materialübersicht!C4:C10"
Eingabemaske1.Filament1.RowSource = "Materialübersicht!C11:C31"
Eingabemaske1.Filament2.RowSource = "Materialübersicht!C11:C31"
Eingabemaske1.Drucker.RowSource = "Druckerübersicht!C4:C11"
Eingabemaske1.MA2.RowSource = "Personalkosten!C38:C44"
Eingabemaske1.MA3.RowSource = "Personalkosten!C38:C44"
End Sub
Private Sub Button_Kulk_Click()
'Eingabe der Schaltfläche in die Arbeitsmappe übernehmen
With Worksheets("Ergebnisblatt")
.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
End With
Unload Eingabemaske1
End Sub
Gruß
Rudi

Userform - an Tabellenblatt fixieren

Forumthread: Userform - an Tabellenblatt fixieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial