Code Snippet "VBA Excel"

Typ eines Blattes abfragen

Mögliche Werte sind: - xlWorksheet - xlChart - xlExcel4IntlMacroSheet - xlExcel4MacroSheet - xlDialogSheet

  If ActiveSheet.Type = xlWorksheet Then
    Cells(1, 1).Formula = "=NOW()"
    Cells(1, 1).NumberFormat = "h:mm;@"
  Else
    MsgBox ("Dies ist kein Tabellenblatt")
  End If