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