AW: Variable - Konstante - auch nach End Sub?
10.09.2008 15:14:03
Tom
Also ich habs jetzt so gelöst:
Das in "diese Arbeitsmappe"
Private Sub Workbook_Open()
PfadUndName = Workbooks("Gesamtauswertung.xls").Sheets("Vorgabewerte").Range("C2").Text
Mitarbeiterdatei = DateiName(PfadUndName, True)
End Sub
Das hier in ein Modul
Option Explicit
Public Mitarbeiterdatei As String
Public PfadUndName As String
Public Function DateiName(PfadUndName As String, Optional MitEndung) As String
Dim Pos As Integer, SuchZeichen As String
If PfadUndName = "" Then Exit Function
' Letzten Backslash suchen
Pos = 0
Do
PfadUndName = Mid(PfadUndName, Pos + 1)
Pos = InStr(1, PfadUndName, "\")
Loop Until Pos = 0
If IsMissing(MitEndung) Then MitEndung = True
If Not MitEndung Then
' Letzten Punkt suchen
For Pos = Len(PfadUndName) To 1 Step -1
If Mid(PfadUndName, Pos, 1) = "." Then
PfadUndName = Left(PfadUndName, Pos - 1)
Exit For
End If
Next Pos
End If
DateiName = PfadUndName
End Function
Somit erhalte ich bei "PfadUndName" den kompletten Pfad mit Dateiname
und bei
"Mitarbeiterdatei" erhalte ich nur die Datei mit Endung
msgbox PfadUndName ergibt z.B.
\\Ort\Ordner\Dateiname.xls
msgbox Mitarbeiterdatei ergibt dann
Dateiname.xls
Vielen Dank an alle die geholfen haben!
Der Tom