gibt es eine Möglichkeit per VBA, das Makro ein zweites laufen zu lassen zu, verhindern? Ein Ansatz von mir ! Danke
If (Application.Run("Mappe1!Makro1")) größer 1 Then
MsgBox "Test", vbExclamation + vbOKOnly, "Warning"
End If
Gruß Shayev
Sub aaaa()
bbb
End Sub
Sub bbb()
Static bRun As Boolean
If Not bRun Then
MsgBox "läuft"
bRun = True
Else
MsgBox "hab schon"
End If
End Sub
Gruß
Sub Makro
If Tabelle1.Cells(1, 1).Value "" Then
Msgbox "Das Marko wurde bereits ausgeführt."
Exit Sub
End If
'--- hier der weitere Code
Tabelle1.Cells(1, 1).Value = Now '--- Zeitpunkt der Aufführung
End Sub
statt der Zelle kannst du auch einen Excel-Namen, oder die BuildtInDocumentProperties (Datei-Eigenschaften wie Autor, KOmmentar usw) oder die CoustomizedDocumentProperties als Speicherort verwenden.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen