Dateinamen über Makro auslesen

Forumthread: Dateinamen über Makro auslesen

15.09.2005 16:13:09

Paul

Hallo zusammen,
ist es möglich den Dateinamen einer offenen Datei über einen Mausklick auszulesen, wenn das Makro selber aber in einer anderen Datei steht? Sprich ick klicke in ein Excelfenster in der Windowstaskleiste mit der Maus und er gibt mir den Namen der Datei aus? Alles was ich bis jetzt ausprobiert habe brachte nicht den geringsten Erfolg.
Wenn wer eine Idee dazu haben sollte bitte her damit.
MfG
Paul

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateinamen über Makro auslesen

15.09.2005 16:54:19

Andi

AW: Dateinamen über Makro auslesen

15.09.2005 16:54:19

Andi

Hi,
das sollte mit dem deactivate-Ereignis gehen:


Private Sub Workbook_Deactivate()
If ActiveWorkbook.Name = ThisWorkbook.Name Then Exit Sub
MsgBox ActiveWorkbook.Name
End Sub

Schönen Gruß,
Andi

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Dateinamen einer offenen Excel-Datei über ein Makro auszulesen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

Öffne Excel und erstelle ein neues Makro.
Wechsle in den Visual Basic-Editor (Alt + F11).
Füge ein neues Modul hinzu:
- Klicke auf „Einfügen“ > „Modul“.

Kopiere den folgenden VBA-Code in das Modul:

Private Sub Workbook_Deactivate()
   If ActiveWorkbook.Name = ThisWorkbook.Name Then Exit Sub
   MsgBox ActiveWorkbook.Name
End Sub

Speichere dein Makro und schließe den Visual Basic-Editor.
Teste das Makro: Wechsle zwischen verschiedenen Excel-Dateien. Das Makro gibt dir den Namen der aktuellen Datei aus, wenn du sie verlässt.

Häufige Fehler und Lösungen

Das Makro funktioniert nicht: Stelle sicher, dass das Makro in der richtigen Arbeitsmappe gespeichert ist und dass du die Datei nicht schreibgeschützt geöffnet hast.
Keine Nachricht erscheint: Überprüfe, ob das Workbook_Deactivate-Ereignis korrekt ausgelöst wird. Teste es, indem du eine andere Datei aktivierst.

Alternative Methoden

Falls die oben genannte Methode nicht deinen Anforderungen entspricht, kannst du auch die folgenden Alternativen ausprobieren:

Direktes Auslesen des Dateinamens: Du kannst den Dateinamen direkt über ein einfacher gestaltetes Makro auslesen:
```
Sub DateinameAuslesen()
   MsgBox ThisWorkbook.Name
End Sub
```
Nutzung von Formeln: In Excel kannst du die Funktion =ZELLE("Dateiname") verwenden, um den Namen der aktiven Datei zu erhalten. Beachte jedoch, dass diese Methode in einer gespeicherten Datei funktioniert.

Praktische Beispiele

Hier sind einige Beispiele, wie du den Dateinamen in verschiedenen Situationen auslesen kannst:

Einfache Ausgabe des Dateinamens:

Sub ZeigeDateiname()
   MsgBox "Der Dateiname ist: " & ActiveWorkbook.Name
End Sub

Dateinamen in eine Zelle schreiben:

Sub SchreibeDateinameInZelle()
   Range("A1").Value = ActiveWorkbook.Name
End Sub

Diese Methoden sind besonders nützlich, wenn du mehrere Excel-Dateien verwaltest und jederzeit den Überblick behalten möchtest.

Tipps für Profis

Nutzung von Fehlerbehandlung: Implementiere On Error Resume Next, um sicherzustellen, dass dein Makro auch bei nicht geöffneten Dateien nicht abstürzt.
Automatisierung: Überlege, das Auslesen des Dateinamens in ein größeres Makro zu integrieren, um die Effizienz deiner Excel-Arbeit zu steigern.
Sicherheitsoptionen: Stelle sicher, dass die Makros in deiner Excel-Umgebung aktiviert sind, um die Funktionen nutzen zu können.

FAQ: Häufige Fragen

1. Kann ich den Dateinamen aus einer geschlossenen Datei auslesen?
Nein, das Auslesen des Dateinamens funktioniert nur für geöffnete Dateien.

2. Welche Excel-Version benötige ich für die Nutzung der VBA-Makros?
Die oben genannten Makros sind mit Excel 2007 und höheren Versionen kompatibel. Achte darauf, dass die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)