Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelte vermeiden in Eingabemaske??

Doppelte vermeiden in Eingabemaske?
28.09.2004 09:19:52
Peter
Hallo an die Spezialisten,
1)über eine ComboBox, die aus einer Tabelle gefüttert wird, gebe ich Daten in einer UF an TextBoxes weiter; nun können die Daten verändert werden und per CB an die Tabelle als Neueintrag übergeben werden...soweit so gut.....klappt
Der Inhalt von TB1 ist die Kundennummer; diese soll sinnvollerweise vor Neueingabe auf Dubletten überprüft werden.........auch das klappt und wird mir per MsgBox angezeit......jedoch nach schlißen der MsgBox wird der Datensatz trotzdem in die Tabelle geschrieben....wer kann da mal eingreifen?
https://www.herber.de/bbs/user/11388.xls
2)Wer hat gerade mal die Ascii Werte von Zahlen parat?
Vielen Dank
Peter S.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte vermeiden in Eingabemaske?
Ingo

Sub Doppelte()
Dim var As Variant
Dim intRow As Integer
Dim x
var = Application.Match(CDbl(UserForm1.TextBox1.Text), Columns(1), 0)
If Not IsError(var) Then
x = MsgBox("Kunden-Nr. ist bereits vorhanden! " & Chr(10) & "Trotzdem übernehmen?", vbQuestion + vbYesNo + vbDefaultButton2)
If x = vbYes Then
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intRow, 1) = UserForm1.TextBox1.Text
Else
End
End If
End If
End Sub

mfG
Ingo Christiansen
Hallo Ingo......vielen Dank klappt bestens..o.T.
28.09.2004 09:44:12
Peter
.
zu 2) - einfach =CODE(A1)
Boris
Grüße Boris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige