Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA gleiche Kunden unterschiedliche Kriterien!!
 29.07.2016 21:09:58 Armin
NotSolved
29.07.2016 22:05:49 Crazy Tom
NotSolved

Ansicht des Beitrags:
Von:
Armin		 Datum:
29.07.2016 21:09:58		 Views:
1270		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA gleiche Kunden unterschiedliche Kriterien!!

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 :

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
#####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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA gleiche Kunden unterschiedliche Kriterien!!
 29.07.2016 21:09:58 Armin
NotSolved
29.07.2016 22:05:49 Crazy Tom
NotSolved