Thema Datum  Von Nutzer Rating
Antwort
02.03.2011 10:19:17 Daniel001
NotSolved
02.03.2011 11:04:10 Severus
NotSolved
02.03.2011 12:15:30 Daniel001
NotSolved
Blau Schleife drigend gesucht
 02.03.2011 16:30:25 Severus
NotSolved
03.03.2011 10:10:22 Gast388
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
02.03.2011 16:30:25		 Views:
895		 Rating:
     
Antwort:
  Ja
Thema:
Schleife drigend gesucht		 
Option Explicit

Private Sub ComboBox1_Change()
TextBox1.Text = TB_fuellen
End Sub

Private Sub ComboBox2_Change()
TextBox1.Text = TB_fuellen
End Sub

Private Sub ComboBox3_Change()
TextBox1.Text = TB_fuellen
End Sub

Private Function TB_fuellen() As String
Dim ctrCTR As Control
Dim ctrCB As ComboBox
Dim strTBText As String
Dim ctrSpalte As Long
TB_fuellen = ""
'Spaltennummer mit dem gewünschten Eintrag. Bei einspaltiger ComboBox ist die Spaltennummer=0
ctrSpalte = 1
For Each ctrCTR In Me.Controls
    If InStr(1, UCase(ctrCTR.Name), "COMBOBOX", vbBinaryCompare) <> 0 Then
        Set ctrCB = ctrCTR
        If ctrCB.ListIndex = -1 Then
            Set ctrCB = Nothing
            Exit Function
        Else
            Set ctrCB = Nothing
        End If
    End If
Next
For Each ctrCTR In Me.Controls
    If InStr(1, UCase(ctrCTR.Name), "COMBOBOX", vbBinaryCompare) <> 0 Then
        Set ctrCB = ctrCTR
        strTBText = strTBText & ctrCB.List(ctrCB.ListIndex, ctrSpalte)
        Set ctrCB = Nothing
    End If
Next
TB_fuellen = strTBText
End Function

Severus

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
02.03.2011 10:19:17 Daniel001
NotSolved
02.03.2011 11:04:10 Severus
NotSolved
02.03.2011 12:15:30 Daniel001
NotSolved
Blau Schleife drigend gesucht
 02.03.2011 16:30:25 Severus
NotSolved
03.03.2011 10:10:22 Gast388
Solved