Microsoft Excel

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