Combobox füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Combobox füllen
von: Thomas
Geschrieben am: 29.10.2003 18:41:24

Hallo Forum!

Ich wollte mit folgendem Code meine Combobox cboProjektentwickler befüllen.
Bei Set z1 = ["Projektentwickler"!A2] steht "Object erforderlich"

Ich hab doch Sheet Projektentwickler angegeben!

Kann mir bitte jemand helfen?

Danke Thomas



Sub Füllen()
Dim z1 As Object
Dim z2 As Object
With ThisWorkbook.Sheets("Kalkulationsblatt")
Set z1 = ["Projektentwickler"!A2]
Set z2 = z1.End(xlDown)
    cboProjektentwickler.ListFillRange = "Projektentwickler!" + z1.Adress + ":" + z2.Adress
    
    cboProjektentwickler = 0
End With
End Sub

Bild


Betrifft: AW: Combobox füllen
von: Thomas Risi
Geschrieben am: 29.10.2003 19:50:02

Hallo Thomas

Versuch's mal in etwa so ...


Option Explicit

Sub Füllen()
    
    Dim z1 As Range
    Dim z2 As Range
    
    With ThisWorkbook.Sheets("Kalkulationsblatt")
    
        Set z1 = Range("Projektentwickler!A2")
        Set z2 = z1.End(xlDown)
        
        cboProjektentwickler.ListFillRange = "Projektentwickler!" + z1.Adress + ":" + z2.Adress
        
        cboProjektentwickler = 0
        
    End With
    
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5


Gruß
Thomas

Risi Thomas Softwareentwicklung




Bild


Betrifft: AW: Combobox füllen
von: Thomas
Geschrieben am: 30.10.2003 08:42:00

Guten Morgen!

Nein leider, denn wenn Du z1 und z2 mit Range definierst, funktioniert das mit der ListFillRange irgendwie nicht.

Das hab ich nämlich auch schon probiert.

LG Thomas


Bild


Betrifft: AW: Combobox füllen
von: Thomas Risi
Geschrieben am: 30.10.2003 12:17:18

Hi

Mach aus 'Adress' einfach 'Address' und es wird funzen ...

Gruß
Thomas

Risi Thomas Softwareentwicklung




Bild


Betrifft: AW: Combobox füllen
von: Thomas
Geschrieben am: 30.10.2003 12:45:54

bei der zeile mit listfillrange bekomm ich die meldung

Object erforderlich


Bild


Betrifft: AW: Combobox füllen
von: Thomas
Geschrieben am: 30.10.2003 12:54:13

So gehts!


Sub Füllen()
    
    Dim z1 As Range
    Dim z2 As Range
    
    With ThisWorkbook.Sheets("Kalkulationsblatt")
    
        Set z1 = Range("Projektentwickler!A2")
        Set z2 = z1.End(xlDown)
        
        Worksheets("Kalkulationsblatt").cboProjektentwickler.ListFillRange = _
             "Projektentwickler!" + z1.Address + ":" + z2.Address
        
        Worksheets("Kalkulationsblatt").cboProjektentwickler.LinkedCell = _
            "B5"
        
        cboProjektentwickler = 0
        
    End With
    
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema " Combobox füllen"