Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalte prüfen ob name vorhanden

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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Namen in Excel-Spalte prüfen


Schritt-für-Schritt-Anleitung

Um zu prüfen, ob ein Wert in einer Spalte vorhanden ist, kannst du die folgende Excel-Formel verwenden:

  1. Gehe zu der Zelle, in der du die Überprüfung durchführen möchtest (zum Beispiel D2).

  2. Verwende die Formel:

    =WENN(ZÄHLENWENN(C:C; C2) > 1; "Mehrfach"; "")

    Diese Formel zählt, wie oft der Wert in der Spalte C vorkommt. Wenn der Wert mehr als einmal vorkommt, wird "Mehrfach" angezeigt.

  3. Um die Überprüfung in einem Makro einzubinden, kannst du VBA verwenden:

    If WorksheetFunction.CountIf(Columns(3), Textbox10.Text) > 0 Then
       MsgBox "Wert schon vorhanden"
    End If

    Das Skript überprüft, ob der Wert aus der TextBox bereits in der Spalte C vorhanden ist.


Häufige Fehler und Lösungen

  1. Fehler: Die Formel gibt einen Fehler aus. Lösung: Stelle sicher, dass die Zellreferenzen korrekt sind und die Daten in der richtigen Spalte stehen.

  2. Fehler: Das Makro funktioniert nicht. Lösung: Überprüfe, ob die richtigen Objekte (z.B. TextBox10) verwendet werden und ob die Spalten korrekt referenziert sind.


Alternative Methoden

Es gibt verschiedene Möglichkeiten, um zu überprüfen, ob ein Wert in einer Spalte vorhanden ist:

  • Verwendung von Find:

    Dim Zelle As Range
    Set Zelle = Columns(3).Find(What:=Textbox10.Text, LookAt:=xlWhole)
    If Not Zelle Is Nothing Then
       MsgBox "Text bereits vorhanden"
    End If

    Diese Methode sucht nach dem exakten Text in der Spalte.

  • Datenüberprüfung: Du kannst auch die Datenüberprüfung in Excel verwenden, um sicherzustellen, dass nur bestimmte Werte in die Zelle eingegeben werden.


Praktische Beispiele

Angenommen, du hast eine Liste von Namen in Spalte C. Du möchtest sicherstellen, dass der Name, den der Benutzer eingibt, nicht bereits in der Liste steht.

  1. Formel in Excel:
    • Gebe in D2 die Formel ein:
      =WENN(ZÄHLENWENN(C:C; C2) > 0; "Name vorhanden"; "Name nicht vorhanden")
  2. VBA-Makro:
    • Füge das folgende Skript in das VBA-Editor ein:
      If WorksheetFunction.CountIf(Range("C:C"), Textbox10.Text) = 0 Then
       ' Code zum Eintragen des Wertes hier
      Else
       MsgBox "Name ist bereits vorhanden, bitte anderen Namen eingeben"
      End If

Tipps für Profis

  • Verwende ZÄHLENWENN anstelle von SVERWEIS, wenn du nur prüfen möchtest, ob ein Wert vorhanden ist, um die Performance zu verbessern.
  • Du kannst die Datenüberprüfung-Funktion in Excel nutzen, um sicherzustellen, dass nur bestimmte Werte eingegeben werden.
  • Nutze Conditional Formatting, um die Zellen hervorzuheben, in denen Duplikate vorhanden sind.

FAQ: Häufige Fragen

1. Wie kann ich überprüfen, ob ein Wert in einer anderen Tabelle vorhanden ist?
Du kannst die Formel wie folgt anpassen:

=WENN(ZÄHLENWENN(Tabelle2!C:C; C2) > 0; "Wert vorhanden"; "Wert nicht vorhanden")

2. Was passiert, wenn ich einen Wert ändern möchte, der bereits vorhanden ist?
Du kannst eine MessageBox anzeigen, die den Benutzer auffordert, einen anderen Namen einzugeben, und ihm die Möglichkeit geben, den Namen in der TextBox zu ändern.

Beliebteste Forumthreads (12 Monate)

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