Prüfen auf geöffneter Datei - advanced
02.10.2014 13:59:50
Schmitty
da bin ich schon wieder:
Nächstes "Spezial-Problem". Ich nutze folgenden Code, um per Knopfdruck zu prüfen, ob eine andere Excel-Datei geöffnet ist. Ist das der Fall, wird eine Zelle gelb gefärbt ansonsten blau:
' Prüfen ob die "Kunden-Datenbank" geöffnet ist
Function IsWorkbookOpen(strWB As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(strWB) Is Nothing
End Function
'Test
Sub test()
If IsWorkbookOpen("Adressen.xlsm") Then
Range("A1" & Y).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Else
Range("A1" & Y).Select
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
End If
End Sub
Ich möchte, dass immer geprüft wird, ob die andere Excel-Datei vorhanden ist, also ich möchte den Button einsparen.
Und als Ergebniss möchte ich, dass nicht eine Zelle eingefärbt wird, sondern der Backgound eines CommandButtons (Name: "Sub Bearbeiten_Click()")
Gruß
Christian
Anzeige