|
Hallo!
Hier sind die beiden Codes.
1.
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 | Option Explicit
Private Sub Button_Abbrechen_Click()
Unload Me
End Sub
Private Sub Button_Eingabe_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = TextBox_Fertigungsauftrag
Cells(last, 2).Value = TextBox_Stückzahl
Cells(last, 3).Value = TextBox_Datum
Cells(last, 4).Value = TextBox_Uhrzeit
Cells(last, 5).Value = ListBox_ZuordnungWerkbank
Cells(last, 6).Value = TextBox_Planzeit
End Sub
Private Sub UserForm_Initialize()
TextBox_Datum = "TT.MM.JJJJ"
TextBox_Uhrzeit = "HH:MM"
With ListBox_ZuordnungWerkbank
.AddItem "Werkbank rot"
.AddItem "Werkbank gelb"
.AddItem "Werkbank blau"
.AddItem "Werkbank grün"
.AddItem "Werkbank lila"
.AddItem "Werkbank rosa"
End With
TextBox_Planzeit = "in min"
End Sub
|
und hier der der zweiten Userform:
Private Sub CommandButton1_Click()
'Spalte A nach Wert durchsuchen
Dim durchsuchen As Range
Set durchsuchen = Columns(1).Find(what:=TextBox_Fertigungsauftrag.Value)
If durchsuchen Is Nothing Then
MsgBox "Fertigungsauftrag NICHT ist vorhanden"
Else
MsgBox "Fertigungsauftrag ist vorhanden"
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Vorbereitung
Cells(last, 7).Value = TextBox_Vorbereitung
'Montage
Cells(last, 8).Value = TextBox_Montage
'Prüfen
Cells(last, 9).Value = TextBox_Prüfen
'Verpacken
Cells(last, 10).Value = TextBox_Verpacken
'Nacharbeit
Cells(last, 11).Value = TextBox_Nacharbeit
End If
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
'Fertigungsauftrag
'Vorbereitung
'Montage
'Prüfen
'Verpacken
'Nacharbeit
End Sub
und nochmals Entschuldigung für die lange Wartezeit.
Gruß
Flo
|