Teilbereich übernehmen
18.05.2006 13:59:56
volker
Ich möchte folgenden Code so ändern, daas der ausgelesene Wert nur die Daten von rechts bis zum leerzeichen ausgibt.
ein Teil meiner Auswahlliste:
Ivory / GK
Sand / UV
gewünschtes Ergebnis: GK oder UV
hier mein Code (steht bei der Combobox)
Private Sub cboGrundfarben_Change()
Worksheets("Übersicht").Range("B7").Value = cboGrundfarben.Value
Worksheets("Holzliste").Range("P1").Value = cboGrundfarben.Value
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
'Label1.Caption = "Firma" 'Range("A1").Value
cboGrundfarben.List = Worksheets("Übersicht").Range("H4:H15").Value
cboGrundfarben.ListIndex = 0
End Sub
Vielen Dank volker