AW: In UF Werte überschreiben
17.02.2014 12:09:55
Hajo_Zi
Hallo Heinz,
Option Explicit
Dim BoFehler As Boolean
Private Sub CommandButtonFehler_Korrektur_Click()
BoFehler = True
End Sub
Private Sub UserForm_Activate()
BoFehler = False
End Sub
Private Sub CommandButtonEintragen_Click()
'Übernahme in Datenbank
'Worksheets("Auswertung").Activate
Dim StartZeile&
Dim Ws As Worksheet
'Set Ws = ActiveSheet
'Wenn Text oder Comboboxen leer sind
If ComboBoxLinie = "" Then
MsgBox "Es wurde keine Linie ausgewählt!"
Exit Sub
Else
End If
If TextBox2 = "" Then
MsgBox "Es wurde keine Schicht ausgewählt!"
Exit Sub
Else
End If
If TextBox3 = "" Then
MsgBox "Es wurde keine Schicht ausgewählt!"
Exit Sub
Else
End If
If TextBoxSAP = "" Then
MsgBox "Es wurde keine SAP ausgewählt!"
Exit Sub
Else
End If
If ComboBoxFehler = "" Then
MsgBox "Es wurde kein Fehler ausgewählt!"
Exit Sub
Else
End If
Set Ws = Worksheets("Auswertung")
StartZeile = Ws.Cells(65536, 1).End(xlUp).Row + 1 + BoFehler
Ws.Cells(StartZeile, 1) = Me.ComboBoxDatum 'Spalte A
Ws.Cells(StartZeile, 2) = Me.ComboBoxLinie 'Spalte B
Ws.Cells(StartZeile, 3) = Me.TextBox2 'Spalte C
Ws.Cells(StartZeile, 4) = Me.TextBox3 'Spalte D
Ws.Cells(StartZeile, 5) = Me.TextBoxSAP 'Spalte E
Ws.Cells(StartZeile, 6) = Me.TextBoxArtikelbezeichnung 'Spalte F
Ws.Cells(StartZeile, 7) = Me.TextBoxArtikelnummer 'Spalte G
Ws.Cells(StartZeile, 8) = Me.ComboBoxFehler 'Spalte H
Ws.Cells(StartZeile, 9) = Me.ComboBoxUrsache 'Spalte I
Ws.Cells(StartZeile, 10) = Me.ComboBoxGegenmaßnahme 'Spalte J
Ws.Cells(StartZeile, 11) = Me.ComboBoxWo_gefunden 'Spalte K
Ws.Cells(StartZeile, 12) = Me.ComboBoxgemeldetHE 'Spalte L
Ws.Cells(StartZeile, 13) = Me.ComboBoxVerdacht 'Spalte M
Ws.Cells(StartZeile, 14) = Me.ComboBoxKE 'Spalte N
Ws.Cells(StartZeile, 15) = Me.ComboBoxFehler_nach_Verklemmung 'Spalte O
Ws.Cells(StartZeile, 16) = Me.ComboBoxUmbau 'Spalte P
Ws.Cells(StartZeile, 17) = Me.TextBox1 'Spalte Q
Fehler_eingetragen.Show
'Unload Me
Worksheets("Auswertung").UsedRange.Columns.AutoFit
'Hier wird alles nach dem Eintragen wieder geleert
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBoxSAP = ""
TextBoxArtikelbezeichnung = ""
TextBoxArtikelnummer = ""
ComboBoxLinie = ""
ComboBoxSchicht = ""
ComboBoxFehler = ""
ComboBoxUrsache = ""
ComboBoxGegenmaßnahme = ""
ComboBoxWo_gefunden = ""
ComboBoxgemeldetHE = ""
ComboBoxVerdacht = ""
ComboBoxKE = ""
ComboBoxFehler_nach_Verklemmung = ""
ComboBoxUmbau = ""
Application.EnableEvents = True
'ActiveWorkbook.Save
End Sub