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:
1027
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 :

#####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:

 
 

  • 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