Thema: Verankerung von Schaltflächen am oberen Tabellenblattrand

StandardModule: Modul1

Sub VbsAufruf()
   Dim sFile As String
   Dim sArg As String
   sArg = """" & Application.UserName & Chr(34) & Now & """"
   sFile = ThisWorkbook.Path & "\message.vbs "
   Shell "WScript.exe " & sFile & sArg, vbNormalFocus
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht