Hallo zusammen, bin neu hier und ich hoffe ihr könnt mir gleich helfen. Ich habe eine definierte Formatvorlage in Word 2010. (Reparaturaufträge) Wenn ich die Vorlage zum ausfüllen öffne, soll mir ein Makro gleich die Datei mit einer Laufnummer versehen. Wenn ich dann die Datei speicher, soll der Name wie folgt lauten: "Reparaturaufträge_6-stellige Laufnummer_Datum" Soweit so gut. So nun zu meinem Problem mit der Laufnummer: Bis jetzt habe ich das mit einer externen INI-Datei gelöst, in welche einfach die aktuelle Nummer geschrieben wird und beim erneuten öffnen der Vorlage wird einfach +1 hochgezählt. Excel vba dateinamen auslesen. Ich möchte das aber etwas anders lösen. Und zwar soll mir das Makro die LETZTE abgespeicherte Laufnummer auslesen, +1 addieren und die neue Datei abspeichern. Ich möchte einfach keine externe INI-Datei verwenden. Leider hab ich keine Ahnung wie ich Dateinamen aus bestehenden Dokumenten auslesen und bearbeiten kann. Ich hoffe ihr versteht mein Problem und könnt mir helfen. Danke schon mal und viele Grüße Bitte entschuldigt wenn ein ähnliches Thema bereits irgendwo behandelt wurde.
Beantwortet 3, Sep 2019 von Anonym Hallo M. O., vielen Dank für die Lösung! Sie klappt, nachem ich den kleinen Fauxpas "sub name()" endlich als solchen erkannt hatte, einwandfrei. Danke schön! Gruß Peter Da wird doch der Hund in der Pfanne verrückt! Ich bekomme nun den korrekt ermittelten und gewandelten Namen nicht übergeben... Sub Drucken_PDF() ' ' Drucken_PDF Makro Dim strName1 As String Dim strName2 As String strName1 = Left(, InStrRev(, ". ") - 1) strName2 = strName1 & "" Sheets(Array("xyz1", "xyz2")) Sheets("xyz1"). Activate ActiveSheet. Vba dateinamen auslesen download. ExportAsFixedFormat Type:=xlTypePDF, Filename:=strName2, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfterPublish:=False End Sub Wo ist mein Denkfehler? Ich habe sowohl Filename:=strName2 als auch Filename:= "strName2" ausprobiert. Wie bekomme ich denn den strName2 korrekt übergeben? LG beverly_ Experte ( 2k Punkte) Hi Peter, es fehlt die Pfadangabe wo gespeichert werden soll. Ich löse so etwas auf diesem Weg: Sub PDFerzeugen() Dim strName As String strName = "E:\Z_Test\" '<== Speicherpfad strName = strName & bstitute(, "", "") & "" reenUpdating = False heets(Array("Tabelle1", "Tabelle2")) With ActiveWorkbook.
Hallo ich habe wieder mal ein Problem und ich hoffe ihr könnt mir helfen. Ich möchte Dateien die in einem Unterverzeichniss stehen auslesen und untereinander in eine Exceltabelle einfügen, um diese dann weiterzuverarbeiten. Irgendwie müßte das mit einer Schleife machbar sein ich weiß nur nicht wie. Nachfolgend der Code des Programmes, welches ich gefunden habe und nach meinen Erfordernissen angepaßt habe. Leider gibt das Programm nur die Dateinamen nacheinander in MSG-Boxen aus. Vielen Dank im voraus. Sub Dateien_Auslesen() Dim Unterordner As String Unterordner = Worksheets("Tabelle1")(1, 1) Set fs = leSearch With fs = "C:\Projektarbeit\Datenbank Pluritec\" & Unterordner & "\". FileType = msoFileTypeAllFiles If. Execute > 0 Then MsgBox "There were " &. & " Binder file(s) found. Dateiname auslesen und in Zelle schreiben. " For i = 1 To. MsgBox. FoundFiles(i) Next i Else MsgBox "There were no Binder files found. " End If End With End Sub Hallo Sven leider hast Du nicht geschrieben ob auch die Unterverzeichnisse ausgelesen werden sollen.
05315000 Köln Regierungsbezirk Köln Nordrhein-Westfalen
Meldungen Kyffhäuserstraße 161030-5-K Polizeibeamte angegriffen und verletzt - Zwei Einsätze der letzten Nacht 30. 10. 2016 - Kyffhäuserstraße Innerhalb weniger Stunden wurden in der Nacht zu Sonntag (30. Oktober) mehrere Polizisten bei zwei Einsätzen in Köln angegriffen, beleidigt und zum Teil verletzt. Besonders gewalttätig zeigte si... Kyffhäuserstraße Köln - PLZ, Stadtplan & Geschäfte - WoGibtEs.Info. weiterlesen Haltestellen Kyffhäuserstraße Bushaltestelle Barbarossaplatz B265 15, Köln 140 m Bushaltestelle Südbahnhof Otto-Fischer-Straße 11, Köln 240 m 250 m Bushaltestelle Eifelwall Luxemburger Wall 2, Köln 400 m Parkplatz Kyffhäuserstraße Parkplatz Bauhaus Salierring 47, Köln Parkplatz Friedrichstr. 52, Köln 320 m Parkplatz Zülpicher Str. 49b, Köln 330 m Parkplatz Jahnstr. 28, Köln 410 m Briefkasten Kyffhäuserstraße Briefkasten Barbarossaplatz 2, Köln 200 m Briefkasten Otto-Fischer-Straße 2, Köln 220 m Briefkasten Hohenstaufenring 24, Köln 280 m Briefkasten Lochnerstr. 22, Köln 310 m Restaurants Kyffhäuserstraße Miljöh Hochstadenstraße 12, Köln 70 m Colbé Restaurant Hochstadenstraße 35, Köln 120 m Schmelztiegel Luxemburger Straße 34, Köln Blue Shell Luxemburger Str.
Direkt zum Inhalt Direkt zur Hauptnavigation Direkt zur Unternavigation Direkt zur Servicenavigation Home So, 15. Mai. 2022 Stadtplan Verkehr KoelnMail Newsletter Suchen: Weihnachtsmärkte Tageskalender Menü Leben in Köln Übersicht Wohnen Stadtteile Wirtschaft & Messe Jobs in Köln Trauer und Bestattungen Gesundheit Heiraten Branchen Übersicht Shopping in den Veedeln Allgemeinmediziner Apotheken Lieferservices Steuerberater Zahnärzte Nachrichten Übersicht Neues aus Köln 1.