AW: bestimmte Daten übernehmen
18.05.2006 13:32:34
volker
Hai mein Feld (Worksheets"Übersicht" Range. B7) ist leer, hier hab ich = Na eingetragen
so sieht mein Code aus
Was ist denn falsch? Daanke Gruss volker
Private Sub cboGrundfarben_Change()
Worksheets("Übersicht").Range("B7").Value = Na
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
Worksheets("Holzliste").Range("Y5").Value = cboGrundfarben.Value
Worksheets("Holzliste").Range("Y5") = Name
le = Len(Name) 'Textlänge ermitteln
Po = InStr(Name, " ") 'Position Leehrzeichen
Na = Right(Name, le - Po)
End Sub