Bei Variable eine neue Arbeitsmappe hinz
26.04.2022 13:14:31
Heinz
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
'************************************************
'Ü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