erkennen ob Listbox da

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox MsgBox
Bild

Betrifft: erkennen ob Listbox da
von: atikar
Geschrieben am: 19.11.2003 14:09:58

Hallo,

kann mir jemand ein Makro posten das prüft ob Listbox1 da ist?

ciao

Atikar

Bild


Betrifft: AW: erkennen ob Listbox da
von: q
Geschrieben am: 19.11.2003 14:15:07

Hallo,
wo da - Sheet oder UserForm? q


Bild


Betrifft: AW: erkennen ob Listbox da
von: atikar
Geschrieben am: 19.11.2003 14:16:50

im sheet


Bild


Betrifft: AW: erkennen ob Listbox da
von: q
Geschrieben am: 19.11.2003 14:28:27

Option Explicit

Public Const NameToFind$ = "ListBox1"

Public

Sub LstFind()
    Dim sh As Worksheet
    Dim OleOb As OLEObject
    Dim OleObs As OLEObjects
    Dim IsDa As Boolean
    
    Set sh = ActiveSheet
    Set OleObs = sh.OLEObjects
    IsDa = False
    
    For Each OleOb In OleObs
        If (OleOb.Name = NameToFind$) Then
            IsDa = True
            Exit For
        End If
    Next OleOb
    
    If (IsDa = True) Then
        MsgBox "OLE Object mit dem Namen " & NameToFind$ & " ist im ActiveSheet."
    Else
        MsgBox "OLE Object mit dem Namen " & NameToFind$ & " ist NICHT im ActiveSheet."
    End If
End Sub


'q


Bild


Betrifft: AW: erkennen ob Listbox da
von: atikar
Geschrieben am: 19.11.2003 14:36:40

danke q

funktioniert super

ciao

atikar


Bild


Betrifft: AW: erkennen ob Listbox da
von: q
Geschrieben am: 19.11.2003 14:37:55

das freut mich ;-)
mfg. q


Bild


Betrifft: AW: erkennen ob Listbox da
von: atikar
Geschrieben am: 19.11.2003 14:44:53

Hallo q,

ich habe noch ein Problem

Forumsbeitrag >Daten aus geschlossener Datei holen<

vielleicht kannst du mir da auch helfen.

ciao

atikar


Bild


Betrifft: AW: erkennen ob Listbox da
von: q
Geschrieben am: 19.11.2003 15:01:02

hmm, das wird mich auch interessieren ob es geht :-). Ich wurde sagen dass es NICHT geht. Also meiner Meinung nach muss man die Datei vorher offnen um in die Datein Daten reinschreiben zu konnen . Aber vielleicht geht es irgendwie. Wiess leider auch nicht wie :-( q


Bild


Betrifft: AW: erkennen ob Listbox da
von: q
Geschrieben am: 19.11.2003 15:20:34

Man kann es so umgehen. Ist zwar bischen blod, aber nichts anderes fallt mir ein...


Sub DatenAusGeschDateiHolen()
    Dim Etwas$
    
    On Error GoTo ErrH
    
    ' Versuch einen Wert aus Book Etwas zu lesen, aber es ist nicht geoffnet - Fehler Nr.9 entsteht
    Etwas$ = Excel.Application.Workbooks("Etwas.xls").ActiveSheet.Range("a1").Value
    MsgBox "Wert im Sheet Etwas in der Zelle a1 ist " & Etwas$
    Application.Workbooks("Etwas.xls").Close
    
    Exit Sub
    
ErrH:
    If (Err.Number = 9) Then
        ' Datei Etwas offnen und wieder auf der Zeile wo der Fehler aufgetreten ist fortfahren
        ' Etwas muss aber dort (hier D:\) existieren, sonst Fehler so wie so
        Application.Workbooks.Open "D:\Etwas.xls"
        Resume
    Else
        MsgBox Err.Description & " , nr." & Err.Number
    End If
End Sub



Bild

Beiträge aus den Excel-Beispielen zum Thema " erkennen ob Listbox da"