Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Dateiname

Forumthread: VBA Dateiname

VBA Dateiname
14.05.2024 15:23:59
Luca
Hallo alle zusammen, ich habe bei Excel eine Makro Aufzeichnung durchgeführt.
Die Datei heißt momentan noch "Versuch1.0.xlsm" und nun habe ich das Problem das ich nach jedem Verwenden des Makro (Button),
die Datei mit einem neuen Namen speichern möchte, dadurch aber leider das Makro nicht mehr funktioniert da der Name sich geändert hat.

Wie kann ich bei VBA denn Dateinamen "Variabel" machen so das ich es immer weiter verwenden kann?

Ich bin absoluter Anfänger und um jede Hilfe Dankbar

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Dateiname
14.05.2024 15:37:51
peter
Hallo

Normalerweise braucht man den Dateinamen nicht. "ThisWorkbook"reicht vollkommen. Zeig mal Dein Makro.

Peter
AW: VBA Dateiname
14.05.2024 15:48:08
Luca
Das hier wären die ersten paar Zeilen
Würde das ihnen reichen um mir weiterzuhelfen?

------------------------------------------------------------------------------------------

Sub Makro10()
'
' Makro10 Makro



'
Range("A2:B2").Select
Selection.Copy
Windows("Auswertung.xlsx").Activate
ActiveSheet.Paste
Range("C2").Select
Windows("Versuch1.0.xlsm").Activate
Range("F2:G2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Auswertung.xlsx").Activate
ActiveSheet.Paste
Range("E2").Select
Windows("Versuch1.0.xlsm").Activate
Range("A6:E6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Auswertung.xlsx").Activate
ActiveSheet.Paste
Anzeige
AW: VBA Dateiname
14.05.2024 16:08:58
peter
Hallo

ThisWorkbook.Activate

statt

Windows("Versuch1.0.xlsm").Activate

sollte reichen, wenn das Makro in "Versuch1.0.xlsm" gespeichert ist.

Peter
ohne Select/ Activate ...
14.05.2024 17:34:40
Uduuh
Hallo,
.... geht das etwa so: 
Sub luca()

  With Workbooks("Auswertung.xlsx").Sheets(1)

    Range("A2:B2").Copy .Range("A2")

    Range("F2:G2").Copy .Range("C2")

    Range("A6:E6").Copy .Range("E2")

  End With

End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: VBA Dateiname
14.05.2024 16:35:15
Luca
Vielen Dank für die doch so einfache und schnelle Hilfe.
Grüß Luca

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige