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
C | D | |
1 | Auftrag | Warnung |
2 | 1 | |
3 | 2 | |
4 | 3 | |
5 | 1 | Mehrfach |
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 |
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ß DanielIf 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