Kontrollsumme prüfen bis =0

Hallo zusammen
ich habe eine Datei, die ich per Userform mit Daten füllen will. Dabei soll der User bestimmte Zahlen eingeben, deren Kontrollsumme Null ergibt. Wenn die Kontrollsumme nicht Null ist, soll der User in der UF die Zahlen wieder ändern können.
Das Problem wollte ich versuchsweise mit einem Do-Loop-Konstrukt lösen. Allerdings weiß ich nicht, wie ich aus der Loop-Schleife heraus wieder an die Eingaben im Formular herankomme, da ja dann permanent die Msgbox zu sehen ist.
Bisheriger Stand anbei:
https://www.herber.de/bbs/user/65375.xls
Ich hoffe, das ich das Problem verständlich beschreiben konnte. Wenn meine Idee mit dem Loop nicht sinnvoll erscheint, bin ich auch gern für Alternativen offen.
Danke vorab und Gruß
David

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub CommandButton1_Click() Check_1 = CLng(B_gesamt_1) - CLng(B_unter_1) - CLng(B_ueber_1) - CLng(B_sonder_1) - CLng( _ B_gut_1) If Check_1 > 1 Then B_gesamt_1.SetFocus MsgBox "Bitte Eingaben prüfen" End If Cells(LoLetzte + 1, 2) = Calendar Cells(LoLetzte + 1, 3) = Artikel Cells(LoLetzte + 1, 5) = Maschine Cells(LoLetzte + 1, 6) = B_gesamt_1 Cells(LoLetzte + 1, 7) = B_unter_1 Cells(LoLetzte + 1, 8) = B_ueber_1 Cells(LoLetzte + 1, 9) = B_sonder_1 Cells(LoLetzte + 1, 10) = B_gut_1 'Datum.Activate End Sub

Hallo David,
versuch es mal so:


Private Sub CommandButton1_Click()
Dim xCheck As Long
xCheck = -1
Do Until xCheck = 0
xCheck = CLng(Me.B_gesamt_1.Value) - CLng(Me.B_unter_1.Value) - _
CLng(Me.B_ueber_1.Value) - CLng(Me.B_sonder_1.Value) - _
CLng(Me.B_gut_1.Value)
Me.Check_1.Value = xCheck
If xCheck  0 Then
MsgBox "Bitte Eingaben prüfen"
Exit Sub
End If
Loop
ActiveSheet.Cells(LoLetzte + 1, 2).Value = Me.Calendar.Value
ActiveSheet.Cells(LoLetzte + 1, 3).Value = Me.Artikel.Value
ActiveSheet.Cells(LoLetzte + 1, 5).Value = Me.Maschine.Value
ActiveSheet.Cells(LoLetzte + 1, 6).Value = Me.B_gesamt_1.Value
ActiveSheet.Cells(LoLetzte + 1, 7).Value = Me.B_unter_1.Value
ActiveSheet.Cells(LoLetzte + 1, 8).Value = Me.B_ueber_1.Value
ActiveSheet.Cells(LoLetzte + 1, 9).Value = Me.B_sonder_1.Value
ActiveSheet.Cells(LoLetzte + 1, 10).Value = Me.B_gut_1.Value
'Datum.Activate
End Sub

Es ist immer gut, wenn man im Vba-Code die vollständige Objekt-Bezeichnung (Me. und ActiveSheet.) sowie die gewünschte Eigenschaft (.Value) mit angibt; auch wenn sie Standard sind.
Dann kann man keine bösen Überraschungen erleben, wenn man dachte, daß das/die Standardobjekt/Standardeigenschaft so sei, aber in Wirklichkeit ganz anders ist.
Als ich das 1. Mal mir Deinen Vba-Code ansah, wußte ich nicht, das 'Check_1' eine Textbox im Formular ist, sondern vermutete eine nicht deklarierte Variable.
Und so kann es dann zu Irrtümern kommen und kann eventuelle Vba-Fehler nur sehr finden. Noch schlimmer wird es, wenn es kein Vba-Fehler ist, sondern die Ergebnisse aus den Textboxen des Formulars in falsche Tabellen geschrieben werden.
Diese exakte Referenz auf Objekten bzw. Eigenschaften/Methoden sollte man sich angewöhnen. Leider wird das hier im Forum sehr mangelhaft praktiziert.
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kontrollsumme prüfen bis =0

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread