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
   
    Set fso = Nothing
End Sub

hallo guten Tag,

ich möchte meinen Datenbestand ordnen und habe mir schmale- und breite Ordner-Einsteckschilder zugelegt.

Ich habe mir Einsteckschilder mit "Unterteilungen" bestellt und finde keinen Weg , um die Schilder zu bedrucken.

Die Schilder haben die Maße von 190X30mm und 190X55mm. Ich vermute, dass der Drucker die schmalen Streifen nicht verarbeitet?

Ich habe an eine manuelle Beschriftung gedacht, aber sicher ist meine Schrift nicht so prickelnd, um ein sauberes Bild abzugeben?

Danke

Achim

Hallo zusammen, 

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. 

Vielen Dank vorab für die Hilfe! 

Angehängte Dateien

  Test_Beschwerde_Excel_001.xlsx (Größe: 14,33 KB / Downloads: 4)

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!

Guten Tag,

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!

Grüße 
Plez
       

Hallo liebe Wissende,

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.

Dankeschön vorab.

Liebe Grüße, Peter

https://www.ms-office-forum.net/forum/sh...p?t=387527

Angehängte Dateien

  Text aus Zelle auslesen und auf Spalten aufteilen.xlsx (Größe: 10,37 KB / Downloads: 0)

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

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!

Mit freundlichen Grüßen
Hans

Angehängte Dateien

Thumbnail(s)
   

Hallo,

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?

Vielen Dank für eure Ideen.

Hallo,

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"



Danke euch