Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Steuerelement suchen
zurück: Grafik verschieben weiter: X-Achse definieren (Chart) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Käpsele
Einsteiger


Verfasst am:
10. Jun 2011, 17:01
Rufname: Käpsele

Steuerelement suchen - Steuerelement suchen

Nach oben
       Version: Office 2010

Hallo,

ich habe beim Durchforsten meines Codes einen Code-Schnippsel gefunden, der mich stutzig gemacht hat und ich in meiner Arbeitsmappe auch die besagte ComboBox mit der Bezeichnung "ComboBox_Werkstoff_1" nicht finden kann.

Bevor ich nun diesen Code-Schnippsel einfach so lösche, möchte ich vorher doch sicher gehen, dass es die "ComboBox_Werkstoff_1" wirklich nicht mehr gibt.

Gibt es eine Möglichkeit die Arbeitsmappe nach der besagten ComboBox durchsuchen zu lassen?
Und falls diese gefunden wird, mir einen Hinweiß gibt, wo ich diese finden kann?

Wenn es dazu eine Lösung geben würde, wäre super.

vielen Dank im Voraus!

Schöne Grüße
Käpsele
r.mueller
Gast


Verfasst am:
10. Jun 2011, 17:51
Rufname:


AW: Steuerelement suchen - AW: Steuerelement suchen

Nach oben
       Version: Office 2010

Hallo

Code:

Sub SucheMeineCombobox()
Dim sht As Object
Dim oleObj As OLEObject

For Each sht In ActiveWorkbook.Sheets
 For Each oleObj In sht.OLEObjects
  If InStr(1, oleObj.progID, "Forms.ComboBox", 1) > 0 Then
   MsgBox oleObj.Name, , sht.Name
  End If
 Next
Next
End Sub


Gruß
r.mueller
Käpsele
Einsteiger


Verfasst am:
10. Jun 2011, 18:08
Rufname: Käpsele

AW: Steuerelement suchen - AW: Steuerelement suchen

Nach oben
       Version: Office 2010

Hallo,

na das ist ja mal was Feines Very Happy

Funktioniert super!

Dankeschön!

schöne Grüße
Käpsele
Gast



Verfasst am:
10. Jun 2011, 19:06
Rufname:

AW: Steuerelement suchen - AW: Steuerelement suchen

Nach oben
       Version: Office 2010

Hallo Käpsele,

Hier noch eine Variante, die dir ALLE (ob Formularelement oder ActiveX) Controls in ein neues Blatt listet (mit einigen zusätzlichen Angaben)
Code gehört in ein Modul:
Code:
Sub ControlsListe()
    Dim objShapeCtrl As Shape
    Dim ws As Worksheet
    Dim wsCtrl As Worksheet
    Dim bFound As Boolean
    Dim iCntWs As Integer
    Dim lRow As Long
   
    lRow = 1
    With ThisWorkbook
        .Worksheets.Add after:=.Worksheets(.Worksheets.Count)
        Set wsCtrl = ActiveSheet
        wsCtrl.Cells(lRow, 1) = "Worksheet-Name"
        wsCtrl.Cells(lRow, 2) = "Object-Name"
        wsCtrl.Cells(lRow, 3) = "Cell-Position"
        wsCtrl.Cells(lRow, 4) = "OLEType"
        wsCtrl.Cells(lRow, 5) = "Visible"
        wsCtrl.Cells(lRow, 6) = "Enabled"
        lRow = lRow + 1
        For Each ws In .Worksheets
            bFound = False
            For Each objShapeCtrl In ws.Shapes
                Select Case objShapeCtrl.Type
                Case msoOLEControlObject
                    wsCtrl.Cells(lRow, 4) = "ActiveX"
                Case msoFormControl
                    wsCtrl.Cells(lRow, 4) = "Forms Control"
                End Select
                If Not IsEmpty(wsCtrl.Cells(lRow, 4)) Then
                    bFound = True
                    wsCtrl.Cells(lRow, 1) = ws.Name
                    wsCtrl.Cells(lRow, 2) = objShapeCtrl.Name
                    wsCtrl.Cells(lRow, 3) = objShapeCtrl.TopLeftCell.Address(0, 0)
                    If wsCtrl.Cells(lRow, 4) = "ActiveX" Then
                        wsCtrl.Cells(lRow, 5) = CBool(objShapeCtrl.Visible)
                        wsCtrl.Cells(lRow, 6) = objShapeCtrl.ControlFormat.Enabled
                    Else
                        wsCtrl.Cells(lRow, 5) = CBool(objShapeCtrl.Visible)
                    End If
                    lRow = lRow + 1
                End If
            Next objShapeCtrl
            If bFound Then iCntWs = iCntWs + 1
        Next ws
    End With
    wsCtrl.Range("A:F").EntireColumn.AutoFit
    MsgBox lRow - 2 & " Controls in " & iCntWs & " worksheets"
End Sub
Gruess Hansueli
Käpsele
Einsteiger


Verfasst am:
10. Jun 2011, 20:40
Rufname: Käpsele


AW: Steuerelement suchen - AW: Steuerelement suchen

Nach oben
       Version: Office 2010

Hallo Hansueli,

na das ist ja brilliant!

Da bekommt man eine sehr schöne Übersicht, was man so alles gtrieben hat Smile

Werde es für die FAQ vorschlagen.

schöne Grüße
Käpsele
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Summe und Suchen über mehrere Zeilen 7 Gast 903 11. Jun 2006, 14:24
fridgenep Summe und Suchen über mehrere Zeilen
Keine neuen Beiträge Excel Formeln: Letzten Eintrag in Datumstabellen suchen und Anzahl der Tage 2 abaton 977 23. Feb 2006, 09:24
abaton Letzten Eintrag in Datumstabellen suchen und Anzahl der Tage
Keine neuen Beiträge Excel Formeln: Excel: Suchen in mehreren Arbeitsmappen -> Problem 0 Sebastian Konrad 1379 07. Feb 2006, 12:47
Sebastian Konrad Excel: Suchen in mehreren Arbeitsmappen -> Problem
Keine neuen Beiträge Excel Formeln: In mehreren Spalten suchen .... 2 firefly2005 1177 11. Jan 2006, 11:48
firefly2005 In mehreren Spalten suchen ....
Keine neuen Beiträge Excel Formeln: Namen suchen 1 Wilfried 606 29. Aug 2005, 12:42
fl618 Namen suchen
Keine neuen Beiträge Excel Formeln: Selbständiges Suchen einer Zelle und kopieren i andere Datei 2 Gerson 2322 19. Mai 2005, 04:48
Gerson Selbständiges Suchen einer Zelle und kopieren i andere Datei
Keine neuen Beiträge Excel Formeln: Wieso funktioniert "suchen und ersetzten" nur bedi 1 landau666 490 08. Apr 2005, 01:05
landau666 Wieso funktioniert "suchen und ersetzten" nur bedi
Keine neuen Beiträge Excel Formeln: Spaltenweise suchen und ersetzen 2 MaxKunst 3840 15. März 2005, 21:17
MaxKunsttt Spaltenweise suchen und ersetzen
Keine neuen Beiträge Excel Formeln: Werte suchen und dazugehörige ausgeben 2 Gast 1679 01. März 2005, 00:59
Gast Werte suchen und dazugehörige ausgeben
Keine neuen Beiträge Excel Formeln: SVERWEIS - NACH 2 KRITERIEN GLEICHZEITIG SUCHEN 6 janine071108 3121 21. Feb 2005, 17:55
Arnim SVERWEIS - NACH 2 KRITERIEN GLEICHZEITIG SUCHEN
Keine neuen Beiträge Excel Formeln: Wert in einer Matrix suchen und den Nachbarwert zurückgeben 1 michl 3098 08. Feb 2005, 12:06
steve1da Wert in einer Matrix suchen und den Nachbarwert zurückgeben
Keine neuen Beiträge Excel Formeln: Wert suchen 2 Foxy 583 29. Jan 2005, 18:04
Gast Wert suchen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks