Hallo,

ich habe folgendes Problem und zwar habe ich die Aufgabe ein Programm zu erstellen, was Daten innerhalb der Textboxen über einen Klick einer Combobox in die jeweilige Exceltabelle überträgt.

Soweit ist das nicht schwer aber jetzt kommt das Problem: Ich habe einen Hauptbildschirm Index von der ich eine Neue UserForm öffnen soll,

die Auswahlmöglichkeit im Index (Hauptbildschirm) besteht dabei auf Kunde und Produkt. Für beide Schaltflächen Kunde und Produkt soll ein und dieselbe userform benutzt werden, jedoch sollen Einige textboxen und labels in der Userform ausgeblendet werden oder umbenannt werden, je nachdem ob Kunde oder Produkt ausgewählt wird.  Das habe ich noch hinbekommen.

ich habe in beiden Felder die Combobox "Eintragen" jetzt weis ich aber nicht wie ich dem Programm erklären soll das wenn zuvor im Index auf Kunde geklickt wird nur in der Exceltabelle Kunde was eingetragen werden soll und wenn zuvor auf Produkt geklickt wurde nur in der Exceltabelle Produkt etwas eingetragen werden soll.

 Den Code den ich schon geschrieben habe schreibe ich auch mit rein.

Vielen Dank schonmal,

Private Sub cmdEintragenST_Click()
            
        'Abfrage Nach Kunde
            
            
        
        'abfrage ob alles eingetragen ist
        If Stammdaten.Caption = "Kunde" Then
        
        If Me.txtP1.Text = False Then
        MsgBox "Bitte tragen Sie einen Namen ein"
        ElseIf Me.txtP2.Text = "" Then
        MsgBox "Bitte tragen Sie einen Vornamen ein"
        ElseIf Me.txtP3.Text = "" Then
        MsgBox "Bitte tragen Sie das Datum ein"
        ElseIf Me.txtP4.Text = "" Then
        MsgBox "Bitte tragen Sie den Ort ein"
        ElseIf Me.optFrau.Value Or Me.optMann.Value = False Then
        MsgBox "Bitte geben Sie das Geschlecht an"
        End If
        
         ' eintragen der neuen Kundendaten
        
         
         With Tabelle2
         
         
         Dim last2 As Integer
         last2 = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
         'Bei klick von eintragen
         .Cells(last2, 1).Value = Me.txtP1.Text
         .Cells(last2, 2).Value = Me.txtP2.Text
         .Cells(last2, 2).Value = Me.txtP3.Text
         .Cells(last2, 4).Value = Me.txtP4.Text
         
         'Abfrage Geschlecht
         
          If Me.optFrau.Value = True Then
          .Cells(last2, 5).Value = "W"
          End If
          If Me.optMann.Value = True Then
          .Cells(last2, 5).Value = "M"
          End If
          
          End With
    
    'Abfrage Nach Artikel
    
        If Stammdaten.Caption = "Produkt" Then
        
        'abfrage ob alles eingetragen ist
        If Me.txtP1.Text = "" Then
        MsgBox "Bitte tragen Sie eine Artikelnummer ein"
        ElseIf Me.txtP2.Text = "" Then
        MsgBox "Bitte tragen Sie einen Produktnamen ein"
        ElseIf Me.txtP3.Text = "" Then
        MsgBox "Bitte tragen Sie einen Verkaufpreis ein"
        ElseIf Me.txtP4.Text = "" Then
        MsgBox "Bitte tragen Sie den Bestand ein ein"
        End If
            
       ' eintragen der neuen Produktdaten
    
       With Tabelle4
   
       Dim last3 As Integer
       last3 = Tabelle4.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
       'Bei klick von eintragen
       .Cells(last3, 1).Value = Me.txtP1.Text
       .Cells(last3, 2).Value = Me.txtP2.Text
       .Cells(last3, 3).Value = Me.txtP3.Text
       .Cells(last3, 4).Value = Me.txtP4.Text
        
        
    End With