Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Combobox füllen

Combobox füllen
29.10.2003 18:41:24
Thomas
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox füllen
29.10.2003 19:50:02
Thomas Risi
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

Anzeige
AW: Combobox füllen
30.10.2003 08:42:00
Thomas
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
AW: Combobox füllen
30.10.2003 12:17:18
Thomas Risi
Hi

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

Gruß
Thomas

Risi Thomas Softwareentwicklung

AW: Combobox füllen
30.10.2003 12:45:54
Thomas
bei der zeile mit listfillrange bekomm ich die meldung

Object erforderlich
Anzeige
AW: Combobox füllen
30.10.2003 12:54:13
Thomas
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige