Hallo allerseits,
ich habe eine Kundendatenbank in Excel geschrieben, welches z.B Name, Vorname, Wohnort, Art des Vertrages, etc beinhaltet( Kundentabelle für Energie-,StromVerträge.
Mittels einer Suchfunktion gebe ich Name und Vorname ein und mir wird dann die gesamte Zeile mit den Daten des Kunden in einer Userform wiedergegeben, die ich löschen oder verädnern kann. Mein Problem:
Ein Kunde kann mehrere Verträge haben! Also gleicher Vorname und Name jedoch z.B Ablauf, ZählerNr, Anschluss(Strom,Wärmestrom) kann unterschiedlich sein
Ich möchte jedoch zwischen den Verträgen eines Kunden wählen können, bzw auf irgendeine Art und Weise diese Verträge unterscheiden. Was wäre am besten?
Hier der Code :
#####userform1(kunde suchen)
Private Sub CommandButton1_Click()
'Kunde suchen
Dim x As String
Dim y As String
Z = Sheets(1).UsedRange.Rows.Count
x = TextBox1 'Name
y = TextBox2 'Vorname
temp = 0
For i = 4 To Z
If Cells(i, 5) = x And Cells(i, 6) = y Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Unload Me
zeile = i
KundeVerwalten.Show
Else
MsgBox "Kunde nicht vorhanden!", vbExclamation
TextBox1 = ""
End If
End Sub
Private Sub CommandButton2_Click()
'abbrechen
Unload Me
End Sub
####userform2(veränderter Kunde speichern und löschen):
Private Sub CommandButton1_Click()
'Kunde löschen
temp = MsgBox("Soll der Kunde wirklich gelöscht werden?", vbYesNo)
If temp = vbYes Then
Sheets(1).Rows(zeile).Delete
Unload Me
End If
End Sub
Private Sub CommandButton2_Click()
'Kundendaten verändern
Sheets(1).Cells(zeile, 2) = TextBox1
Sheets(1).Cells(zeile, 3) = TextBox2
Sheets(1).Cells(zeile, 4) = TextBox4
Sheets(1).Cells(zeile, 5) = TextBox5
Sheets(1).Cells(zeile, 6) = TextBox6
Sheets(1).Cells(zeile, 7) = TextBox7
Sheets(1).Cells(zeile, 8) = TextBox8
Sheets(1).Cells(zeile, 9) = TextBox9
Sheets(1).Cells(zeile, 10) = TextBox10
Sheets(1).Cells(zeile, 11) = TextBox11.Value
Sheets(1).Cells(zeile, 12) = TextBox12
Sheets(1).Cells(zeile, 13) = TextBox13
Sheets(1).Cells(zeile, 14) = TextBox14
Sheets(1).Cells(zeile, 15) = TextBox15
Sheets(1).Cells(zeile, 16) = TextBox16
Sheets(1).Cells(zeile, 17) = TextBox17
Sheets(1).Cells(zeile, 18) = TextBox18
Sheets(1).Cells(zeile, 19) = TextBox19
Sheets(1).Cells(zeile, 20) = TextBox20
Sheets(1).Cells(zeile, 21) = TextBox21
Sheets(1).Cells(zeile, 22) = TextBox22
Sheets(1).Cells(zeile, 23) = TextBox23
Unload Me
End Sub
Private Sub CommandButton3_Click()
'Abbruch
Unload Me
End Sub
Private Sub UserForm_Initialize()
'Kundendaten laden
TextBox1 = Cells(zeile, 2)
TextBox2 = Cells(zeile, 3)
TextBox4 = Cells(zeile, 4)
TextBox5 = Cells(zeile, 5)
TextBox6 = Cells(zeile, 6)
TextBox7 = Cells(zeile, 7)
TextBox8 = Cells(zeile, 8)
TextBox9 = Cells(zeile, 9)
TextBox10 = Cells(zeile, 10)
TextBox11 = Cells(zeile, 11)
TextBox12 = Cells(zeile, 12)
TextBox13 = Cells(zeile, 13)
TextBox14 = Cells(zeile, 14)
TextBox15 = Cells(zeile, 15)
TextBox16 = Cells(zeile, 16)
TextBox17 = Cells(zeile, 17)
TextBox18 = Cells(zeile, 18)
TextBox19 = Cells(zeile, 19)
TextBox20 = Cells(zeile, 20)
TextBox21 = Cells(zeile, 21)
TextBox22 = Cells(zeile, 22)
TextBox23 = Cells(zeile, 23)
End Sub
MfG
Armin
|