Thema Datum  Von Nutzer Rating
Antwort
Rot CommandButton soll in zwei verschiedenen Tabellen was eintragen aber unter Bedingungen
 27.12.2020 18:28:31 Gast38798
Solved
28.12.2020 08:05:09 Gast24231
Solved
28.12.2020 08:26:21 Gast24231
Solved
28.12.2020 13:31:24 Gast80573
Solved

Ansicht des Beitrags:
Von:
Gast38798		 Datum:
27.12.2020 18:28:31		 Views:
1607		 Rating:
     
Antwort:
 Nein
Thema:
CommandButton soll in zwei verschiedenen Tabellen was eintragen aber unter Bedingungen

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,

?
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
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

 

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 CommandButton soll in zwei verschiedenen Tabellen was eintragen aber unter Bedingungen
 27.12.2020 18:28:31 Gast38798
Solved
28.12.2020 08:05:09 Gast24231
Solved
28.12.2020 08:26:21 Gast24231
Solved
28.12.2020 13:31:24 Gast80573
Solved