Bereich von Worksheet wird nicht in anderes Workbook eingefügt

[nedial]

Habe noch aktuell noch ein zweites Problemchen.

Ich möchte aus meinem aktuellen Workbook über einen Variablen Dateipfad einen definierten Zeilenbereich in die aktuellste Datei in einem Verzeichnis auf ein Sheet kopieren.
Das Zielworkbook soll dabei geöffnet werden und auch geöffnet bleiben.

Mein Problem liegt beim Einfügen des kopierten Bereichs, denn dieser wird einfach nicht eingefügt.
Fehler werden nicht angezeigt. Die Prozedur läuft auch in Einzelschritten komplett durch, aber mein kopierter Bereich wird einfach nicht am Zielort eingefügt.
Habe zur Sicherheit das Workbook und das Worksheet extra nochmal aktiviert aber es hat nichts gebracht.

Sieht jemand den/die Fehler?

Code:

Sub DatenexportLogistik()

    With Application
   .ScreenUpdating = True
   .EnableEvents = True
   End With

   strVerzeichnis = ThisWorkbook.Sheets("Dateipfade").Cells(6, 2).Text
   StrTyp = "*.xlsx"
   Dateiname = Dir(strVerzeichnis & StrTyp)
   Dateiname_neu = Dateiname
   Zeit = FileDateTime(strVerzeichnis & Dateiname)
   Do While Dateiname <> ""
       If Zeit < FileDateTime(strVerzeichnis & Dateiname) Then
           Zeit = FileDateTime(strVerzeichnis & Dateiname)
           Dateiname_neu = Dateiname
       End If
       Dateiname = Dir
   Loop
   
       
   Set AktuelleMappe = ActiveWorkbook
   Set objWb = Workbooks.Open(strVerzeichnis & Dateiname_neu)
   objWb.Application.AskToUpdateLinks = False
   Set objSH = objWb.Sheets(15)
   'kopiere Zelle Zelle C18 bis N18 vom Sheet auf das Sheet 15 in den Bereich G13 bis Zelle R13 in der neuesten Mappe im Verzeichnis
   AktuelleMappe.Sheets("akt. Gegenstromverfahren").Range("C18:N18").Copy
   objWb.Activate
   objSH.Activate
   objSH.Range("G13:R13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   
 
   Set objSH = Nothing
   Set objWb = Nothing
 
   
   Exit Sub
   

End Sub

Grüße und danke

[schauan]

Hallöchen,

wie wäre es denn mit Speichern?

[nedial]

Hallöchen,

wie wäre es denn mit Speichern?

Gute Sache :D

...hatte es hier kurz vorher wohl wieder rausgelöscht.

Code:

Sub DatenexportLogistik()
 
     With Application
    .ScreenUpdating = True
    .EnableEvents = True
    End With

    strVerzeichnis = ThisWorkbook.Sheets("Dateipfade").Cells(6, 2).Text
    StrTyp = "*.xlsx"
    Dateiname = Dir(strVerzeichnis & StrTyp)
    Dateiname_neu = Dateiname
    Zeit = FileDateTime(strVerzeichnis & Dateiname)
    Do While Dateiname <> ""
        If Zeit < FileDateTime(strVerzeichnis & Dateiname) Then
            Zeit = FileDateTime(strVerzeichnis & Dateiname)
            Dateiname_neu = Dateiname
        End If
        Dateiname = Dir
    Loop
    
        
    Set AktuelleMappe = ActiveWorkbook
    Set objWb = Workbooks.Open(strVerzeichnis & Dateiname_neu)
    objWb.Application.AskToUpdateLinks = False
    Set objSH = objWb.Sheets(15)
    'kopiere Zelle Zelle C18 bis N18 vom Sheet auf das Sheet 15 in den Bereich G13 bis Zelle R13 in der neuesten Mappe im Verzeichnis
    AktuelleMappe.Sheets("akt. Gegenstromverfahren").Range("C18:N18").Copy
    objWb.Activate
    objSH.Activate
    objSH.Range("G13:R13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    objWb.Saved = True
   
   
    Set objSH = Nothing
    Set objWb = Nothing
   
    
    Exit Sub
    

End Sub

Das Problem ist aber dennoch ab dem Punkt, an dem eingefügt werden soll.
Speichern klappt ebensowenig wie das Einfügen.
Ich erhalte einfach keinen Fehler... alles wird auch in Einzelschritten abgesegnet und nicht übersprungen oder als Fehler markiert.
Ist die Syntax falsch?

[Kuwer]

Hallo,

was möchtest Du mit objWb.Saved = True erreichen? Speichern jedenfalls geht anders!

Gruß Uwe

[schauan]

Hallöchen,

mal noch zur (Er-)Läuterung

mit objWb.Saved = True gaukelst Du Excel nur vor, die Datei wäre gespeichert. Du benötigst
objWb.Save ...
oder
objWb.SaveAs ...

[nedial]

Auch wenn ich den Speicherbefehl ändere; gespeichert wird es nicht.
Dies ist auch nicht meine Problematik.
Das Workbook in das hineinkopiert wird soll ohnehin geöffnet bleiben.
Speichern kann der User manuell.

Liegt ggfs. ein Fehler bei meinem Workbook- oder Worksheet-Objekt vor?

Grüße und Danke

[schauan]

Hallöchen,
In der Quelle steht im programmierten Bereich auch was drin?

[nedial]

Hallöchen,
In der Quelle steht im programmierten Bereich auch was drin?

Ja.
Keine Werte die mittels Formel (Zelle X - Zelle Y) errechnet werden.
Ich möchte lediglich die Values ohne Formel einfügen.

Grüße

[atilla]

Ich möchte lediglich die Values ohne Formel einfügen.

Hallo,

dann brauchst Du nicht kopieren und einfügen.
Probier es mal nach folgendem Muster:

Code:

objSH.Range("G13:R13").Value = AktuelleMappe.Sheets("akt. Gegenstromverfahren").Range("C18:N18").Value

Das das mit dem Kopieren und Einfügen nicht klappt, kann auch an Ereignisroutinen liegen, die beim aktivieren oder deaktivieren der Arbeitsmappen ausgeführt werden. Hast Du so etwas in den Mappen?

[nedial]

Hallo,

dann brauchst Du nicht kopieren und einfügen.
Probier es mal nach folgendem Muster:

Code:

objSH.Range("G13:R13").Value = AktuelleMappe.Sheets("akt. Gegenstromverfahren").Range("C18:N18").Value

Das das mit dem Kopieren und Einfügen nicht klappt, kann auch an Ereignisroutinen liegen, die beim aktivieren oder deaktivieren der Arbeitsmappen ausgeführt werden. Hast Du so etwas in den Mappen?

Habe es mal ausprobiert. Passiert leider nichts... :/
Aber Danke! :)

Ereignisroutinen sind vorhanden. Die Abfrage zum Aktivieren der Inhalte sowie das Aktualisieren von Hyperlinks und Verknüpfungen. Diese bekomme ich auch nicht komplett abgeschaltet.