Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1396to1400
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox ohne doppelt mit Bedingung

Combobox ohne doppelt mit Bedingung
06.12.2014 13:59:24
Sigi


Hallo,
In Anlage meine Musterdatei.
Es sollen nur Namen ohne doppelte eingelesen werden und wenn die Spalte "W" leer ist.
Leider funktioniert das nicht.
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/94247.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox ohne doppelt mit Bedingung
06.12.2014 17:37:36
ransi
Hallo
"Aus der Hüfte" onhe irgendeine Fehlerroutine:
' **********************************************************************
' Modul: UserForm1  Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
    Unload Me
End Sub



Private Sub UserForm_Initialize()
    Dim bytSpalte As Byte
    Dim loEnde As Long
    Dim arr As Variant
    Dim objDic As Object
    Set objDic = CreateObject("Scripting.Dictionary")
    cboKdAuswahl.Clear
    
    With ThisWorkbook.Sheets("DB_Projekt")
        arr = .Range("a1").CurrentRegion
        bytSpalte = .Rows(1).Find(what:="DB_PROJ_ANG_STAND", LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByRows).Column
        For loEnde = 2 To UBound(arr)
            If arr(loEnde, bytSpalte) = "" Then
                objDic(arr(loEnde, 3)) = ""
            End If
        Next
    End With
    
    With cboKdAuswahl
        .List = WorksheetFunction.Transpose(objDic.keys)
        .ListIndex = 0
    End With
    
End Sub



ransi
Anzeige
AW: Combobox ohne doppelt mit Bedingung
06.12.2014 19:41:29
Sigi
Hallo Ransi,
es funktioniert.
Danke!
Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige