INPUT NAME UPON STARTUP OF EXCEL FILE

Option Explicit

Const cdateGebdat As Date = "27.09.1970"
   
Sub InputBox_Bereich()
'Beispiel für die Weiterverwendung eines Bereichs. Der Bereich wird über eine InputBox erfasst

Dim rngZellbereich As Range 'Mit Object kann man unter anderem Zellbereiche ansteuern
On Error GoTo ErrorHandler

    Set rngZellbereich = Application.InputBox(prompt:="Bereich", Title:="Formel", Type:=8)
    'Type:=8 definiert die Eingabe eines Zellbereichs
   
    Range("B3").Value = Application.WorksheetFunction.Sum(rngZellbereich)
    'Schreibt das fertige Ergebnis in Zelle B3
   
    Range("B4").Formula = "=sum(" & rngZellbereich.Address & ")"
    'Schreibt die Tabellenblattfunktion SUMME mit ausgewählter Adresse in Zelle B4
    '.Address gibt dabei die Koordinaten des Bereichs an - allerdings ohne Tabellenblattname
    'rngZellbereich.worksheet.name würde den Tabellenblattnamen der Auswahl wiedergeben
    'FormulaLocal funktioniert nicht bei mehreren Bereichen, da Komma statt Semikolon
   
    Set rngZellbereich = Nothing
    'Der Bereich wird wieder entfernt
   
    Exit Sub
   
ErrorHandler:
    Debug.Print Err.Description; Err.Number; Err.Source
    MsgBox "Ein Fehler ist aufgetreten", vbInformation, "Falsche Auswahl"
    Exit Sub
End Sub


Sub Code_testen()
' Andreas Thehos, 2013
Dim dateDatum As Date, dateZeit As Date, dateAktuelleZeit As Date
On Error GoTo ErrorHandler

    Let dateDatum = Date        'Variable dateDatum bekommt aktuelles Datum
    Let dateZeit = Time         'dateZeit bekommt Uhrzeit
    Let dateAktuelleZeit = Now
   
    With ThisWorkbook.Worksheets("Code testen")
        .Cells(2, 2).Value = dateDatum + dateZeit
        .Cells(3, 2).Value = Application.UserName
    End With
   
    MsgBox "Beim nächsten Ton ist es ..." & Chr(13) & dateAktuelleZeit, _
        vbInformation, "Zeitansage"
     
    Debug.Print dateAktuelleZeit
    Debug.Print DateDiff("yyyy", cdateGebdat, dateDatum)
    Exit Sub
   
ErrorHandler:
    Debug.Print Err.Description, Err.Number, Err.Source
    Exit Sub
End Sub

Sub lange_Schleife()
Dim dblZaehler As Double
On Error GoTo ErrorHandler

    Application.EnableCancelKey = xlErrorHandler
   

    Debug.Print Time
   
    For dblZaehler = 1 To 1000000000
        'dblZaehler = dblZaehler - 1
    Next
   
    Debug.Print Time
    Exit Sub
   
ErrorHandler:

    Debug.Print Err.Number
    MsgBox "Sie haben die ESC-Taste gedrückt.", vbInformation, "Danke"
    Exit Sub
End Sub