CommandButton suchen und finden

Forumthread: CommandButton suchen und finden

18.12.2013 09:54:47

herbert

Hallo,
gibt es eine Möglichkeit, in einer Mappe mit dutzenden Tabellen und noch mehr CommandButtons einen bestimmten CommandButton (z. B.: CommandButton27) zu suchen und auch zu finden? ;o)=)
Servus

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CommandButton suchen und finden

18.12.2013 10:02:00

Rudi
Bingo! Das wars! Viiielen Dank!

18.12.2013 10:06:13

herbert

AW: CommandButton suchen und finden

18.12.2013 10:02:00

Rudi

Hallo,

Sub aaa()
Dim wks As Worksheet, cmd As Object
For Each wks In Worksheets
On Error Resume Next
Set cmd = wks.Shapes("CommandButton27")
If Not cmd Is Nothing Then
MsgBox wks.Name
Exit Sub
End If
Next
End Sub

Gruß
Rudi

Bingo! Das wars! Viiielen Dank!

18.12.2013 10:06:13

herbert

Hallo Rudi,
Deine Tipps sind immer wieder ein Genuss! Mercie vielmals!
Servus und schöne Weihnachten

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um einen bestimmten CommandButton in einer Excel-Arbeitsmappe zu finden, kannst du den folgenden VBA-Code verwenden. Dieser durchsucht alle Arbeitsblätter nach einem spezifischen CommandButton, zum Beispiel "CommandButton27":

Öffne Excel und gehe zu „Entwicklertools“.
Klicke auf „Visual Basic“, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem du im Projektfenster mit der rechten Maustaste auf „VBAProject“ klickst und „Einfügen“ > „Modul“ wählst.

Kopiere und füge den folgenden Code in das Modul ein:

Sub SucheCommandButton()
   Dim wks As Worksheet, cmd As Object
   For Each wks In Worksheets
       On Error Resume Next
       Set cmd = wks.Shapes("CommandButton27") ' Hier den Namen des CommandButtons anpassen
       If Not cmd Is Nothing Then
           MsgBox "Der CommandButton befindet sich auf dem Arbeitsblatt: " & wks.Name
           Exit Sub
       End If
   Next
   MsgBox "CommandButton nicht gefunden."
End Sub

Schließe den VBA-Editor und führe das Makro aus.

Häufige Fehler und Lösungen

Fehler: "Object variable or With block variable not set"
- Lösung: Überprüfe, ob der Name des CommandButtons korrekt ist. Achte auf Groß- und Kleinschreibung.
Fehler: "CommandButton nicht gefunden."
- Lösung: Stelle sicher, dass sich der CommandButton auf einem der Arbeitsblätter befindet und dass du den richtigen Namen verwendet hast.

Alternative Methoden

Eine alternative Methode, um CommandButtons in deiner Excel-Datei zu finden, besteht darin, die Excel-Objektinspektor zu nutzen:

Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf „Ansicht“ > „Projekt-Explorer“.
Durchsuche die Liste der Arbeitsblätter nach dem CommandButton. Dies ist zwar manuell, kann aber hilfreich sein, wenn du die Struktur deiner Arbeitsmappe visuell überprüfen möchtest.

Praktische Beispiele

Hier sind einige Beispiele, wie du den VBA-Code anpassen kannst, um verschiedene CommandButtons zu suchen:

Um nach "CommandButton1" zu suchen, ändere die Zeile:
```
Set cmd = wks.Shapes("CommandButton1")
```

Um alle CommandButtons aufzulisten, kannst du den Code anpassen, um alle gefundenen CommandButtons anzuzeigen:

For Each wks In Worksheets
   For Each cmd In wks.Shapes
       If TypeName(cmd) = "OLEObject" Then
           If cmd.Name Like "CommandButton*" Then
               MsgBox "Gefundener CommandButton: " & cmd.Name & " auf " & wks.Name
           End If
       End If
   Next cmd
Next wks

Tipps für Profis

Verwende die Debug.Print-Funktion: Anstelle von MsgBox kannst du Debug.Print verwenden, um die Ergebnisse im Direktfenster des VBA-Editors auszugeben. Dies ist besonders nützlich, wenn du viele CommandButtons hast und die Informationen nicht ständig in Pop-ups sehen möchtest.
Optimierung des Codes: Wenn du häufig nach CommandButtons suchst, erwäge, deinen Code in eine benutzerdefinierte Funktion umzuwandeln, die dir eine Liste der gefundenen CommandButtons zurückgibt.

FAQ: Häufige Fragen

1. Wie kann ich einen CommandButton in einem geschützten Arbeitsblatt finden? Um einen CommandButton in einem geschützten Arbeitsblatt zu finden, musst du zuerst das Blatt entsperren, indem du den Schutz aufhebst.

2. Ist dieser Code in allen Excel-Versionen anwendbar? Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)