ich möchte ein Makro per Befehl löschen.Wie geht das ?
Gruß
Jutta
ich möchte ein Makro per Befehl löschen.Wie geht das ?
Gruß
Jutta
Gruß
Mike E.
nein,ich meine wirklich löschen.Ich speichere eine Datei auf ein anderes Laufwerk.Bei der Ursprungsdatei kommt beim Öffnen eine MsgBox und die will ich beim Speichern auf das andere Laufwerk
nicht erscheinen lassen.
Gruß
Jutta
für diesen Fall habe ich auf meinen Tabellen einen Button, der die Inhalte (Werte und Formate ohne Formeln - ist aber auch machbar!) der Tabelle/Arbeitsmappe in eine neue Arbeitsmappe kopiert und diese sodann auf Laufwerk x speichert.
Die Makros sind dann nicht dabei.
Ist es das? dann schicke ich den Code.
Gruß
Mike
Gruß
Jutta
aber hier hast Du!
Private Sub cmdOK_Click()
a = txtName
If a = "" Then End
If a <> "Montag" And a <> "Dienstag" And a <> "Mittwoch" And a <> "Donnerstag" And a <> "Freitag" And a <> "Samstag" And a <> "Sonntag" And a <> "montag" And a <> "dienstag" And a <> "mittwoch" And a <> "donnerstag" And a <> "freitag" And a <> "samstag" And a <> "sonntag" And a <> "MONTAG" And a <> "DIENSTAG" And a <> "MITTWOCH" And a <> "DONNERSTAG" And a <> "FREITAG" And a <> "SAMSTAG" And a <> "SONNTAG" Then End
Dim b As String
b = txtTag
If b = "" Then End
Dim c As String
c = txtMonat
If c = "" Then End
Dim d As String
d = txtJahr
If d = "" Then End
Sheets(a).Select
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.Zoom = 60
Application.CutCopyMode = False
ActiveWorkbook.SaveAs FileName:="F:\groups\Monitoring\Reports\Forecastabgleich\" & "FC_Abgleich_" & txtTag & "_" & c & "_" & d, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Range("A1").Select
Unload Me
End Sub
Gruß
Jutta