VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blatttyp und Arbeitsmappennamen prüfen

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Name