Thema Datum  Von Nutzer Rating
Antwort
15.06.2011 15:40:01 Gast14465
NotSolved
Blau Nach Combobox-auswahl Zellen untereinander ordnen
16.06.2011 11:34:12 Gast22364
NotSolved

Ansicht des Beitrags:
Von:
Gast22364		 Datum:
16.06.2011 11:34:12		 Views:
727		 Rating:
     
Antwort:
  Ja
Thema:
Nach Combobox-auswahl Zellen untereinander ordnen 
kann mir denn keiner helfen?

Private Sub ComboBox1_Change() 
ComboBox2.Clear 
If ComboBox1.Value <> "" Then 
   With Worksheets("M_" & ComboBox1.Value) 
       For Spalte = 2 To .Cells(1, .Columns.Count).End(xlToLeft).Column 
           ComboBox2.AddItem .Cells(1, Spalte) 
       Next 
   End With 
End If 
End Sub 


Private Sub ComboBox2_Change() 
Dim Spalte As Integer 

If ComboBox2.Value <> "" Then 
   ' MsgBox "Gewählt: " & ComboBox2.Value 
End If 

End Sub 


Private Sub Worksheet_Activate() 
   ComboBox1.Clear 
   For Each WS In ActiveWorkbook.Worksheets 
      With WS 
         If Left(.Name, 2) = "M_" Then 
            ComboBox1.AddItem Mid(.Name, 3) 
         End If 
      End With 
   Next 
End Sub

Dass die Code "M_" enthält, ist egal, die Tabellen heissen so "M_....".

Mit diesen Coden kann ich dem Combobox auswählen lassen, doch fehlt mir immer noch, wie ich die Buchstaben untereinander erscheinen lassen kann.

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:



  • 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
15.06.2011 15:40:01 Gast14465
NotSolved
Blau Nach Combobox-auswahl Zellen untereinander ordnen
16.06.2011 11:34:12 Gast22364
NotSolved