Find-Formel mit Variabel
17.03.2004 11:45:59
Andre
kann mir jemand helfen? Ich möchte folgenden Code verwenden, schaffe es aber nicht die Variabel i in der Formel Find unterzubringen! Ständig bekomme ich die Fehlermeldung #Name?! zurück!
Der Sinn dieser Übung liegt darin, dass ich u.a. mit dieser Schleife einen Datei-Namen vom Pfad trennen möchte! Z.B. folgender Text "\\Server\Access\Test.mdb" soll nach dem letzten "\" durchsucht werden und mit Hilfe dieser Textstelle kann ich dann die beiden Teile trennen! (So der Plan!)
Sub Makro1()
Dim i As Integer
Länge = [Len(Tabelle1!A2)]
For i = 1 To Länge
[Tabelle1!A15] = [FIND("\",Tabelle1!A2,i)]
If [IsError(Tabelle1!A15)] = True Then
[Tabelle1!A15] = [FIND("\",Tabelle1!A2,i-1)]
Exit Sub
End If
Next i
End Sub
Gruß Andre