Private Sub CommandButton1_Click()
Dim z As Integer
With Sheets("Daten")
z = Range("B65565").End(xlUp).Row + 1
Cells(z, 2) = ComboBox1.Value + TextBox1.Value + TextBox2.Value + TextBox3.Value
Cells
End With
End Sub
Das funktioniert auch. ABER!!!Jetzt soll aber die Zelle so formatiert werden(Leerzeichen soll als Leezeichen dargestellt werden, "x" soll als x dargestellt werden)
Combobox1 Textbox1"x"Textbox2
Außer es steht "Trapez" in der Combobox-->
Combobox1 Textbox1/Textbox2"x"Textbox3
Ich weiß irgendwie nicht weiter.
Vielen Dank im Vorraus
Greetz PTR