AW: 2 Makros mit einem Button auslösen?
13.05.2022 09:22:06
Andreas
Guten Morgen Yal,
dein Code schreibe ich in ein extra Modul oder?
Also das hab ich mal versucht. Hab nur ein Problem hab nochmal nachgeguckt und das eine Modul wird gar nicht durch ein CommandButton ausgelöst sondern durch eine Schaltfläche.
Hab die Zeile in deinem Code dann versucht darauf anzupassen:
Private Sub sSF_Name = "SF_Versandbereit"
Aber das scheint nicht zu funktionieren?
Hier mal der Codeanfang, der auf der Schaltfläche liegt:
'* Name der Schaltfläche
sSF_Name = ActiveSheet.Shapes(Application.Caller).Name
'* Sicherheitsabfrage
Beep
sFrage = MsgBox("Ist die """ & Mid(sSF_Name, 4, 25) & """ wirklich erledigt?", vbYesNo + vbQuestion, "?")
If sFrage = vbNo Then GoTo ende
'* damit wird eine namensgleich vorhandene Datei ohne Nachfrage überschrieben!
Application.DisplayAlerts = False
'* damit wird die geöffnete Datei im o. a. Pfad & neuem Namen gespeichert
ActiveWorkbook.SaveAs Filename:=sPfad & sFileName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
'* Sheet "DB" entsperren
'Tab1_DB.Unprotect sKey
Call SchaltflaecheGrün
ende:
'* Sheet "DB" sperren
' If Environ("USERNAME") "1HG" Then Tab1_DB.Protect sKey
End Sub
Sub Status_erledigt()
Dim sZielPfadUndOrdner$, Wkb As Workbook, sQuellOrdner$
On Error GoTo ende
'* Name der Schaltfläche
sSF_Name = ActiveSheet.Shapes(Application.Caller).Name
'* Sicherheitsabfrage
sFrage = MsgBox("Ist die """ & Mid(sSF_Name, 4, 25) & """ wirklich erledigt?", vbYesNo + vbQuestion, "?")
If sFrage = vbNo Then GoTo ende
'* ZielOrdner bestimmen
If sSF_Name = "SF_Versandbereit" Then sZielOrdner = "2 Versandbereit\"
If sSF_Name = "SF_Versandbereit" Then Range("AR2") = "Offen"
An dieser Stelle soll das Makro von CommandButton1 aktiviert werden
If sSF_Name = "SF_Versendet" Then sZielOrdner = "3.2 BL Versand\"
If sSF_Name = "SF_Versendet" And [Cell_Empfaenger] = "US" Then sZielOrdner = "3.1 ISF\"
If sSF_Name = "SF_Versandt_US" Then sZielOrdner = "3.2 BL Versand\"
If sSF_Name = "SF_Versandt_US" Then Range("AR2") = "Erledigt"
An dieser Stelle soll das Makro von CommandButton1 aktiviert werden
If sSF_Name = "SF_Abgeschlossen" Then
With Sheets("A 1")
If .[L1] = "" Then
sZielOrdner = "4 Abgeschlossen\" & .[C8] & "_" & .[D3] & "_" & .[C7] & "\"
Else
sZielOrdner = "4 Abgeschlossen\" & .[C8] & "_" & .[D3] & "_" & .[C7] & "_" & .[L1] & "\"
End If
End With
End If