Re: Syntax (Hajo)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Re: Syntax (Hajo)
von: Daniele
Geschrieben am: 22.05.2002 - 12:56:47


Hallo Hajo oder sonst jemand, ich nochmals

wie gesagt, funktioniert das makro super gut.
jetzt habe ich noch einen extra-wunsch:)
wie krieg ich es hin, .ColumnCount=2 (oder sogar mehr), zb .Cells(I, 4) UND (I, 5) in der ComboBox erscheinen lassen ?

habe ein .ColumnCount = 2 gesetzt, nützt aber nichts

Gruß, daniele

Private Sub CommandButton1_Click()
Dim I As Integer
ComboBox2.Clear
With Worksheets("test")
For I = 2 To 50
If .Cells(I, 3) = "V001a" Then ComboBox2.AddItem .Cells(I, 4)
Next I
End With
End Sub

nach oben   nach unten

Re: Syntax (Hajo)
von: Eberhard Sch.
Geschrieben am: 22.05.2002 - 13:17:22

Hallo Daniele
Teste den folgenden Code


Private Sub CommandButton1_Click()
Dim As Integer
ComboBox2.Clear
With Worksheets("test")
    For I = 2 To 50
        If .Cells(I, 3) = "V001a" Then
            ComboBox2.AddItem .Cells(I, 4) & " " & .Cells(I, 5)
        End If
    Next I
End With
End Sub

Gruß Eberhard


nach oben   nach unten

Re: Syntax
von: Hajo
Geschrieben am: 22.05.2002 - 13:27:52

Hallo Daniele

an diesem Rechner habe ich kein Excel, die Lösung für zwei völlig getrennte Spalten kann ich Die erst Abends mitteilen.

Gruß Hajo


nach oben   nach unten

Re: Syntax
von: Daniele
Geschrieben am: 22.05.2002 - 13:47:08

Hallo Eberhard und Hajo

besten dank für die prompte Antwort,
ihr seid echt super. funktioniert alles wie gewollt

danke, Daniele


nach oben   nach unten

Re: Syntax
von: Hajo
Geschrieben am: 22.05.2002 - 17:53:31

Hallo Daniele

ich hatte ja geschrieben Abends. Hier noch eine optische Aufbessung falls die Werte in Spalte 1 unterschiedlich lang sind.


Private Sub CommandButton1_Click()
    Dim As Integer
    Dim As Integer
    J = 0
    ComboBox2.Clear
    ComboBox2.ColumnCount = 2
    With Worksheets("test")
        For I = 2 To 50
            If .Cells(I, 3) = "V001a" Then
                ComboBox2.AddItem .Cells(I, 4)
                ComboBox2.List(J, 1) = .Cells(I, 5)
                J = J + 1
            End If
        Next I
    End With
End Sub

Gruß Hajo


nach oben   nach unten

Re: Syntax
von: Daniele
Geschrieben am: 22.05.2002 - 23:21:29

Hallo Hajo,
du bist ja echt ein Profi
Sauber! besten Dank

Gruß Daniele


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Symbolleisten ausblenden"