MsgBox"Weitere Eingabe am gleichen Datum ?", vbYesNo Or vbQuestion, "Eingabe gleicher Tag"

Hallo Thorsten
ich habe mal eine Funktion zusammengeschrieben, mit der kannst du die ID abfragen.

Als Rückgabe bekommst du gleich den fertigen String mit ID- am Anfang oder einen leeren String, wenn
der Benutzer abgebrochen hat.

Vielleicht hilft dir das weiter

Gruß

Function Ticket_ID_Abfragen() As String
<br /> Dim Eingabe As Long
<br />
<br /> Do
<br /> Eingabe = Application.InputBox("Ticket-ID eingeben (3-5 Stellige Zahl)", "Ticket-ID", Type:=1)
<br /> If Eingabe < 0 Or Eingabe > 99999 Then
<br /> If MsgBox("Der eingegebene Wert liegt nicht im erlaubten Bereich." & vbNewLine & "Wollen Sie es nocheinmal versuchen?", vbQuestion + vbYesNo, "Ticket-ID Falscheingabe") = vbNo Then
<br /> Exit Do
<br /> End If
<br /> Else
<br /> Exit Do
<br /> End If
<br /> Loop While Eingabe < 0 Or Eingabe > 99999
<br />
<br /> If Eingabe > 0 Then
<br /> Ticket_ID_Abfragen = "ID-" & Eingabe
<br /> Else
<br /> Ticket_ID_Abfragen = ""
<br /> End If
<br />End Function
<br />

Hallo Claus
<br />J7 und J8 sind selbst eingegebene Zahlen. Dort ist keine Formel drin.
<br />Gruß
<br />

Hallo,
<br />sehr wahrscheinlich ist einer der Werte berechnet und der andere fest. Kontrolliere mal die Zellen J7 und J8.
<br />Falls in einer der Zellen eine Formel steht, binde die Formel in RUNDEN ein:
<br />=RUNDEN(DeineFormel;2)
<br />Claus
<br />

Entweder steht die Berechnungsoption nicht auf Automatisch oder es gibt irgendwo einen Zirkelbezug.
<br />Andreas.
<br />

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Hallo, ich bin Elise, eine unabhängige Beraterin und ich würde gerne bei Ihrem Problem helfen.

Wenn Sie jede Zelle hervorheben, die in der Formel verwendet wird, überprüfen Sie, ob daten mit zusätzlichen Ziffern nach dem Dezimaltrennzeichen vorliegen?

Herzliche Grüße

Elise