Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

FindControl - wie funktioniert's?



Excel-Version: 8.0 (Office 97)

Betrifft: FindControl - wie funktioniert's?
von: Maria Winter
Geschrieben am: 03.09.2002 - 15:48:13

Wie setze ich FindControl ein, um bestimmte Controls zu finden? Und als was muß ich die Variable definieren, in die ich die gefundenen Controls auslese?

Die Hilfe hilft mir nicht wirklich, die Forums-Recherche hat nichts erbracht.

Thx in advance!


  

Zwar nicht FindControls - aber ...
von: Jürgen
Geschrieben am: 03.09.2002 - 18:10:40

Hallo Maria,

mit FindControls kenne ich mich auch nicht aus, aber mit nachstehender Prozedur habe ich in abgewandelter Form auch bestimmte Controls selektiert.

Weiß nicht, ob es Dir bei Deinem Problem hilft:


Sub Textboxes_leeren()
    Dim Objekt As Control
    For Each Objekt In UserForm1.Controls
       If Left(UCase(Objekt.Name), 7) = "TEXTBOX" _
          Then Objekt.Value = ""
    Next Objekt
End Sub

(gefunden bei http://schmittis-page.de/)

Viel Glück
Jürgen

  

Re: FindControl - wie funktioniert's?
von: L.Vira
Geschrieben am: 03.09.2002 - 20:12:08

Da du nicht gepostet hast, was genau du erreichen willst, mal ein pauschales Beispiel:
Sub Find_Control_aus()
On Error Resume Next
If Not CommandBars(1).FindControl(Id:=30007) Is Nothing Then
CommandBars(1).FindControl(Id:=30007).Visible = False
MsgBox "Gefunden und ausgeblendet!"
Else
MsgBox "Nix gefunden!"
End If
End Sub
  

Danke!
von: Maria Winter
Geschrieben am: 04.09.2002 - 09:28:28

Danke an die beiden Antworter.

Was ich anscheinend falsch gemacht habe, war die Suchvariable nicht als Office.CommandBarControl zu deklarieren.