Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.05.2025 11:04:50
Aktualisieren Button mit Piktogramm?
13.05.2025 10:24:22
Formelfehler
13.05.2025 08:10:06
Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh
13.05.2025 07:51:02
Exceldateien schneller öffnen / abspeichern?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform-Frage 3. Anlauf

Forumthread: Userform-Frage 3. Anlauf

Userform-Frage 3. Anlauf
25.01.2004 15:10:49
HerbertS
Hallo Freunde,
ich möchte über ein UserForm Daten erfassen und Duplikate vermeiden.
Meine Bitte: seht das Beispiel an und NUR antworten, wenn Ihr's ausprobiert und konkrete Vorschläge habt. Sonst komme ich hier nicht weiter.
https://www.herber.de/bbs/user/3196.xls
Vielen Dank im Voraus!
HerbertS
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Userform
Tags
#duplikate #formulare #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Userform-Frage 3. Anlauf
25.01.2004 15:18:44
Hajo_Zi
Hallo Herbert
warum neuer Beitrag. Dein alter Beitrag war doch schon 3 x im Forum. Ein Problem immer komplett in einem Beitrag abhandeln, denke doch auch mal ans Archiv.
Dein Beispiel ist für Deine Aufgabenstellung schlecht, die 111 isz schon 2 x vorhanden. Artbeite mit Find.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Userform-Frage 3. Anlauf
25.01.2004 15:23:42
Ramses
Hallo
mangels anderer Informationen hier mal auf die Schnelle

Private Sub sfNeuerSatz_Click()
Dim i
Application.EnableEvents = False
[A65536].Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Zeile = ActiveCell.Row
txtBetrag.SetFocus
Cells(Zeile, 1).Value = txtBetrag.Value
Cells(Zeile, 2).Value = txtName.Value
For i = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 1) = Me.txtName Then
MsgBox "Name existiert schon"
Me.txtBetrag = ""
Me.txtName = ""
Exit Sub
End If
Next i
'***** Maskendaten löschen - Start
If txtBetrag <> "" Then
txtBetrag = ""
End If
If txtName <> "" Then
txtName = ""
End If
'****  Maskendaten löschen - Ende
Application.EnableEvents = True
End Sub


Gruss Rainer
Anzeige
Danke Rainer! UserForm-Duplikate ....
25.01.2004 17:14:36
HerbertS
Vielen Dank, Rainer. Damit kann ich etwas anfangen. Vorwürfe helfen mir nicht weiter!
Nix für Ungut!
Herbert
AW: Userform-Frage 3. Anlauf
25.01.2004 16:00:16
Ulf
Ich hab mir deine Datei angesehen und sofort wieder geschlossen. Wenn
du die Hilfestellung derart einschränkst, ist keine echte Hilfe möglich,
bestenfalls Verwaltung des Mangels.
Ulf
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige