Thema Datum  Von Nutzer Rating
Antwort
Rot ComboBox RowSource
 01.02.2017 14:30:41 HalloWelt
NotSolved

Ansicht des Beitrags:
Von:
HalloWelt		 Datum:
01.02.2017 14:30:41		 Views:
1190		 Rating:
     
Antwort:
  Ja
Thema:
ComboBox RowSource

Hallo Leute folgendes Problem :

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub ComboBox1_Change()
Me.ComboBox2 = ""
 
Dim X As Long
 <strong>X = Worksheets("Tabelle1").Range("B2").Value</strong>
  
 
Select Case Me.ComboBox1
    Case "Firmen"
        Me.ComboBox2.RowSource = "Firmen"
     
    Case "Firma1"
        <strong>Me.ComboBox2.RowSource = "X" </strong>
    'wenn oben "Firma1" statt "X" steht und das DIM X raus ist funktioniert der Code einwandfrei
    Case "Firma2"
        Me.ComboBox2.RowSource = "Firma2"
             
    Case "Firma3"
        Me.ComboBox2.RowSource = "Firma3"
               
    Case "Firma4"
        Me.ComboBox2.RowSource = "Firma4"
         
    Case "Firma5"
        Me.ComboBox2.RowSource = "Firma5"
 
End Select
 
End Sub
 
 
"Firma1" ist der Name der Gruppe im Namensmanger . Allerdings ist Firma1 auch der Zelleninhalt von B2 .
 
Hintergrund ist, falls ich die Firma 1 - 5 umbennene muss ich im jetzigen Zustand in den Code eingreifen und dort auch die RowSource ändern.

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot ComboBox RowSource
 01.02.2017 14:30:41 HalloWelt
NotSolved