title image


Smiley Sorry hab immer nur ne Std. Zeit von 11 -12 neuer Versuch
Hallo Jürgen



probier mal folgenden Code:

(nur in das entsprechende Tabellenblatt sonst nix)



Option Explicit

Sub NameAusA4()

Dim Pfad As String

Dim Zelle As String

Pfad = ActiveWorkbook.Path

MsgBox Pfad 'Die Zeile kannst Du später löschen wenns klappt

Zelle = ActiveSheet.Cells(4, "A").Value

MsgBox Zelle 'Die Zeile kannst Du später löschen wenns klappt

ActiveWorkbook.SaveAs Filename:=Pfad & "\" & Zelle & ".xls": Exit Sub

End Sub



Kanns ja noch ein Button setzen um dami das Makro zu starten.

Ich habe beide Varianten getestet und bei mir funktionieren sie.

Wenn das auch nicht geht, kann ich leider nicht weiter helfen.


Gruß Matthias

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: