UserForm: Wert Suchen & andere Werte eintragen
05.03.2019 23:43:17
Niklas
ich habe ein UserForm erstellt, welches ermöglichen soll einen Unternehmensnamen in einer Combobox auszuwählen und in 3 TextBoxen Informationen einzugeben. Diese Informationen aus den 3 Textboxen sollen dann in die 3 verschiedene Spalten eingefügt werden. Jeweils passend zu dem ausgewählten Unternehmen.
Natürlich könnte man auch für jedes ausgewählte Unternehmen einzeln definieren, wie etwa:
Private Sub CommandButton1_Click()
If ComboBox3.Value = "UnternehmensnameinZeile19" Then
Worksheets("Tabelle1").Range("L19") = TextBox1.Text
Worksheets("Tabelle1").Range("C19") = TextBox2.Text
Worksheets("Tabelle1").Range("D19") = TextBox3.Text
End If
End Sub
Das funktioniert so auch. Da es sehr viele Unternehmen werden, möchte ich das aber vermeiden.
Das habe ich mir überlegt:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 60
Next
If Worksheets("Tabelle1").Range("B" & i) = ComboBox3.Value Then
Worksheets("Tabelle1").Range("L" & i).Value = TextBox1.Text
Worksheets("Tabelle1").Range("C" & i).Value = TextBox2.Text
Worksheets("Tabelle1").Range("D" & i).Value = TextBox3.Text
End If
End Sub
In der Spalte B stehen also die Unternehmensnamen, in Spalte L, C und D sollen die Informationen aus den TextBoxen eingetragen werden.
Leider wird mit dem Code von oben nichts übernommen. Hat jemand eine Idee wo mein Fehler liegt oder wie man das Problem lösen könnte?
Vielen Dank im Voraus!
Niklas
Anzeige