title image


Smiley Re: Makro zum Kopieren, Umbenennen und Speichern von Arbeitsblättern
auf die Schnelle:













Sub Blattname()

Dim Antwort As String  



Antwort = InputBox("Geben Sie bitte einen Namen ein")  



Sheets("Eingabeformular").Select

Sheets("Eingabeformular").Copy Before:=Sheets(1)

ActiveSheet.Name = Antwort



End Sub  







Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: