Hallo Leute im Forum,
Ich sollte im unteren Code eine weitere Arbeitsmappe hinzufügen wo die Werte eingetragen werden.
Bis jetzt war es nur 'Worksheets("Auswertung").
Nun würde aber eine zweite externe Arbeitsmappe hinzukommen, zB
\\vetropack.corporate.ads\workgroups\KRM\public-quality\VQS-Assistant neu\VGT-0108-0X-FOR-000-EN Internal Detected Critical Defects 0.4
Wie würde das bitte angepasst gehören?
Danke
Sg, Heinz

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!"
ElseIf TextBox2 = "" Then
MsgBox "Es wurde keine Schicht ausgewählt!"
ElseIf TextBox3 = "" Then
MsgBox "Es wurde keine Schicht ausgewählt!"
ElseIf TextBoxSAP = "" Then
MsgBox "Es wurde keine SAP ausgewählt!"
ElseIf ComboBoxFehler = "" Then
MsgBox "Es wurde kein Fehler ausgewählt!"
Else
'############################################################
Dim liZaehler As Integer
Do Until liZaehler = CInt(Me.ComboBoxwie_oft.Text)
Set Ws = Worksheets("Auswertung")
StartZeile = Ws.Cells(65536, 1).End(xlUp).Row + 1 + BoFehler
Ws.Cells(StartZeile, 1) = CDate(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