Syntax

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Syntax
von: Daniele
Geschrieben am: 21.05.2002 - 17:37:03

Hilfe!

Habe folgendes Original von Kay.O (funtioniert perfekt, Danke)

For i = 1 To Worksheets.Count 'Step 1
If Worksheets(i).Name = "DOPPELTE" Then
ComboBox2.AddItem Worksheets(i).Name
Else: ComboBox2.ListFillRange = ""
End If
Next

modifiziert zu:

Sub CommandButton1_Click()
ComboBox2.Clear
Sheets("test").Select
For i = 2 To 50
If Cells(i, 3).Name = "V001a" Then
ComboBox2.AddItem Cells(i, 4).Name
Else: ComboBox2.ListFillRange = ""
End If
Next
End Sub

was stimmt an dieser Syntax nicht? Ich vermute die Adressierung ist nicht ganz sauber.
(die Dritte Zeile ergiebt einen "Anwendungs- oder objektdefiniertr Fehler")

danke, daniele






nach oben   nach unten

Re: Syntax
von: Hajo
Geschrieben am: 21.05.2002 - 20:48:09

Hallo Daniele

ist das Register Test vielleich ausgeblendet??

Versuchs doch mal so


Sub CommandButton1_Click()
    ComboBox2.Clear
    With Worksheets("test")
        For i = 2 To 50
            If .Cells(i, 3).Name = "V001a" Then
                ComboBox2.AddItem .Cells(i, 4).Name
            Else: ComboBox2.ListFillRange = ""
            End If
        Next
    End With
End Sub

Gruß Hajo

nach oben   nach unten

Re: Syntax
von: Daniele
Geschrieben am: 21.05.2002 - 21:57:41

Hallo Hajo

so kommt auch immer noch den Fehler. habe aber herausgefunden dass ohne ".Name" beim ersten "If" kein Fehler mehr angezeigt wird (sub wird ausgeführt), allerdings bleibt die ComboBox leer.
Die Tabelle "test" ist nicht ausgeblendet und das Suchkriterium existiert mehrfach.

wie weiter?

Sub CommandButton1_Click()
ComboBox2.Clear
With Worksheets("test")
For i = 2 To 50
If .Cells(i, 3) = "V001a" Then
ComboBox2.AddItem .Cells(i, 4).Name
Else: ComboBox2.ListFillRange = ""
End If
Next
End With
End Sub

danke, daniele


nach oben   nach unten

Re: Syntax
von: Hajo
Geschrieben am: 21.05.2002 - 22:00:16

Hallo Daniele

mit .Cells(i, 4).Name wird der Zellennamen übergeben möchtest Du nur den Inhalt dann nur
.Cells(i, 4)


Gruß Hajo


nach oben   nach unten

Re: Syntax
von: Daniele
Geschrieben am: 21.05.2002 - 22:29:27

Danke für die Aufklärung :)
kommt auch ohne nichts


Gruß daniele

nach oben   nach unten

Re: Syntax
von: Hajo
Geschrieben am: 22.05.2002 - 06:42:57

Hallo Daniele

ich dachte ich komme ohne Eingabe klar. Jetzt habe ich es getestet.


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)
    Next I
    End With
End Sub

Gruß Hajo


nach oben   nach unten

Re: Syntax
von: Daniele
Geschrieben am: 22.05.2002 - 09:09:17

Hervorragend!

funktioniert bestens, danke

Gruß daniele


nach oben   nach unten

Re: Syntax
von: Hajo
Geschrieben am: 22.05.2002 - 09:34:07

Hallo Daniele

Danke für die Rückmeldung

Gruß Hajo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tolle Funktion in Excel 2000 (!?)"