ich suche ein Makro, wenn ich in der Datei "Test.xlsm" bin,
soll das Makro:
call Nummerierung
durchgeführt werden, sonst nicht !
mfg
walter k
Prüfen ob Datei schon offen
Private Sub Workbook_Open()
Dim BoOffen As Boolean
Dim WoDatei As Workbook
For Each WoDatei In Workbooks
If WoDatei.Name = "test.xls" Then
MsgBox "Datei ist schon geöffnet!"
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then
MsgBox "Test wird automatisch geöffnet!"
Workbooks.Open Filename:="C:\Eigene Dateien\Test.xls"
End If
End Sub
If ActiveWorkbook.Name = "Test.xlsm" Then
'Dein Code
End If