Method 'Cells'of Object '_Global' failed
06.11.2003 08:47:55
Tobias
wenn ich von dieser Sub (in sheet1):
Public
Sub TEURSuchen(n As String)
Dim arrayTCVTEUR() As Integer
Dim i As Integer, j As Integer, k As Integer, z As Integer
z = zeile(n) <=== hier!!!
k = 0
datenTEUR = "=("
For i = 1 To Range("z40").End(xlToRight).Column 'Zeile absuchen
For j = 1 To Range("a500").End(xlUp).Row 'Spalte absuchen
If Cells(i, j).Value = "TEUR" Then
k = (k + 1) 'Index des arrays erhöhen
ReDim Preserve arrayTCVTEUR(k)
arrayTCVTEUR(k) = Cells(i, j).Column 'Spalten der Werte merken
End If
Next
Next
For i = 1 To UBound(arrayTCVTEUR)
datenTEUR = datenTEUR + ("Sheet1!R" & (z) & "C" & (arrayTCVTEUR(i)) & ",")
Next
datenTEUR = Left(datenTEUR, Len(datenTEUR) - 1) 'Komma abschneiden
datenTEUR = datenTEUR + ")"
End Sub
auf diese Funktion (in Module1) zugreife:
Option Explicit
Function zeile(was As String) As Integer
Dim i As Integer, j As Integer
For i = 1 To 100 'Zeile absuchen
For j = 1 To 50 'Spalte absuchen
FEHLER=> If Cells(i, j).Value = was Then 'Inhalt Zelle mit ges. Wort vergleichen
zeile = Cells(i, j).Row 'Zeile merken
End If
Next
Next
End Function
kommt die fehlermeldung: Method 'Cells'of Object '_Global' failed
was ist falsch? woran liegt das?
thx 4 ur answers!