Thema Datum  Von Nutzer Rating
Antwort
11.04.2008 14:13:15 Maggus
NotSolved
11.04.2008 14:43:30 Stempfle Leonhard
NotSolved
11.04.2008 14:58:37 Maggus
NotSolved
11.04.2008 15:08:18 Stempfle Leonhard
NotSolved
Rot Code posting
 11.04.2008 15:23:17 Maggus
NotSolved
11.04.2008 16:06:04 Stempfle Leonhard
NotSolved
14.04.2008 12:57:59 Maggus
NotSolved

Ansicht des Beitrags:
Von:
Maggus		 Datum:
11.04.2008 15:23:17		 Views:
1120		 Rating:
     
Antwort:
  Ja
Thema:
Code posting
Private Sub ComboBox1_Change()
Dim dic As Object
Dim xKey As Variant, xArea As Long

xZeile = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)

Set dic = CreateObject("scripting.dictionary")
For xArea = 1 To xZeile
If Cells(xZeile, 4).Value = ComboBox1.Value Then
xKey = Cells(xZeile, 5).Value
dic(xKey) = 0
End If
Next
For Each xKey In dic
ComboBox2.AddItem xKey
Next
dic.RemoveAll
Set dic = Nothing

End Sub

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
11.04.2008 14:13:15 Maggus
NotSolved
11.04.2008 14:43:30 Stempfle Leonhard
NotSolved
11.04.2008 14:58:37 Maggus
NotSolved
11.04.2008 15:08:18 Stempfle Leonhard
NotSolved
Rot Code posting
 11.04.2008 15:23:17 Maggus
NotSolved
11.04.2008 16:06:04 Stempfle Leonhard
NotSolved
14.04.2008 12:57:59 Maggus
NotSolved