VBA Code nur wenn Dateiname <>?
28.05.2014 10:16:26
Marcy
in einem flexibelem Layout gebe ich die Möglichkeit 20 Regale zu erstellen.
Jedes Regal beinhaltet jedoch einige tausend Formeln.
Das Layout läuft gut, hat aber eine gewisse Rechenzeit, ca.1-2sec pro Eingabe.
Oft werden aber nur ein Teil der Regale benötigt.
Daher gebe ich die Möglichkeit, Regale die nicht benötigt werden, z.B. Regal 3:20 einfach zu kopieren und als Werte wieder einfügen, damit die Formeln weg sind.
Das läuft bereits (ganz löschen bringt mir leider andere Probleme)
Etwas eleganter fände ich allerdings, wenn beim Starten des Code die kommentierten Sätze ausgeführt werden, damit die Vorlage nicht ausversehen gekürzt wird.
Die Vorlage ist nämlich für viele User an einem zentralen Ort abgelegt.
Aber selbst mir könnte ausversehen der Klick auf den jeweiligen Button passieren.
Etwas Sicherheit wäre gut.
Könnte mir jemand helfen?
Liebe Grüße
Marcy
Sub RegaleWEG3_20()
'1) Prüfe den Datei Namen, ist er "Layout_Vorlage" dann führe den Code aus.
'2)Ist er = "Layout_Vorlage", dann
'3a)MsgBox "Du befindest Dich in der Vorlage, speicher die Datei erst neu ab" und Code beenden.
'3b) oder führe den bestehenden Code aus
Dim myPath, myFileName As String
myPath = ThisWorkbook.Path
myFileName = ThisWorkbook.Sheets("Randinformationen").Range("C1") & ".xlsm"
ActiveWorkbook.SaveAs myPath & "\" & myFileName
MsgBox "Die Datei wurde unter neuem Namen im ursprungs Speicherort gespeichert. Du _
pflegst nun in der neuen Datei"
'ab hier läuft es bereits
Sheets("LAYOUT").Select
Rows("700:6099").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
MsgBox "Das Regal ist noch sichtbar, jedoch rechnet hier nichts mehr"
End Sub