Mehrdimensionaler Array
01.06.2005 12:57:36
Morf
ich hab da wiedermal ein problem, bin aber trotz stöbern im internet nicht klüger geworden. Siehe untenstehender code.
Ich bilde einen array von 1 bis 100 und möchte die diesen in einem listenfeld in einer maske ausgeben. Wenn ich aber nur 10 zeilen habe aus einem excel-sheet, möchte ich dann nur diese im listenfeld ausgeben, das heisst also meinen array redimensioneren. Irgend wie klappt das aber nicht. Vielen dank für eure tipps.
gruss daniel
Sub ReadArraySplit()
Dim myArray_Firm() As String
Dim intI_F As Integer
Dim I as integer
' ReDim myArray_Firm(intI_F, 3)
for i = 1 to 100
Select Case Bedingung
Case "Schnittstelle"
Anweisungen
Case "Standort"
Anweisungen
Case "Firmenname"
' ReDim Preserve myArray_Firm(intI_F, 3)
'* Zelleninhalt als Titel in Listenfeld ausgeben
myArray_Firm(intI_F, 0) = "Zelleninhalt"
myArray_Firm(intI_F, 2) = "Zelleninhalt"
Set oCell = oTable.Cell(19, 1)
myArray_Firm(intI_F, 1) = = "Zelleninhalt"
intI_F = intI_F + 1
End Select
Next
ReDim Preserve myArray_Firm(intI_F, 3)
frmMain.lstFirma.List() = myArray_Firm
End Sub