Länge eine Arrays - Syntax falsch?
29.10.2003 12:56:39
Tobias
Was stimmt an dem folgenden Quellcode nicht??? Ersagt "invalid qualifier" bei "arrayTVCTEUR.Length" Ist die Syntax falsch? Habe echt keinen Plan!!!
Public
Sub TEURSuchen()
Dim arrayTVCTEUR() As Integer
Dim daten As String
Dim i As Integer
Dim j As Integer
j = 0
daten = "("
For i = 1 To 50
If Cells(3, i).Value = "TEUR" Then
j = (j + 1)
ReDim Preserve arrayTVCTEUR(j)
arrayTVCTEUR(j) = Cells(3, i).Column
'MsgBox prompt:=arrayTVCTEUR(j)
End If
Next
For i = 1 To arrayTVCTEUR.Length
daten = daten + ("Sheet1!R" & (zeile) & "C" & (arrayTVCTEUR(i)) & ",")
Next
daten = daten.lenght - 1
daten = daten + ")"
MsgBox prompt:=daten
End Sub
THX @all die mir helfen können