vergleichen und dann eintragen

Hallo alle zusammen
Ich habe zwar schon mal geschrieben. Vielleicht sollte ich das Ganze langsamer angehen (bei den ersten Beitrag kenne ich mich auch nicht aus) In einem Tabellenblatt habe ich mehrer Einträge (wer nicht)
A B C D
123 Huber Norbert Langistrasse 15
777 Meier Theresa Dr. Scheibner Gasse 17
555 Graf Oliver Neuss 17

Ich möchte mit es mit einem Button irgendwie schaffen, wenn ich einen Neueintrag mache,daß das Tabellenblatt (aber nur Spalte A und B) durchforstet wird und mir auswirft wenn der Eintrag schon vorhanden ist bzw. sonst den Neueintrag zulässt. Das Ganze existiert schon in einer Userform mit Text-und Comboboxen. Nur das mit dem Vergleichen habe ich noch nicht hinbekommen.
Beispiel:
G r a f Otto Kundennummer 5 5 5 Franz Straussstrasse > Familienname und Kundennummer sind gleich KEIN NEUEINTRAG
G r a f Otto Kundennummer 4 5 1 Franz Straussstrasse > Familienname und Kundennummer sind nicht gleich NEUEINTRAG
Entschuldigung nochmals für die Anfrage
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo michael
meine lösung funktioniert für spalte "a" also die kundennummer. diese sollte ja sowieso nur 1x unabhängig vom namen vorhanden sein.
füge bitte also nachfolgende makros in ein allgemeines modul ein. dazu öffnest du den vb-editor und wählst einfügen modul"
modul stammt von hans
mfg
rudolf


Sub auto_open()
Worksheets(1).OnEntry = "Kontrolle"
End Sub


Sub auto_close()
Worksheets(1).OnEntry = ""
End Sub


Sub kontrolle()
Dim ac As Range
Dim z1 As Range
Dim z2 As Range
Dim prüf1 As Boolean
Dim prüf2 As Boolean
Set ac = Application.Caller
If ac.Column <> 1 Then Exit Sub
Set z1 = Range(Cells(1, 1), Cells(ac.Row - 1, 1))
Set z2 = Range(Cells(ac.Row + 1, 1), Cells(Rows.Count, 1))
prüf1 = IsError(Application.Match(ac, z1, 0))
prüf2 = IsError(Application.Match(ac, z2, 0))
If prüf1 = False Or prüf2 = False Then
Beep
MsgBox ("Wert schon vorhanden")
End If
End Sub

Sub kontrolle() Dim ac As Range Dim z1 As Range Dim z2 As Range Dim prüf1 As Boolean Dim prüf2 As Boolean Set ac = Application.Caller If ac.Column <> 1 Then Exit Sub Set z1 = Range(Cells(1, 1), Cells(ac.Row - 1, 1)) Set z2 = Range(Cells(ac.Row + 1, 1), Cells(Rows.Count, 1)) prüf1 = IsError(Application.Match(ac, z1, 0)) prüf2 = IsError(Application.Match(ac, z2, 0)) If prüf1 = False Or prüf2 = False Then Beep MsgBox ("Wert schon vorhanden") End If End Sub

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread