title image


Smiley ein Vorschlag
Hi,



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

If MsgBox("Für den eingegebenen Zeitraum steht das MIS nicht zur Verfügung," _

& vbCrLf & " wollen Sie eine neue Jahreszahl eingeben?", vbYesNo + vbCritical) = vbYes Then

Call Einstieg_Abfrage

End If

End If

End Sub
Gruß aus Köln! Marc

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: