Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textanzeige und doppelte Ziffern in Combobox, unte

Textanzeige und doppelte Ziffern in Combobox, unte
01.03.2004 17:27:42
reiner
Aus mehrfach identischen Ziffern bestehende Daten einer EXCEL-Spalte sollen in einer Combobox auf einer UF zur Auswahl gestellt werden. Die zusätzlich vorhandenen Texteingaben müssen gleichzeitig unterdrückt werden. Mit den nachfolgenden VBA-Schleifen können entweder nur die doppelten Einträge (1.Schleife) oder die Texte ausgefiltert (2.Schleife) werden. Beide Funktionen nacheinander abzuarbeiten macht in der nachstehenden Form keinen Sinn. Weiß jemand wie man beide Funktionen kombinieren kann?
Option Explicit

Private Sub cmdDatum_Click()
Dim lngx As Long, lngz As Long
'1. Schleife - "Doppelte Einträge unterdrücken"
For lngx = 1 To Range("A5536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:B" & lngx), Cells(lngx, 1)) = 1 Then
Me.combobox1.AddItem Cells(lngx, 1)
Me.combobox1.ListIndex = 0 'Leeranzeige unterdrücken
End If
Next
'2.Schleife - "Textanzeige unterdrücken"
For lngz = 1 To Range("A5536").End(xlUp).Row
If WorksheetFunction.IsNumber(Cells(lngz, 1)) Then
Me.combobox1.AddItem (Cells(lngz, 1))
Me.combobox1.ListIndex = 0 'Leeranzeige unterdrücken
End If
Next
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Textanzeige und doppelte Ziffern in Combobox, unte
01.03.2004 19:14:48
Bert
Option Explicit

Private Sub cmdDatum_Click()
Dim lngx As Long, lngz As Long
For lngx = 1 To Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:B" & lngx), Cells(lngx, 1)) = 1 Then
If IsNumeric(Cells(lngx, 1)) Then
ComboBox1.AddItem Cells(lngx, 1)
End If
End If
Next
On Error Resume Next
ComboBox1.ListIndex = 0 'Leeranzeige unterdrücken
End Sub

Bert
AW: Textanzeige und doppelte Ziffern in Combobox,
01.03.2004 22:05:52
reiner
Hallo Bert,
funktioniert bestens, vielen Dank
Reiner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige