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
|