Office: Userform, Bei Eingabe prüfen ob wert schon vorhanden

Macanudo · 5. November 2017

Guten Tag in die Runde,

mit dem beigefügten Code übergebe ich die in eine Userform eingegeben Daten an die Exceltabelle. Das klappt auch wunderbar. Nun war es vorgekommen, dass ich Daten doppelt eingegeben hatte.

Gibt es eine Möglichkeit, dass man nach der Eingabe die Spalte (D) prüfen lassen kann, ob der Wert schon vorhanden ist? Wenn er vorhanden ist, sollte ein Hinweis kommen, den man wegklicken kann und die betreffende Zeile wieder leer ist. Danach sollte idealerweise die Userform wieder erscheinen.

Ich hoffe, dass es nicht zu kompliziert ist.

Anbei die Datei und auch der Code.

Vielen Dank für die Hilfe.

Viele Grüße
Uwe

Code:

Private Sub CommandButton1_Click()
Dim lngErste As Long
Dim intSpalte As Integer
With Worksheets("Eingangsbuch")
If IsDate(TextBox2) Then
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
If lngErste > 2 Then
.Range(.Cells(lngErste - 1, 1), .Cells(lngErste - 1, 68)).Copy .Cells(lngErste, 1)
For intSpalte = 1 To 68
If .Cells(lngErste, intSpalte).HasFormula = False Then .Cells(lngErste, intSpalte).ClearContents
Next intSpalte
End If
.Cells(lngErste, 2) = CDate(TextBox2)
.Cells(lngErste, 1) = TextBox1
.Cells(lngErste, 4) = TextBox3
If IsNumeric(TextBox4) Then
.Cells(lngErste, 5) = CDbl(TextBox4) ' soll als Betrag formatiert werden z.B. 25,23
.Cells(lngErste, 5).NumberFormat = "#,##0.00 $"
End If
End If
End With
Unload Me
UserForm1.Show
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Storax · 7. November 2017

Als Ansatz folgende Funktion Code:

Function searchInColD(searchWhat As String) As Boolean

Dim rg As Range
Dim sRg As Range

Set rg = Columns("D")
Set sRg = rg.Find(searchWhat)
If sRg Is Nothing Then
searchInColD = False
Else
searchInColD = True
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und in der Userform Code:

If searchInColD(TextBox3.Value) Then
MsgBox "Gibt es schon", vbOKOnly, "Test"
TextBox3.Value = ""
Exit Sub
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Achtung Ansatz, bei der Find-Methode fehlen natürlich noch zwei Parameter.

Ansonsten, hier Grundlagen lernen

Macanudo · 7. November 2017

Vielen Dank für die Hilfe. Ich werde es einarbeiten und melde mich wieder.

Viele Grüße
Uwe

Macanudo · 7. November 2017

Code:

Private Sub CommandButton1_Click()
Dim lngErste As Long
Dim intSpalte As Integer
With Worksheets("Eingangsbuch")
If searchInColD(TextBox3.Value) Then
MsgBox "Gibt es schon", vbOKOnly, "Test"
TextBox3.Value = ""
End If
If IsDate(TextBox2) Then
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
If lngErste > 2 Then
.Range(.Cells(lngErste - 1, 1), .Cells(lngErste - 1, 68)).Copy .Cells(lngErste, 1)
For intSpalte = 1 To 68
If .Cells(lngErste, intSpalte).HasFormula = False Then .Cells(lngErste, intSpalte).ClearContents
Next intSpalte
End If
.Cells(lngErste, 2) = CDate(TextBox2)
.Cells(lngErste, 1) = TextBox1
.Cells(lngErste, 4) = TextBox3
If IsNumeric(TextBox4) Then
.Cells(lngErste, 5) = CDbl(TextBox4) ' soll als Betrag formatiert werden z.B. 25,23
.Cells(lngErste, 5).NumberFormat = "#,##0.00 $"
End If
End If
End With
Unload Me
UserForm1.Show
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe es eingearbeitet, leider funktioniert es nicht so richtig. Er löscht zwar Textbox3, aber egal ob die Nummer schon vorhanden ist, oder nicht.

Was sollen denn noch für Parameter in die Function eingefügt werden?

Versuche noch einmal die Userform zu erklären.

Über die Userform gebe ich die Daten von Eingangsrechnungen ein. Firma, Datum, Rechnungsnummer, Betrag. Diese werden dann in eine Tabelle übertragen.

Jetzt kam es schon paar mal vor, dass ich zufällig 2x die gleiche Rechnung eingegeben habe. Dies möchte ich verhindern, in dem er die Spalte 4, da kommt dann die Rechnungsnummer hinein, abgleicht, ob die schon vorhanden ist. Sollte die Nummer schon drin sein, sollte ein Hinweis kommen und dann mit okay bestätigt werden. Danach sollte die Userform geleert werden und man kann eine neue Rechnung eingeben.

Wie müsste dann der obige Code geändert werden?

Leider ist der Userform Link in Englisch. Da komme ich leider auch nicht weiter.

Vielen Dank.

Viele Grüße Uwe

Storax · 7. November 2017

https://msdn.microsoft.com/de-de/vba...d-method-excel

Speziell Lookin und Lookat

Er löscht zwar Textbox3, aber egal ob die Nummer schon vorhanden ist, oder nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du hast eine Nummer eingegeben, die mit der find Methode gefunden wird, weil sie "teilweise" vorhanden ist.

Macanudo · 8. November 2017

Jetzt läuft es. Vielen lieben dank, dass Du mir auf die Sprünge geholfen hast.

Code:

Set rng = Worksheets("Eingangsbuch").Range("D:D").Find(What:=TextBox2.Text, LookAt:=xlWhole, LookIn:=xlValues)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Grüße Uwe

Office: Userform, Bei Eingabe prüfen ob wert schon vorhanden

Userform, Bei Eingabe prüfen ob wert schon vorhanden

Userform, Bei Eingabe prüfen ob wert schon vorhanden

Userform, Bei Eingabe prüfen ob wert schon vorhanden

Userform, Bei Eingabe prüfen ob wert schon vorhanden - Similar Threads - Userform Eingabe prüfen

Userform unterdrücken - wenn Datei von andere Datei geöffnet wird

UserForm in Office 2019 für MacOS fehlt

Userform Login Benutzername in Zelle schreiben

Datum in Userform formatieren

Eingabe über Userform und mehrere Tabellenblätter

Eingaben einer Userform speichern

Löschung einzelner Eingaben in UserForm