Excel Quellen aus ziel heraus ändern

hier meine batch nach Jo´s Anleitung und funtioniert

------------------------------

@echo off

SET "quelle=%SystemRoot%\Installer\$PatchCache$\Managed\7040110900063D11C8EF10054038389C\11.0.8173\"

SET "ziel=%ProgramFiles%\Microsoft Office\OFFICE11\"

REM NUR einmal durchführen, daher diese IF-Abfrage::

IF EXIST %ziel%POWERPNT_11.8334.8333_.EXE goto ENDE

ren "%ziel%POWERPNT.EXE" "POWERPNT_11.8334.8333_.EXE"

xcopy "%quelle%POWERPNT.EXE" "%ziel%" /C /V /Y

:ENDE

------------------------------

Das Ärgernis wurde scheinbar seit meiner Frage heraus gepached (Oder ich habe versehentlich etwas geändert, was ich nicht glaube). Bei PPT Rechtsklick auf "Bild ändern" erscheint jetzt jedenfalls direkt eine erweiterte Auswahl für die gewünschte Quelle,
ganz ohne Pop Up.

Danke Microsoft :*

Die Mappe "Praktische Arbeit" sowie auch die Mappe "Vorlage" befinden sich in der selbe Excel Datei.

Somit ist es nicht Workbooks sondern Sheets oder?

--------------------------------------------------------------------------------------

Ah, ein Mitdenker. ;-)

Im Excel -Sprachgebrauch ist eine Mappe eine Datei, daher nimmt man für das Tabellenblatt "Vorlage" dann auch die Worksheets Auflistung die dann das gewünschte Blatt liefert.

Nich so schlimm, einfach die Referenzen ändern.

Andreas.

Sub Test()

Dim Source As Range, Dest As Range, This As Range



'Quelle referenzieren...

With Worksheets("Praktische Arbeiten")

'... von A20 bis letzte

Set Source = .Range("A20", .Range("A" & .Rows.Count).End(xlUp))

End With



'Ziel referenzieren

With Worksheets("Vorlagen")

Set Dest = .Range("A9")

End With



'Für jede Quellen

For Each This In Source

'Ignoriere leere

If Not IsEmpty(This) Then

'Wert in Ziel schreiben

Dest = This

'Ausdrucken

Dest.Parent.PrintOut

End If

Next



MsgBox "Druckauftrag vollendet"

End Sub

Hallo,
<br />kontrolliere mal deine Werte in Quelle und Ziel auf führende oder nachfolgende Leerzeichen.
<br />Claus
<br />

Welche Schriftart benutzt Du im Quell-Dokument? Was kopierst Du - sind Sonderzeichen oder Formeln dabei? Ist im Ziel-Dokument dieselbe Schriftart eingestellt?

Viele Grüße

Ute