Hallo zusammen; ?
ich wollte mir gerne ein Makro erstellen, um aus Excel mehrere PDF Dateien aus einem Dateipfad an unterschiedliche Speicherorte zu verschieben und dabei die Dateien umzubenennen.
Die Dateinamen, aus dem die Dateien welche verschoben und umbenannt werden sollen, sind als Dateiname mit Zahlen versehen. Diese Zahlen sind allerdings nicht immer fortlaufend. Es soll mit der Datei mit der kleinsten Zahl begonnen und sich dann aufsteigend fortgearbeitet werden.
Der Speicherort, indem sich die Dateien befinden steht, ist im Macrocoe hinterlegt:
' Quellordnerpfad festlegen
Const sourcePath As String = "C:\Users\S7ebe\Desktop\DateienAbspeichern" '
Die unterschiedlichen Speicherorte inkl. neuem Dateinamen, wo die Dateien verschoben und dementsprechend umbeannt werden sollen, steht in der Spalte B10 bis B22. Es kann manchmal sein, dass in B18 und B19 nichts steht, dann soll mit B20 bis B22 fortgefahrten werden.
Hier ist noch ein Beispiel zum besseren Verständnis. Durchsuche den Dateipfad aus dem Makro:
Const sourcePath As String = "C:\Users\S7ebe\Desktop\DateienAbspeichern" und nimm daraus als erstes die Datei (pdf) mit der geringsten Zahl im Dateinamen. Verschiebe diese Datei in den Speierort B10 und benenne die Datei wie sie auch im Dateipfad B10 zum Schluss steht. Dann nimmst du die nächste Datei (nächst größere vorhandene Zahl im Dateinamen) aus dem Dateipfad vom Makro und fahre mit dem neuen Speierort aus B11 und Datenamen fort. Arbeite nach dem Schema alle Dateien aus dem Dateipfad bis zum Speicherort aus B22 ab.
Zur Info:
Der neue Speicherort von B10 bis B22 setzen sich aus Formeln zusammen.
Der Fehler ist anscheinend bei
' Verschieben und Umbenennen der gefundenen Datei im Zielordner
fso.MoveFile quellOrdnerPfad & "\" & dateiName, zielOrdnerPfad & "\" & neuerDateiName
dort bleibt zumindest das Makro stehen.
Ich habe darauf mal den Speicherort, welcher aus Formeln (verketten) zusammengesetzt ist, einfach mal ohne Formeln in B10 bis B22 geschrieben und siehe da, das ausschneiden und umbenennen funktioniert tadellos.
Was könnte ich ändern damit dies auch mit einem Zielpfad, welcher sich aus Formeln zusammensetzt, funktioniert?
Hier wäre der Code, welchen ich bis jetzt habe.
Über Hilfe wäre ich sehr dankbar. ?
Sub DateienVerschiebenUndUmbenennen()
Dim fso As Object
Dim quellOrdnerPfad As String
Dim zielOrdnerPfad As String
Dim dateiName As String
Dim neuerDateiName As String
Dim i As Integer
' Quellordnerpfad festlegen
quellOrdnerPfad = "C:\Users\S7ebe\Desktop\DateienAbspeichern" ' Anpassen Sie dies entsprechend
Set fso = CreateObject("Scripting.FileSystemObject")
' Schleife von B10 bis B22
For i = 10 To 22
' Zielverzeichnis-Pfad aus Zelle B(i)
zielOrdnerPfad = Left(Range("B" & i).Value, InStrRev(Range("B" & i).Value, "\") - 1)
' Überprüfen, ob der Zielordnerpfad vorhanden ist und ein Dateiname in B(i) angegeben ist
If zielOrdnerPfad <> "" And Range("B" & i).Value <> "" Then
' Überprüfen, ob der Quellordner existiert
If fso.FolderExists(quellOrdnerPfad) Then
dateiName = Dir(quellOrdnerPfad & "\*.pdf") ' Nur PDF-Dateien im Quellordner berücksichtigen
' Überprüfen, ob eine PDF-Datei gefunden wurde
If dateiName <> "" Then
' Neuen Dateinamen aus Zelle B(i) extrahieren
neuerDateiName = Right(Range("B" & i).Value, Len(Range("B" & i).Value) - InStrRev(Range("B" & i).Value, "\"))
' Verschieben und Umbenennen der gefundenen Datei im Zielordner
fso.MoveFile quellOrdnerPfad & "\" & dateiName, zielOrdnerPfad & "\" & neuerDateiName
Else
MsgBox "Keine PDF-Dateien im Quellordner gefunden!"
End If
Else
MsgBox "Quellordner nicht gefunden!"
End If
End If
Next i
aus einem Dokumentationsprogramm wird automatisch ein Datenexport in Excel erstellt (siehe Bilder data1). Das Problem ist, dass die Formatierung der Tabelle für meine Bedürfnisse nicht passt. Die farblichen Bereiche stellen beispielhaft drei Klienten da. Ich möchte bestimmte Inhalte von jedem Klienten in ein neues Tabellenblatt verlinken, so dass ich dieses besser Filtern und weiter bearbeiten kann. Ich möchte die Verlinkung aber nicht für jedes Feld manuell setzen sondern in der Tabelle1 einfach runterziehen.
Die Inhalt von Zelle data1 I4, data1 I13, data1 I22 soll in den roten Bereich in Tabelle1.
Ich hoffe mein Problem wurde verstanden, ich finde es schwierig zu beschreiben.
Hallo Leute,
ich bin ein absoluter Noob, deswegen verzeiht diese sicher einfache Frage. (Excel2013)
Es gibt Zellen in Spalte A mit Beispielweise folgenden Inhalt
-1K11
-2K31
-1K01
-1S5
-1Q3
Alle Zelleninhalte mit einem "K" möchte ich nun in Spalte D kopieren.
oder besser:
Alle Zelleninhalte mit einem "K" möchte ich nun in Spalte D kopieren ohne Leerzellen untereinander.
Wie kann ich das am besten bewerkstelligen?
Danke für eure Hilfe!
ich benötige Hilfe bei der Formelerstellung für meinen Urlaubsplaner. Ich hatte aus ästhetischen und Anwendungsgründen vor, dass in einem anderem Tabellenblatt ganz einfach das Datum des Urlaubs, Urlaubsantrags und der Homeoffice eintragen werden kann, und dies dann farblich für die entsprechende Person im Kalender markiert wird. Anbei auch Screenshots vom Kalender.
Ich hoffe Ihr könnt mir weiterhelfen. Danke im Voraus!
ich habe ein Problem bei dem ich nicht weiterkommen.
In Spalte E2 habe ich Text der unterschiedlich aussehen kann da er von verschiedenen Personen unterschiedlich erfasst wird.
Beispiele habe ich in der angefügten Datei. Kann mir da bitte jemand helfen, ich hab jetzt schon so viel probiert, komm aber leider nicht weiter.
Geschrieben von: rotokritos - 11.11.2023, 15:00 - Forum: Word
- Keine Antworten
Hallo!
Ich habe ein großes Worddokument mit einem Inhaltsverzeichnis. Ich würde nun gerne das Format dieses Inhaltsverzeichnisses in einem anderen Worddokument verwenden. Wie mache ich das am besten?
Danke
Geschrieben von: Hans1958 - 11.11.2023, 08:37 - Forum: Word
- Keine Antworten
Hallo,
1) ich benutze Word 2007 (*.docx),
2) die Überschriften sind mit "Überschrift1" und "Überschrift2" formatiert,
3) die Überschriften sind auch "Nummeriert" (z.B. 1.0, 1.1, 1.2, 1.1.1, u.s.w.),
4) gleich vor den Überschriften möchte ich kleine Grafiken einfügen (z.B. USA-Flagge, Deutschland-Flagge, ...)
Problem:
Wenn ich ein Inhaltsverzeichnis einfüge, ...
a) dann werden die Grafiken leider nicht am Anfang des Textes angezeigt, so wie das im Word-Dokument zu sehen ist,
b) die Grafiken werden nur angezeigt, wenn sie innerhalb des Texts oder hinter dem Text sind.
Frage:
Was mach ich falsch?
a) Ich hab das gleiche Problem auch auf meinen Firmenlaptop, wo Word365 installiert ist.
b) Allerdings hat es irgendwann schon mal funktioniert, in einer früheren Version meines Dokuments kann ich das sehen, wenn ich dann allerdings "Aktualisieren Gesamtes Verzeichnis" mache, dann sind dann nur noch einige Grafiken vorne zu sehen, aber 80% der Grafiken werden dann dort nicht mehr wie gewünscht angezeigt.
c) Ich hab schon mit Autokorrektur "Autoformat während der Eingabe" gespielt -> erfolglos
d) Ebenfalls geprüft, ob die Grafiken, da vor dem Text, als "Neues Aufzählungzeichen" gesehen werden -> auch erfolglos
e) Wie schon oben erwähnt, dann auch mit Word365 anstatt meines privaten Word2007 versucht -> auch erfolglos
Am Besten mal das Bild hier ansehen, dann kann man wohl am deutlichsten erkennen, wo der Schuh drückt.
Vielen Dank für jeden Hinweis und Lösungsvorschlag schon im Vorraus!
Ich möchte in einer Tabelle nur die Duplikate sehen.
D.h. Duplikate entfernen geht nicht, auch die Kennzeichnung doppelte Werte über die bedingte Formatierung reicht nicht aus.
Kennt jemand eine Möglichkeit, nur die Duplikate im Tabellenblatt zu belassen?
ich habe eine Abfrage per PQ vorliegen, bei der ich immer da gesamte Worksheet lade. Das führt aber ggf zu Problemen.
Wie kann ich da sin der Formel explizit ausschließen.
Ich wähle lieber das Ausschlussprinzip, da es für mich einfachr klingt ein Tabellenblatt auszuschließen, als all2 28 Blättre zu benennen die ich laden möchte
Hier das Script:
= let
#"MS" = Excel.CurrentWorkbook(),
#"MRC" = Table.RemoveColumns(MS,{"Name"}),
#"ME" = Table.ExpandTableColumn(MRC, "Content", {"Abteilung", "LAND", "Vertrag", "Name", "JAN", "FEB", "MAR", "APR",
"MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC"}, {"Abteilung", "LAND", "Vertrag","Name", "JAN",
"FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC"}),
#"MFR" = Table.SelectRows(ME, each ([Abteilung] <> "Ergebnis")),
#"MUOC" = Table.UnpivotOtherColumns(MFR, {"Abteilung", "LAND", "Vertrag", "Name"}, "Month", "Wert"),
#"MbFR" = Table.SelectRows(MUOC, each ([Name] = "STATUS" or [Name] = "ACTUAL" or [Name] = "BUDGET" or [Name] = "FC1" or [Name] =
"FC2")),
#"MPC" = Table.Pivot(MbFR, List.Distinct(MbFR[Name]), "Name", "Wert", List.Sum)
in
#"MPC"
Hinweis auf Angebot
Excel-Inside - lang Keine
Lösung gefunden? Du kannst Dich gerne an
unser erfahrenes Experten-Team
wenden um dein Anliegen zu besprechen. Gerne
erstellen wir auf dieser Basis ein Angebot. Sende deine Anfrage
einfach per
E-Mail an anfrage@excel-inside.de