Hallo Forum,
(habe etliche Einträge unter dem Namen Bert, gebe nun den vollständigen Namen an um Verwechslungen zu vermeiden, da ein weiterer Bert vorhanden ist)
nun zu meinem Problem:
In meiner Datei stehen in der 1. Zeile die Projektnummern
in der zweiten Zeile die Bauvorhaben
(jeweils ab Spalte C)
nun sollen in einer ListBox diese Daten nebeneinander angezeigt werden:
O Projektnummer Bauvorhaben
O 001 BV1
O 002 BV2
O 003 BV3
usw.
mein Code, damit die einzelnen Projektnummern der Listbox hinzugefügt werden:
'Einzelne Projektnr. in Listbox einfügen
Dim Spalte As Integer
With Sheets("Planungsübersicht")
eingabemaske.ListBox1.Clear
Zeile = 1
Spalte = 3
Do
eingabemaske.ListBox1.AddItem .Cells(Zeile, Spalte)
Spalte = Spalte + 3
Loop Until IsEmpty(.Cells(Zeile, Spalte))
End With
Die Daten (Projektnr. und BV) stehen nur in jeder 3. Spalte
wie muss ich den Code nun modifizieren um in der ListBox eine zweite Spalte mit den BV anzuzeigen?
Gruß Bert