eine Listbox wird nach vorgegebenen Auswahlkriterien befüllt:
Zeile | Land | Stadt | Breite N/S | Länge O/W | Zeitzone
With lstSuchfunktion
.ColumnWidths = "35;180;190;65;20;65;20;15;40"
End With
Do
.AddItem RnGF.Offset(0, 0).Address 'Zeilennummer
Zeilennummer = Mid(RnGF.Offset(0, 0).Address, 4) '$-Zeichen und Buchstaben entfernen
.List(.ListCount - 1, 0) = Zeilennummer
.List(.ListCount - 1, 1) = RnGF.Offset(0, 0).Value 'Land
.List(.ListCount - 1, 2) = RnGF.Offset(0, 1).Value 'Stadt
.List(.ListCount - 1, 3) = RnGF.Offset(0, 3).Text 'Breite
.List(.ListCount - 1, 4) = RnGF.Offset(0, 4).Value 'N / S
.List(.ListCount - 1, 5) = RnGF.Offset(0, 6).Text 'Länge
.List(.ListCount - 1, 6) = RnGF.Offset(0, 7).Text 'O / W
.List(.ListCount - 1, 7) = "Zz: " & RnGF.Offset(0, 8).Value 'Zeitzone
Loop While Not RnGF Is Nothing And strFirst RnGF.Address
Für eine eindeutige Zuordnung würde ich gern senkrechte Linien zwischen den einzelnen Spalten in die Listbox einfügen, was aber nach meiner Kenntnis mit den bestehenden Einstellmöglichkei-ten der LB nicht realisierbar ist.Kennt jemand eine Möglichkeit in den oben unter ".ColumnWidths" aufgeführten Abständen eine senkrechte Linie z. B. bei jedem Durchlauf der Do .. Loop -Schleife mit dem Zeichen | auf der Tastatur unten links einzufügen?
Wie z.B. :
Do
.AddItem RnGF.Offset(0, 0).Address 'Zeilennummer
Zeilennummer = Mid(RnGF.Offset(0, 0).Address, 4) '$-Zeichen und Buchstaben entfernen
.List(.ListCount - 1, 0) = Zeilennummer
.ColumnWidths =35 = |
.List(.ListCount - 1, 1) = RnGF.Offset(0, 0).Value 'Land
.ColumnWidths = 180 = |
.List(.ListCount - 1, 2) = RnGF.Offset(0, 1).Value 'Stadt
usw.
.List(.ListCount - 1, 3) = RnGF.Offset(0, 3).Text 'Breite
usw.
.List(.ListCount - 1, 4) = RnGF.Offset(0, 4).Value 'N / S
.List(.ListCount - 1, 5) = RnGF.Offset(0, 6).Text 'Länge
.List(.ListCount - 1, 6) = RnGF.Offset(0, 7).Text 'O / W
.List(.ListCount - 1, 7) = "Zz: " & RnGF.Offset(0, 8).Value 'Zeitzone
Loop While Not RnGF Is Nothing And strFirst RnGF.Address
mfgreiner