Mit VB(A) Zeichenkette aus Dateiname in Zelle C1

ich habe mir hier im Forum/auf dem Server diverse Module und Makros angesehen. Leider paßt nichts 100%ig auf meine Aufgabenstellung und die Anpassung ist relativ knifflig. Deshalb wäre ich für einen Tip sehr dankbar.

Ich lasse ein ursprünglich unter Excel für Windows95 erstelltes Makro ablaufen, das einige Sheets aus verschiedenen Mappen in eine neue Mappe zusammenkopiert. Diese Mappe wird dann unter einem Dateinamen nach einem festen Muster (ein Buchstabe+eine dreistellige Zahl+zwei Buchstaben, also z.B. E016ab.xls) gespeichert. Die dreistellige Zahl soll auf einem der Sheets in die Zelle C1 kopiert werden.

Die Zellfunktion

=TEIL(ZELLE("Dateiname");FINDEN("[";ZELLE("Dateiname"))+2;FINDEN("]";ZELLE("Dateiname"))-FINDEN("[";ZELLE("Dateiname"))-8)

arbeitet leider nicht zuverlässig. Wenn ich das Makro bei einer zweiten Datei ablaufen lasse, erscheint in bei der ersten (noch offenen) Mappe in Feld C1 der allseits beliebte Lattenzaun.

Gibt es da eine zuverlässigere Möglichkeit? Einfach eine Excel-Makro- oder Visual-Basic-Sequenz, die die Zahl in die Zelle schreibt. Das wäre mir lieber als eine Zellfunktion.

Im schlimmsten Fall würde auch eine Kommandosequenz helfen, die nur den Wert von einer nicht sichtbaren Zelle (z.B. J1), in der dann die o.g. Zellfunktion stehen würde, nach C1 kopiert.

Vielen Dank und beste Grüße

Peter

versuche mal:

Sub Teilname()
Range("C1") = Mid(ActiveWorkbook.Name, 2, 3)
End Sub

Gruß
Martin Beck