Text aus ComboBox mitspeichern
12.02.2021 11:36:30
Matthias
komme leider mal wieder nicht weiter.
Ich möchte beim Speichern das aus UserForm3, MultiPage2 page 2 die Größen aus den ComboBoxen mit gespeichert werden.
Nach 2 Tagen recherche finde ich allerdings kein probates Mittel dass mir das in dem bestehenden und funktionierendem Code erledigt.
Unten zitiertes konnte ich schon ein paar mal für andere Zwecke erfolgreich umschreiben. Und bin mir auch ziemlich sicher das die Werte aus den jeweiligen ComboBoxen nicht all zu schwer mit einzufügen sind.
Die ComboBox in der die Größe ausgewählt werden kann hat immer die gleiche Nachlaufbezeichnung wie die TextBox. Nur brauch ich da eben den Inhalt, bzw Text.
Ist mein letzter Versuch gewesen. Ich komm einfach nicht dahinter wie ich das lösen kann.
Private Sub Button_SaveGoAhead_Click()
Dim Eingang As Worksheet
Dim Ctrl
Dim cCtrl
Dim Name
Dim Com
Const sk = ";"
Set Eingang = Worksheets("Eingang")
For Each Ctrl In Me.Controls
For Each Name In Array("TextBox_;")
For Each cCtrl In Me.Controls
If InStr(1, Ctrl.Name, Split(Name, sk)(0), vbTextCompare) > 0 Then
If (Ctrl.Text "" And Ctrl.Text 0) Then
With Eingang.Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = TextBo_Datum.Value
.Offset(1, 1).Value = Replace(Ctrl.Name, Split(Name, sk)(0), Split(Name, sk) _
(1))
.Offset(1, 2).Value = cCtrl.Text
.Offset(1, 3).Value = Ctrl.Text
.Offset(1, 4).Value = ListBox_Driver.Value
End With
End If
End If
Next
Next
Next
ThisWorkbook.Save
ThisWorkbook.RefreshAll
Dim tb As Object
Dim cb As Object
For Each tb In UserForm3.Controls
If TypeName(tb) = "TextBox" Then
tb.Text = ""
End If
Next
For Each cb In UserForm3.Controls
If TypeName(cb) = "ComboBox" Then
cb.Text = ""
End If
Next
Me.TextBo_Datum.Value = Format(Now, "dd.mm.yyyy")
ThisWorkbook.Save
ThisWorkbook.RefreshAll
End Sub
Hoffe Ihr habt mal wieder einen Super Tipp oder eine Lösung für mich.
Grüße Matthias
hier noch die Beispielmappe:
https://www.herber.de/bbs/user/143848.xlsm
PS: Bevor geschimpft wird, es sind bereits 2 Bücher auf dem Weg zu mir damit ich nicht die Wahrscheinlich einfachsten Fragen hier stellen muss. :)