Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Blatttyp und Arbeitsmappennamen prüfen
Gruppe
Name
Problem
Wie kann ich den Blattyp (Arbeitsblatt oder Diagramm) und den kompletten Dateinamen ermitteln?
Lösung
Den nachstehenden Code bei XL5/7 in ein englischsprachiges, bei XL8 ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: modMain Sub Pruefen() MsgBox "Das aktive Blatt ist ein " & TypeName(ActiveSheet) If InStr(ThisWorkbook.FullName, ":\") Then MsgBox "Die Arbeitsmappe wurde gespeichert unter " & vbLf & _ ThisWorkbook.FullName Else MsgBox "Die Arbeitsmappe ist noch nicht gespeichert!" End If End Sub