Office: (Office 2010) Dateinamen automatisch im Makro anpassen/ändern

Hallo zusammen!

Glaub hier bin ich richtig

Suche eine Möglichkeit mein erstes Makro so anzupassen, dass ein Fenster aufgeht in dem der neue Dateiname eingegeben wird und somit gleich mein Makro geändert wird.

Momentan muss man immer ins Makro um den Namen zu ändern!

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Sheets("F00005").Select
Sheets("F00005").Name = "Rohdaten"

Also quasi soll man garnicht mehr in das Makro wechseln müssen, sondern sobald man die neue Datei geöffnet hat nur dessen Name (BSp.F00010) eingeben und dieser wird dann im Makro automatisch angepasst!

Geht das iwie??

Grüße

:)

 

Hi,

ein Sheet ist ein Tabellenblatt und keine Datei - wie passt das zueinander?
Falls du doch Tabellenblatt meinst - benutze ActiveSheet.Name
Beachte aber, dass es nicht mehrere Tabellenlätter mit demselben Namen "Rohdaten" geben kann.

 

Hallo Beverly,

naja ich habe ja die Excel-Datei! Die heißt bspw. F00005.xls. Wenn ich diese öffne, dann steht unten als Reiter bzw. Sheet ebenfalls F00005 drin. Jetzt möchte ich mein Makro starten, jedoch heißt meine .xls jetzt nicht F00005 sondern F00010 also auch der Reiter/Sheet unten! Das Makro hat sich aber noch F00005 gemerkt und sagt dann funzt nicht! Logisch da der Name nicht übereinstimmt! Dieses Problem möchte ich umgehen, in dem ich ein weiteres Makro habe, in dem nach dem neuen Dateinamen gefragt wird ( über Schaltfläche vllt), dieser eingegeben wird und dann automatisch für das folgende Makro (siehe oben) angepasst wird. Alle anderen Makros laufen dann hintereinander ab, weil ich da alles mit Rohdaten benannt habe, aus denen er sich dann für die Tabellenblätter 1 und 2 die Daten holt.

Grüße

 

Hi,

also stimmen Dateiname und Tabellenname überein? Schreibe den Dateinamen auf eine Variable und benutze diese dann:

Code:

 

Hi,

leider klappt es nicht! Wenn ich debugge meckert er bei den letzten beiden Zeilen:
Sheets(strName).Select '

 

Hallo nochmal,

also wenn ich dein Code so in eine neu geöffnete Datei mit einbaue, quasi ein neues Modul anlege in VBA-ProjektF00010 und dann deinen Code mit dem Code aus meinem VBAProjekt-Personal zusammen packe funktioniert es!

Wenn ich ihn jedoch in mein Makro Personal Projekt packe, meckert er beim debuggen. Wie oben beschrieben!

Kannst du mir bitte noch erklären, wie ich diese Hürde beseitigen kann?

Grüße

 

Hi,

es stand nirgendwo, dass dein Code in der Personal.xlsb steht - solche Hinweise sind aber von essentieller Wichtigkeit! In diesem Fall geht natürlich ThisWorkbook nicht, da sich dies auf das Workbook mit dem Code bezieht und auf strName logischerweise "Personal" dann steht. Verwende stattdessen ActiveWorkbook

 

Hallo Beverly,

so hat es funktioniert! Vielen lieben Dank für deine Hilfe!

Das nächste mal versuche ich an solche Sachen zu denken!

Grüße