Gruppe
Datei
Bereich
Name
Thema
Blatttyp und Arbeitsmappennamen prüfen
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