Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.06.2013 15:01:44 |
Jonas |
|
|
|
25.06.2013 15:16:38 |
Jonas |
|
|
Combox mit Werten füllen |
25.06.2013 19:24:02 |
Gast25102 |
|
|
|
25.06.2013 19:34:09 |
Gast44411 |
|
|
|
25.06.2013 19:34:29 |
Gast38384 |
|
|
|
25.06.2013 20:04:10 |
Jonas |
|
|
|
25.06.2013 19:02:07 |
Gast64716 |
|
|
|
25.06.2013 19:35:26 |
Jonas |
|
|
|
25.06.2013 21:03:19 |
Jonas |
|
|
|
25.06.2013 21:38:42 |
Gast64716 |
|
|
Von:
Gast25102 |
Datum:
25.06.2013 19:24:02 |
Views:
2458 |
Rating:
|
Antwort:
|
Thema:
Combox mit Werten füllen |
Option Explicit
Private m_rngCBSource1 As Excel.Range
'Private m_rngCBSource2 As Excel.Range
'usw.
Private Sub CommandButton1_Click()
Dim rngArea As Excel.Range
Dim rngCell As Excel.Range
Dim i As Long
If ComboBox1.ListIndex = -1 Then Exit Sub
i = ComboBox1.ListIndex + 1
For Each rngArea In m_rngCBSource1.Areas
If i > rngArea.Cells.Count Then
i = i - rngArea.Cells.Count
Else
Set rngCell = rngArea.Cells(i)
Exit For
End If
Next
If Not rngCell Is Nothing Then
rngCell(ColumnIndex:="C").Value = TextBox1.Text
End If
End Sub
Private Sub UserForm_Initialize()
Set m_rngCBSource1 = Worksheets("Substrate").Range("A1:A2,A4:A6,A8").Cells
'Set m_rngCBSource2 = ...
'usw.
Dim rngCell As Excel.Range
For Each rngCell In m_rngCBSource1
ComboBox1.AddItem rngCell.Text
Next
' For Each rngCell In m_rngCBSource2
' ComboBox2.AddItem rngCell.Text
' Next
'usw.
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.06.2013 15:01:44 |
Jonas |
|
|
|
25.06.2013 15:16:38 |
Jonas |
|
|
Combox mit Werten füllen |
25.06.2013 19:24:02 |
Gast25102 |
|
|
|
25.06.2013 19:34:09 |
Gast44411 |
|
|
|
25.06.2013 19:34:29 |
Gast38384 |
|
|
|
25.06.2013 20:04:10 |
Jonas |
|
|
|
25.06.2013 19:02:07 |
Gast64716 |
|
|
|
25.06.2013 19:35:26 |
Jonas |
|
|
|
25.06.2013 21:03:19 |
Jonas |
|
|
|
25.06.2013 21:38:42 |
Gast64716 |
|
|