ich sitze heute sicher schon wieder zu lange vor der Kiste und sehe vor lauter Bäumen den Wald nicht mehr ;-(
Der Rückgabewert (Value) einer mehrpsaltigen Listbox bezieht sich immer auf Spalte A. Wie kann ich den Wert (Value) aus einer anderen Spalte beziehen?
Private Sub UserForm_Initialize()
Dim iRowL As Integer
Application.ScreenUpdating = False
Worksheets("Angebote").Activate
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteValues
If Range("A2").Value = "" Then
ActiveWorkbook.Close savechanges:=False
Exit Sub
Else
ListBox1.List = Range("A1").CurrentRegion.Value
ActiveWorkbook.Close savechanges:=False
ListBox1.ListIndex = 0
End If
End Sub
Ich benötige bei o.g. Code die Rückgabe aus Spalte "W", da in "A" Einträge doppelt vorkommen können.
Danke für Eure Hilfe.
Gruß
Dieter.K