Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Teilbereich übernehmen

Teilbereich übernehmen
18.05.2006 13:59:56
volker
Hai Leute, (bin noch in einem anderen thread mit Fred, möchte aber hier nochmals meine Angaben anders beschreiben / ich komm nicht hin)
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teilbereich übernehmen
19.05.2006 10:29:03
Erich
Hallo Volker,
probiers mal mit
Private Sub UserForm_Initialize()
Dim anz&, arr, ii&, tt$
'  Label1.Caption = "Firma" 'Range("A1").Value
With Worksheets("Übersicht")
anz = 15 - 4
ReDim arr(0 To anz)
For ii = 4 To 15
tt = .Range("H" & ii)
arr(ii - 4) = Right(tt, Len(tt) - InStrRev(tt, " "))
Next ii
End With
cboGrundfarben.List = arr
cboGrundfarben.ListIndex = 0
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Danke, so probier ichs!
19.05.2006 11:19:59
Volker
Gruss volker
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige