Office: Telefonnummer prüfen ob sie schon in der Tabelle vorhanden ist.

Hallo

Ich benutze eine userform um Daten in die Tabelle einzutragen. Ich möchte verhindern dass ein Kunde zweimal erfasst wird und möchte daher prüfen ob eine Telefonnummer schon im System ist.
Die Telefonnummer wird als String in der Tabelle gespeichert, denn wir tragen die Telefonnummer normalerweise so ein: 076 521 58 96 . Es kann aber vorkommen dass ein anderer user die telefonnummer anders eingibt (zb im format 076541236 oder 045/2568745 etc) und dann funktioniert das prüfen nicht. Was schlagt ihr vor soll ich machen? Beim String die Leerzeichen entfernen und dann prüfen? Die Telefonnummern sind in einer Tabelle/listobject gespeichert: Kunden[Telefon1] Es wäre natürlich auch toll falls ich den Namen des Kunden der schon registriert ist in der msbox angezeigt wird.

Wie würdet ihr das in der Userform machen? Soll ich dazu eine versteckte Tabelle benutzen (habe schon eine) die ich für Berechnungen brauche?

Genügen euch diese Angaben oder soll ich ein Beispiel schreiben und es hochladen?

Danke für eure Hilfe

Maria

 

Hi Maria,

du könntest in einer Schleife über alle Zellen der Telenfonnummern-Spalte laufen und prüfen, ob Instr(Trim(Zelle), zu prüfendeTelefonnummer) > 0 ist. Instr() ermittelt ja, ob eine Zeichenfolge (zu prüfende Telefonnummer) in einer anderen (laufende Zelle) enthalten ist - ist das Ergebnis > 0, dann ist sie enthalten. Trim(Zelle) löscht alle Leerzeichen.

Den Namen kannst du dir dann anzeigen lassen, indem du die laufende Zeilennummer und die betreffende Spalte verwendest - MsgBox Cells(laufende Zeilennummer, Spaltennummer).

Bis später,
Karin

 

Hallo Karin

Ich habe mal folgenden Code versucht: Ich möchte ja in der Range/Tabelle (ist ja ein listobject, oder nicht?) Kunden[Telefon] alle Nummern durchlaufen .. aber irgendwie klappt es nicht. Ich kriege bei Range("Kunden[Telefon]") einen Fehler.

Code:

Option Explicit

Private Sub Prüfen(Nummer)

    Dim TelefonNummer As String
    Dim Rng As Range
    TelefonNummer = Trim(Nummer)
    If Trim(TelefonNummer) <> "" Then
        With Sheets("Tabelle1").Range("Kunden[Telefon]")
            Set Rng = .Find(What:=TelefonNummer, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                MsgBox "Gefunden"
                MsgBox "Diese Nummer ist bereits folgender Person registriert:" 'Wie weiter?
            Else
                MsgBox "Nicht gefunden"
            End If
        End With
    End If

End Sub

Private Sub CommandButton1_Click()
Prüfen (txtTelefon.Value)
End Sub

Ich habe eine Beispielsdatei raufgeladen. Zur Berechnung kann ich ja jederzeit eine Hilfsspalte/Blatt benutzen.

Danke für deine Hilfe

Maria

 

Hi Maria,

so sollte es gehen:

Code:

Private Sub Prüfen(Nummer)
   Dim Rng As Range
   With Sheets("Tabelle1").Range("Kunden[Telefon]")
       Set Rng = .Find(What:=Nummer, _
                       After:=.Cells(.Cells.Count), _
                       LookIn:=xlValues, _
                       LookAt:=xlWhole, _
                       SearchOrder:=xlByRows, _
                       SearchDirection:=xlNext, _
                       MatchCase:=False)
       If Not Rng Is Nothing Then
           MsgBox "Gefunden" & vbLf & vbLf & _
              "Diese Nummer ist bereits folgender Person registriert:" & vbLf & vbLf & Rng.Offset(0, -4)
       Else
           MsgBox "Nicht gefunden"
       End If
   End With
   Set Rng = Nothing
End Sub

Private Sub CommandButton1_Click()
   If txtTelefon <> "" Then Prüfen (Application.Substitute(txtTelefon, " ", ""))
End Sub

Bis später,
Karin