|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.09.2013 11:04:17 |
Gast50949 |
|
|
|
20.09.2013 12:59:47 |
Gast33298 |
|
|
|
20.09.2013 15:49:38 |
Gast51007 |
|
|
|
21.09.2013 13:47:54 |
Gast21447 |
|
|
|
24.09.2013 10:32:11 |
Ursprungs Gast |
|
|
|
24.09.2013 16:55:35 |
Neuhäusler Korbinian |
|
|
|
24.09.2013 17:08:49 |
Gast52681 |
|
|
|
25.09.2013 08:59:05 |
Ursprungs Gast |
|
|
|
25.09.2013 19:59:07 |
Gast77462 |
|
|
|
26.09.2013 11:18:19 |
Ursprungs Gast |
|
|
|
27.09.2013 04:00:32 |
Gast25383 |
|
|
 Starthilfe |
27.09.2013 04:36:22 |
Gast52516 |
|
|
|
27.09.2013 04:09:50 |
Gast22838 |
|
|
|
02.10.2013 09:35:50 |
Gast48511 |
|
|
Von:
Gast52516 |
Datum:
27.09.2013 04:36:22 |
Views:
781 |
Rating:
|
Antwort:
|
Thema:
Starthilfe |
|
Ich geb dir noch ne kl. Starthilfe für die BezieheUebersicht-Funktion. Den Rest musst du dann aber selber lösen.
Sub test()
Dim strWorkbookname As String
strWorkbookname = "test.xlsx"
If IsWorkbookOpen(strWorkbookname) Then
Call MsgBox("Mappe '" & strWorkbookname & "' ist geöffnet.", vbInformation)
Else
Call MsgBox("Mappe '" & strWorkbookname & "' ist NICHT geöffnet.", vbInformation)
End If
End Sub
'Hilfsfunktion, sucht eine Mappe anhand eines Namens
' liefert True, wenn eine Mappe mit dem Namen gefunden wurde
' liefert False, wenn keine Mappe mit dem Namen gefunden wurde
Public Function IsWorkbookOpen(Workbookname As String) As Boolean
Dim wkb As Excel.Workbook
'>> die 'schmutzige' Variante >>
On Error Resume Next
Set wkb = Workbooks(Workbookname)
'<<
' 'ODER:
' '>> die 'saubere' Variante (weil man hier in keinen Fehler reinrennt) >>
' For Each wkb In Workbooks
' If 0 = StrComp(wkb.Name, Workbookname, vbTextCompare) Then
' Exit For ' Schleife verlassen, da wir einen Treffer haben
' End If
' Next
' '<<
IsWorkbookOpen = Not wkb Is Nothing
End Function
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.09.2013 11:04:17 |
Gast50949 |
|
|
|
20.09.2013 12:59:47 |
Gast33298 |
|
|
|
20.09.2013 15:49:38 |
Gast51007 |
|
|
|
21.09.2013 13:47:54 |
Gast21447 |
|
|
|
24.09.2013 10:32:11 |
Ursprungs Gast |
|
|
|
24.09.2013 16:55:35 |
Neuhäusler Korbinian |
|
|
|
24.09.2013 17:08:49 |
Gast52681 |
|
|
|
25.09.2013 08:59:05 |
Ursprungs Gast |
|
|
|
25.09.2013 19:59:07 |
Gast77462 |
|
|
|
26.09.2013 11:18:19 |
Ursprungs Gast |
|
|
|
27.09.2013 04:00:32 |
Gast25383 |
|
|
Starthilfe |
27.09.2013 04:36:22 |
Gast52516 |
|
|
|
27.09.2013 04:09:50 |
Gast22838 |
|
|
|
02.10.2013 09:35:50 |
Gast48511 |
|
|