Hallo an alle,
Alls Newbe in VBa hänge ich bei folgendem Prob
Was habe ich?
Ich habe eine User Form mit 9 Textboxen
1Textbox(Vorname)
2 TxtBox(FName)
3 Txtbx(KST)
4 TxtBx (Code)
5 TxtBx (TeleNr)
6 TxtBx(MailAdresse)
7 TxtBx (Mail CC)
8 TxtBx (Mail BCC)
9 TxtBx Ware
Im gleichen Workbook habe ich eine Sheet ("Data")
In den Spalten J, K (Vorname) Name
M bis P der Rest der Textboxen Inhalt
und in E steht die Ware
Was habe ich bisher erreicht?
Wenn ich die Txtboxen fülle dann übertrage ich die info über ein Cmd Button ins Worksheet.
Ich habe einen cmd Button Search der Folgendes bewirken soll nach Eingabe von Vorname und Name in entsprechende TxtBox
Was möchte ich?
Nun.. wenn der Kunde und bestellte Ware ggf schon existiert gebe ich die Daten bislang Txtbx für txtbx erneut ein.
Das ist nicht gerade toll auf Dauer.
Also habe ich mich daran gemacht das in einem ersten Schritt bei Eingabe in die Textbox Vorname u Name der Rest der Textboxen gefüllt werden soll.
Die Idee ist .. Ich geb Vornamen u Namen ein Eine Msgbx öffnet sich und meldet Kein Match gefunden .. Neuer Eintrag Ja / Nein oder falls Match
Peter Mayer, Peter Maier, Peter Meier mit den weiteren Daten (s obn.) gefunden. Wer soll in die Textbox übernommen werden?
In einem zweiten Schritt soll wenn möglich bei Eingabe geprüft werden ob der Kunde die Ware schon bestellt hat oder ob es eine neue bestellte Ware ist.
Was habe ich bereits getan?
Nun.. ich habe versucht den ersten Schritt zu programmieren.
Und stecke fest..und das schon am Anfang
Hier der Code
Dim Vorname As String
Dim FName As String
Dim OrgCode As String
Dim TeleNr As Byte
Dim MailArdess As Integer
Dim cNum As Integer
cNum = 9
Set Reg1 = UserForm1.Vorname
Set Reg2 = UserForm1.FName
Set Reg3 = UserForm1.KST
Set Reg4 = UserForm1.OrgaCode
Set Reg5 = UserForm1.TeleNr
Set Reg6 = UserForm1.MailAdress
'Check to see if value exists
If WorksheetFunction.CountIf(Sheets("DATA").Range("J:P"), Me.Vorname.Value) = 0 Then
MsgBox "Name nicht korrekt"
Me.Vorname.Value = ""
Exit Sub
End If
With Me
Vorname = Application.WorksheetFunction.VLookup(UserForm1.Vorname.Value(Me.Vorname), Sheets("DATA").Range("Lookup"), 11, 0)
'.Reg3 = Application.WorksheetFunction.VLookup(KST(Me.Vorname), Sheets("DATA").Range("Lookup"), 16, 0)
'.Reg4 = Application.WorksheetFunction.VLookup(OrgaCode(Me.Vorname), Sheets("DATA").Range("Lookup"), 12, 0)
'.Reg5 = Application.WorksheetFunction.VLookup(TeleNr(Me.Vorname), Sheets("DATA").Range("Lookup"), 15, 0)
'.Reg6 = Application.WorksheetFunction.VLookup(MailAdress(Me.Vorname), Sheets("DATA").Range("Lookup"), 16, 0)
End With
End Sub
Bin für jede Idee dankbar
Gruß,
Pete