.Listcount - .ListIndex
09.07.2003 14:48:43
Andy
bei u.a. Code habe ich das Problem dass es nur funktioniert sobald ich die erste Zeile manuell markiere. Wenn ich das nicht tue, erkennt er den Listeninhalt nicht als Text und bricht über die else Anweisung und exit
Sub das Makro ab. Gibt es dabei einen Kniff?
Anzahl = CSVtransfer.CSVauswahl.ListCount
For i = 0 To Anzahl - 1
CSVtransfer.CSVauswahl.ListIndex = i
CSV = CSVtransfer.CSVauswahl.Text
If CSV <> "" Then
Workbooks.Open MyPath & "\Trades\" & CSV
Else
Exit Sub
End If
Next i
End Sub
Viele Grüße
Andy