Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Namen mit Leerzeilen in Combobox auflisten

Namen mit Leerzeilen in Combobox auflisten
28.08.2003 10:41:54
Roger
Guten Tag zusammen

Ich habe für eine Combobx folgenden Code:

Private Sub UserForm_Initialize()
Dim i As Integer
Dim vorher, nachher As String
Set D2 = UserForm2
Application.ScreenUpdating = False
'Range("A6").Select
i = 6
With D2.ComboBox1
.Clear
Do While IsEmpty(Worksheets(1).Cells(i, 1)) = False
vorher = Worksheets(1).Cells(i, 1)
nachher = Worksheets(1).Cells(i + 1, 1)
If vorher = nachher Then GoTo weiter1
.AddItem Worksheets(1).Cells(i, 1)
i = i + 1
GoTo ende1
weiter1:
i = i + 1
ende1:
Loop
End With
Application.ScreenUpdating = True
End Sub


Soweit funktioniert er einwandfrei. Nun möchte ich aber das es mir auch die Daten auflistet wenn eine leere Zeile dazwischen ist. Dies kann mehrmals vorkommen und wird wegen der übersicht benötigt. Geht das überhaupt wenn ja wie muss ich den Code abändern?

Besten Dank für eure Hilfe

Gruss Roger

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

Betreff
Datum
Anwender
Anzeige
AW: Namen mit Leerzeilen in Combobox auflisten
28.08.2003 13:43:18
ChrisL
Hi Roger

Wenn ich das existierende Makro richtig interpretiert habe...

Option Explicit


Private Sub UserForm_Initialize()
Dim iZeile As Long
For iZeile = 6 To Range("A65536").End(xlUp).Row
If Cells(iZeile, 1) <> "" And Cells(iZeile, 1) <> Cells(iZeile + 1, 1) Then _
ComboBox1.AddItem Cells(iZeile, 1)
Next iZeile
End Sub

Gruss
Chris
Vielen Dank für den Code
28.08.2003 13:50:47
Roger
Hallo Chris

Ja genau das funzt einwandfrei so. Hab wohl zu weit gesucht. Besten Dank

Gruss Roger

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige