Hallo liebe Excelgemeinde,
ich bin auf der Suche nach einer Möglichkeit ein Tabellenblatt, welches ich bereits in eine Mappe eingefügt habe, immer an die richtige Stelle zu verschieben. Ursprünglich habe ich angenommen, dass es reicht, das Blatt immer an Stelle 6 zu verschieben. Leider benötige ich eine andere Abhängikeit, da Blatt 1 bis Blatt X immer unterscheidlich in Anzahl und Benennung sind. die letzteren Mappen sind aber in Ihrem Namensshema gleich:
-Blatt1 - Blatt2 - BlattX - 10368 EK 2021-05-17 - 10368 EK 2021-05-16 - 10368 EK 2021-05-15
Ich bräuchte eine Funnktion die sagt: Suche von Links nach Rechts das erste Blatt was an Stelle 7&8 die Buchstaben "EK" stehen hat. Füge das neue Blatt davor ein!
Wie gesatgt, aktuell mit "Verschieben des Blattes vor Sheet6" sieht das ganze so aus:
'EK Blatt vor Stelle 6 schieben
ActiveSheet.Move Before:=Sheets(6)
'Bennene das Blat um
ActiveSheet.Name = Mid$(Datei2, InStr(Datei2, ".") - 5, 5) & " " & Mid$(Datei1, InStr(Datei1, ".") - 2, 2) & " " & Left$(Datei1, 10)
Quellenarbeitsmappe.Close
Datei1 = Dir()
Hat jemand für sowas eine Lösung/ Idee für mich?
Vielen Dank im Voraus!!! beste Grüße Robin
|