title image


Smiley Veruchs mal so...
Sub Einstieg_Abfrage()

Dim Jahr As String

On Error GoTo errorhandler

Jahr = InputBox("Für welches Jahr sollen die Auswertungen durchgeführt werden? Bitte Jahreszahl im Format JJJJ eingeben:")

Sheets("Module" & Jahr).Select

errorhandler:

If Err.Number = 9 Then

MsgBox "Für den eingegebenen Zeitraum steht das MIS nicht zur Verfügung"

End If

End Sub


Gruß aus Köln! Marc

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: