AW: Funktion MID nicht gefunden
04.08.2005 21:23:28
Alex
Hallo Leo,
wie soll ich da Deine Zeile reinschreiben?
Ich habe diesen Code:
Sub testoffen()
Dim BoOffen As Boolean
Dim X
BoOffen = False
For Each X In Workbooks
If X.Name = Mid(Sheets("Übersicht").Range("B58").Value, _
InStrRev(Sheets("Übersicht").Range("B58").Value, "\") + 1) Then
Workbooks(Mid(Sheets("Übersicht").Range("B58").Value, _
InStrRev(Sheets("Übersicht").Range("B58").Value, "\") + 1)).Save
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then Workbooks.Open Filename:=Sheets("Übersicht").Range("B58").Value
End Sub
Wo soll ich da
VBA.Strings.Mid(....)
eintragen?
Vielen Dank für die Hilfe.
Alex