Thema Datum  Von Nutzer Rating
Antwort
29.01.2021 14:14:19 Flo
Solved
31.01.2021 12:57:12 Werner
Solved
Rot Informationen in bestimmte Tabelle schreiben
01.02.2021 13:10:07 Flo
Solved
01.02.2021 14:01:30 ralf_b
Solved
01.02.2021 15:46:35 Flo
Solved
01.02.2021 15:54:31 Werner
Solved

Ansicht des Beitrags:
Von:
Flo
Datum:
01.02.2021 13:10:07
Views:
293
Rating: Antwort:
 Nein
Thema:
Informationen in bestimmte Tabelle schreiben
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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
kannst du mir vielleicht auch sagen wie ich das hier mit einfüge?
 
 
 
Private Sub Button_Schließen_Click()
     
'Eingabefenster schließen
    Unload meinFormular_Eingang
 
End Sub
 
Private Sub Button_Übernehmen_Click()
 
'Eingaben der Schaltfläschen in die Arbeitsmappe übernehmen
    Dim last As Integer
     
    last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Nächste freie Zelle suchen
     
    ActiveSheet.Cells(last, 1).Value = CDate(meinFormular_Eingang.TextBox_Datum.Value)
    ActiveSheet.Cells(last, 2).Value = meinFormular_Eingang.ComboBox_Produkt.Value
    ActiveSheet.Cells(last, 3).Value = meinFormular_Eingang.TextBox_LabelNummer.Value
    ActiveSheet.Cells(last, 4).Value = meinFormular_Eingang.TextBox_Gewicht.Value
    ActiveSheet.Cells(last, 5).Value = meinFormular_Eingang.ComboBox_Lieferant.Value
 
 
End Sub
 
Private Sub ComboBox_Lager_Enter()
     
'aktivierte Zelle gelb färben
    ComboBox_Lager.BackColor = vbYellow
     
End Sub
 
Private Sub ComboBox_Lager_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     
'deaktivierte Zelle Weiß färben
    ComboBox_Lager.BackColor = vbWhite
 
End Sub
 
 
Private Sub ComboBox_Lieferant_Enter()
     
'aktivierte Zelle gelb färben
    ComboBox_Lieferant.BackColor = vbYellow
 
End Sub
 
Private Sub ComboBox_Lieferant_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     
'deaktivierte Zelle Weiß färben
    ComboBox_Lieferant.BackColor = vbWhite
 
End Sub
 
Private Sub ComboBox_Produkt_Enter()
     
'aktivierte Zelle gelb färben
    ComboBox_Produkt.BackColor = vbYellow
 
End Sub
 
Private Sub ComboBox_Produkt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     
'deaktivierte Zelle Weiß färben
    ComboBox_Produkt.BackColor = vbWhite
 
End Sub
 
 
Private Sub TextBox_Gewicht_Enter()
     
'aktivierte Zelle gelb färben
    TextBox_Gewicht.BackColor = vbYellow
 
End Sub
 
Private Sub TextBox_Gewicht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
'deaktivierte Zelle Weiß färben
    TextBox_Gewicht.BackColor = vbWhite
 
End Sub
 
Private Sub TextBox_LabelNummer_Enter()
     
'aktivierte Zelle gelb färben
    TextBox_LabelNummer.BackColor = vbYellow
 
End Sub
 
Private Sub TextBox_LabelNummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     
'deaktivierte Zelle Weiß färben
    TextBox_LabelNummer.BackColor = vbWhite
 
End Sub
 
 
Private Sub UserForm_Initialize()
 
'DatumKästchen zeigt immer das aktuelle Datum
    meinFormular_Eingang.TextBox_Datum.Value = Date
 
Dim lngZeileMax As Long
 
'ComboBox_Produkt füllen
With Tabelle5
    lngZeileMax = .Range("A" & Rows.Count).End(xlUp).Row
    Me.ComboBox_Produkt.RowSource = Tabelle5.Name & "!A2:A" & lngZeileMax
End With
 
 
'ComboBox_Lieferant füllen
With Tabelle3
    lngZeileMax = .Range("A" & Rows.Count).End(xlUp).Row
    Me.ComboBox_Lieferant.RowSource = Tabelle3.Name & "!A2:A" & lngZeileMax
End With
 
 
'ComboBox_Lager füllen
    With meinFormular_Eingang.ComboBox_Lager
     
    .AddItem "Lager 1"
    .AddItem "Lager 2"
    .AddItem "Lager 3"
    .AddItem "Lager 4"
    .AddItem "Lager 5"
    .AddItem "Lager 6"
    .AddItem "Lager 7"
    .AddItem "Lager 8"
    .AddItem "Lager 9"
    .AddItem "Lager 10"
    .AddItem "Lager 11"
    .AddItem "Lager 12"
    .AddItem "Lager 13"
    .AddItem "Lager 14"
    .AddItem "Lager 15"
    .AddItem "Lager 16"
    .AddItem "Lager 17"
    .AddItem "Lager 18"
    .AddItem "Lager 19"
    .AddItem "Lager 20"
    .AddItem "Außenlager"
    .AddItem "Lager Sonsbeck"
 
    End With
 
 
 
'Logo einfügen
    Image1.Picture = LoadPicture("C:\Dokumente und Einstellungen\Administrator\Desktop\Logo\Bongardt Logo grün gold.jpg")
 
'Logo Größe anpassen
    Image1.PictureSizeMode = fmPictureSizeModeStretch
 
 
End Sub

 


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
29.01.2021 14:14:19 Flo
Solved
31.01.2021 12:57:12 Werner
Solved
Rot Informationen in bestimmte Tabelle schreiben
01.02.2021 13:10:07 Flo
Solved
01.02.2021 14:01:30 ralf_b
Solved
01.02.2021 15:46:35 Flo
Solved
01.02.2021 15:54:31 Werner
Solved