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.