Office: Codes zusammenführen

Hallo Leute,

ich habe Excel 2003.
Hier habe ich 3 Codes:

Erster

Sub FarbeNormal()
Dim Blatt As Object
Dim Zelle As Range
For Each Blatt In Sheets
For Each Zelle In Blatt.UsedRange
If Zelle.Font.ColorIndex = 5 Then Zelle.Font.ColorIndex = 1
If Zelle.Font.Strikethrough Then Zelle.Clear
Next Zelle
Next Blatt
End Sub

-> dieser soll alle Texte die blau sind schwarz machen und alle Texte die durchgestrichen sind löschen

Zweiter

Sub Arbeitsmappe Speichern()
Dim strName As String
Const Pfad = "C:\Ablage"
strName = ActiveWorkbook.Name

ActiveWorkbook.SaveAs Filename:=Pfad & strName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True

End Sub

-> dieser code Speichert die Datei, und erstellt eine Sicherheitskopie

Dritter

Sub Eigener Name()
Dim DATCl As Variant

DATCL = Application.GetSaveAsFilename _
(„NEUEDATEI.XlS“, „Excel – Dateien (*.xls),*.xls”)

If DATCl = False Then
Else
ActiveWorkbook.SaveAs DATCl
End If
End Sub

-> dieser Code soll dann mich fragen wie ich die Datai benennen und neu speichern möchte

=> diese Codes sollen allso alle zu einem code zusammengeführt werden, dass ich einen Button erstellen kann bei dessem drücken zu erst der Forgang des ersten Codes durchgeführt wird und dann diese Datei unter dem aktuellen Namen gespeichert wird (+Sicherheitskopie)
als nächstes soll er mich fragen unter welchen Namen ich die Datei nochmals speichern möchte,
am tollsten wäre es wenn ich eigendlich nur das Datum manuell ändern könnte, der Dateiname aber gleich bliebe
z.B. <2007>Dateiname

Und noch ne kleine Frage neben her,
ich habe das makro das blau schreibt, wenn ich was schreibe (also automatisch) und wenn ich Strg d drücke streicht er den Text durch den ich markiere

aber irgendwie klappt beides nicht in einer Zelle trotz verschiedener Textabschnitten

Wäre toll wenn ihr mir helfen könntet

Lg christine

 

Hallo!

Die Makros kannst du mit der Call-Methode zusammenführen:

Code:

Sub Alle_Zusammen()
Call FarbeNormal
Call Arbeitsmappe Speichern
Call Eigener Name
End Sub

 

danke,
hat super geklappt