Office: Probleme mit dem Code

Hallo Michael,

ändere den Code wie folgt:

Code:

Private Sub CommandButton1_Click()
Sheets("Auftragskarte").Unprotect pw
    Dim wbTarget As Workbook, wsTarget As Worksheet, wsSource As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Auftragskarte")               'Tabelle, die kopiert werden soll
    Set wbTarget = Workbooks.Open("Z:\Auftragsübersicht.xls") 'Mappe, die geöffnet werden soll
    On Error Resume Next
    Set wsTarget = wbTarget.Sheets("Auftrag " & wsSource.Cells(19, 42))
    On Error GoTo 0
    If wsTarget Is Nothing Then
        Set wsTarget = wbTarget.Sheets.Add(after:=wbTarget.Sheets(wbTarget.Sheets.Count))
        wsTarget.Name = "Auftrag " & wsSource.Cells(19, 42)
        wsSource.Cells.Copy
        wsTarget.Cells(1, 1).PasteSpecial xlPasteValues
        wsTarget.Cells(1, 1).PasteSpecial xlPasteFormats
        Range("B4").Select
        Application.CutCopyMode = False
        ActiveWindow.DisplayZeros = False 'Setzt die Option dass Nullen nicht angezeigt werden
        Windows("Maschinen Verwaltung.xls").Activate 'Ruft die Originaldatei auf
        Sheets("Auftragskarte").Shapes.Range(Array("myQRCode")).Select 'Wählt den QR Code aus
        Selection.Copy 'Kopiert den QR Code
        Range("A1").Select
        Windows("Auftragsübersicht.xls").Activate 'Zurück in die Auftragsübersicht
        Range("AC12").Select 'Richtige Zelle auswählen
        ActiveSheet.Paste 'einfügen
        Range("A1").Select
        wbTarget.Close SaveChanges:=True
    Else
        MsgBox ("Kann nicht kopiert werden! Tabelle schon vorhanden.")
        wbTarget.Close SaveChanges:=False
    End If
    Unload Me
    
End Sub

Was das Öffnen anbelangt. Das Makro öffnet die Dateien nicht, sondern es aktiviert sie nur. Das heißt beide müssen offen sein für das kopieren. Kopieren ohne in die andere Datei zu springen ging nicht. Zumindest nicht mit meinem VBA-Wissen ;-)

Viele Grüße
Michael

 

Hallo Michael

Super vielen vielen Dank. So wie der Code jetzt ist ist er genau so wie ich ihn brauch.

Gruß Michael

 

Super. Dann lösch ich jetzt auch mal den Link zu Deiner Datei raus. Externe Links machen wir hier nämlich normalerweise nicht ;-)

 

Ok ich Danek Dir das Du mal ein Auge zugedrückt hast.

Gruß Michael

Muß aber sagen echt ein klasse Forum hier