kleine Hilfe für Makro benötigt... Dringend :-)
11.10.2004 23:53:47
Thomas B.
eine neue Woche, neues Glück!
Brauche mal eben kurz einen Tip aus dem Forum, wie ich anstelle der Eingabebox den Inhalt der Zelle "ang_angnr" auslese und dann das Tabellenblatt unter C:/bla/bla ablegen kann.
Sub ang_speicherninneuesblatt()
On Error GoTo fehlermeldung
Dim TBName$, WBName$
TBName = ActiveSheet.Name
WBName = InputBox("Unter welchem Dateinamen soll das Tabellenblatt gespeichert werden?" & Chr(13) & _
"Bitte den Dateinamen eingeben:")
If WBName = "" Then Exit Sub
Worksheets(TBName).Copy
ActiveWorkbook.SaveAs WBName
ActiveWorkbook.Close
Exit Sub
fehlermeldung:
MsgBox "Es ist ein Fehler aufgetreten!"
End Sub
Viel weiter komm ich leider nicht. Vielen Dank schon einmal im voraus!
Gruß,
Thomas
Anzeige