Gruppe
Datei
Problem
Wie kann ich den Blattyp (Arbeitsblatt oder Diagramm) und den kompletten Dateinamen ermitteln?
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