MsgBox falls nicht 1,2 oder 3 und Goto Eingabe
07.02.2007 16:07:20
Ronny
lese mir für diverse Berechnungen Daten von einem Tabellenblatt ins andere aus und muss für die Eingabe ein Datum nach der schreibweise TT.MM.JJ h:mm;@ vom Benutzer eingeben lassen und die Linie (1,2 oder 3) welche berechnet werden soll. Die Datum soll dann nach obiger Schreibweise in das Tabellenblatt "SRx manuell" in die Zelle C2 eingetragen werden, wonach dann automatisch Daten vom
Server zu diese Datum abgerufen werden. Das automatisch abrufen der Daten funktioniert bereits über ein AddIn, aber nur wenn die schreibweise TT.MM.JJ h:mm;@ eingehalten wird! Was mir also fehlt ist einfach eine Abfrage über einen Button "SRx_manuell_berechnen", welcher dann einaml das Datum in die Zelle C2 im Tabellenblatt "SRx manuell" einträgt und zum anderen eine Abbruchbedingung falls der Benutzer bei der Abfrage der Linie kein "1", "2" oder "3" eingibt.
Was passieren soll wenn man "1", "2" oder "3" eingibt funktioniert bereits in meinem CODE.
Mein bisheriger CODE:
Private Sub SRx_aktuell_berechnen_Click()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim SpalteZiel As Integer, SpalteQuelle As Integer, rngBereich As Range 'SpalteZiel2 As Integer,
Set wksQuelle = Worksheets("SRx manuell")
Set wksZiel = Worksheets("Input")
SpalteQuelle = 7
SpalteZiel = 4
' SpalteZiel2 = 14
Dim Frage As String
Frage = MsgBox("Wollen Sie wirklich alle Werte zum manuell gewählten Datum aus dem SRx für die nachfolgenden Berechnungen verwenden? Alle Input-Daten werden aktualisiert!", [vbYesNo])
If Frage = vbNo Then
Exit Sub
Else
If vbclose Then Exit Sub 'Abbrechen geklickt oder nichts eingegeben
Dim I As Long, Linie As Boolean 'neu
' Call getMoreSpeed(True) 'Beschnleuniger aufrufen
'Kessel bzw. Linie abfragen
Eingabe:
Linie = Val(InputBox("Bitte geben Sie die gewünschte Liniennummer an!", _
"Für die jeweilige Linie bitte nur 1, 2 oder 3 eingeben"))
'''Hier fehlt noch die Abbruchbedingung wenn nicht 1, 2 oder 3 eingegeben wurde, hab leider da nix sinnvolles zu stande bekommen. Kann mir an der Stelle wer helfen?
MsgBox "Es wurde keine gültige Linie ausgewählt!" & vbLf & vbLf _
& "Bitte nur die Zahlen 1,2 oder 3 für die jeweilige Linie eingeben!", vbCritical
On Error GoTo 0
GoTo Eingabe
If Linie = "1" Then
... funktioniert
Else
If Linie = "2" Then
... funktioniert
Else
If Linie = "3" Then
... funktioniert
End If
End If
End If
End If
End Sub
Kann mir bitte wer Helfen eine Abbruchbedingung wenn nicht "1", "2" oder "3" eingeben wurde und die oben angesprochen Datumseingabe nach der schreibweise TT.MM.JJ h:mm;@ in den CODE zu implementieren???
Mfg,
Ronny