Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1652to1656
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
Spalte prüfen ob name vorhanden
24.10.2018 12:57:56
sigrid
Guten Tag,
ich habe in meiner Datenbank Tabelle "Aufträge" ab Zelle C1
stehen stehn.
Wenn ich einen neuen Namen eingeben möchte, sollte geprüft werden
ob der Name schon vorhanden ist, gegebenfalls ändern.
gruß
sigrid

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte prüfen ob name vorhanden
24.10.2018 13:01:50
UweD
Hallo
so?

Tabelle1
 CD
1AuftragWarnung
21 
32 
43 
51Mehrfach

verwendete Formeln
Zelle Formel Bereich N/A
D2: D5=WENN(ZÄHLENWENN(C$2:C2;C2)>1;"Mehrfach";"")  
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://Hajo-Excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit


LG UweD
Anzeige
AW: Spalte prüfen ob name vorhanden
24.10.2018 14:06:01
sigrid
Hallo UweD,
danke für den Vorschlag, würde es aber gern mit einem Makro versuchen, da ich dies
dann im vorhandenen Makro einbinden kann.
mfg
sigrid
Anbei zur Info, da userform
24.10.2018 16:11:21
sigrid
Hallo,
der Name der überprüft werden soll, steht in Textbox10.
mfg
sigrid
AW: Anbei zur Info, da userform
24.10.2018 16:34:25
Daniel
Hi
in VBA kannst du ebenfalls die Excelfunktionen verwenden:
If Worksheetfunction.CountIf(Columns(1), Textbox10.Text)) > 0 Then msgbox "Wert schon vorhanden"
oder ohne Rückgriff auf die Excelfunktionen:
dim Zelle as Range
set Zelle = Columns(1).Find(What:=Textbox10.Text, lookat:=xlwhole)
if Not Zelle is Nothing then Msgbox "Text bereits vorhanden"
Gruß Daniel
Anzeige
Ja, jetzt sollte...
24.10.2018 16:51:47
sigrid
Guten Abend Daniel,
das ist einwandfrei:
dim Zelle as Range
set Zelle = Columns(1).Find(What:=Textbox10.Text, lookat:=xlwhole)
if Not Zelle is Nothing then Msgbox "Text bereits vorhanden"
jetzt ist vorhanden und ich möchte, bevor der Name eingetragen wird,
das man diesen verändern kann z.b. sigrid Änderung in sigrid2
würde mich sehr freuen wenns klappt !
danke im voraus
gruß sigrid
AW: Ja, jetzt sollte...
24.10.2018 17:03:42
Daniel
Hi
würde ich so machen:
If Worksheetfunction.CountIf(Columns(1), Textbox10.Text)) = 0 then
hier der Code zum eintragen des Wertes und ggf schließen der Userform
Else
Msgbox "Name ist bereits vorhanden, bitte anderen Namen eingeben"
Textbox10.Setfocus
End if

der Name kann dann nach dem Hinweis in der TextBox geändert werden.
Gruß Daniel
Anzeige
Danke herzlichen Dank --))
24.10.2018 17:14:11
sigrid

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige