Office: Suchfunktion für Textfelder VBA (Textfeldsuche)

Helfe beim Thema Suchfunktion für Textfelder VBA (Textfeldsuche) in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, Ich bin neu hier und hoffe Ihr könnt mir helfen, ich verwende derzeit Microsoft Excel 2010. Zum Problem: Ich habe ein Arbeitsblatt... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Falke89, 29. Juni 2015.

Seite 1 von 3

FALKE89

Falke89

Suchfunktion für Textfelder VBA (Textfeldsuche)

Hallo zusammen,

Ich bin neu hier und hoffe Ihr könnt mir helfen, ich verwende derzeit Microsoft Excel 2010.

Zum Problem:

Ich habe ein Arbeitsblatt erstellt, welches eine Baumstruktur mit etlichen Textfeldern (ähnlich folgendem Link) beinhaltet.

http://www.cil.rwth-aachen.de/wp-con...oads/Bild1.jpg

Da es mittlerweile etwas unübersichtlich wird, möchte ich eine Suchfunktion, mit der ich die Inhalte der Textfelder durchsuchen kann, bei einem Treffer zu dem entsprechenden Textfeld gesprungen wird und sich die Hintergrundfarbe des Textfeldes ändert.

Ich habe auf folgender Seite bereits etwas passendes gefunden:

Datei_067, Suchenfunktion für Textfelder

Ich habe mir die Beispieldatei heruntergeladen, etwas rumgespielt, allerdings gibt es noch Probleme bei der Ausführung.

Wenn ich nur beim Beispiel ein 5. Textfeld hinzufüge und die Suche aktiviere, wird das hinzugefügte Textfeld ignoriert!?

Was muss ich machen, damit ich die Suchfunktion verwenden kann???

Vorab schon mal vielen Dank für eure Unterstützung!!!

Gruß

Manuel

:)

Falke89, 29. Juni 2015

#1
ALOYS78

aloys78

Hallo Manuel,

es wäre fair gegenüber den Helfern hier im Forum, wenn Du auch einen Link zu dem anderen Forum hier einstellen würdest.

Gruß
Aloys

aloys78, 1. Juli 2015

#2
FALKE89

Falke89

Hallo aloys78 und Hajo_Zi,

entschuldigt bitte das Mehrfachposting.
Von der Seite habe ich das noch gar nicht betrachtet, ich werde den Post in den anderen Foren löschen und erst später ein anderes Forum aufsuchen, falls bis dahin keine Lösung gefunden wurde.

Ich hatte nur gedacht, so schneller an eine Lösung zu kommen, ist aber verständlicherweise den Helfern gegenüber unfair.

Wie gesagt ich werde den Post in den anderen Foren löschen und hoffe ihr könnt mir weiterhelfen.

Danke und nochmals sorry *Smilie

Gruß
Manuel

Falke89, 1. Juli 2015

#3
FALKE89

Falke89

Suchfunktion für Textfelder VBA (Textfeldsuche)

Hallo nochmal,

ich hätte jetzt versucht, die anderen Posts zu löschen, aber entweder finde ich keine Löschfunktion oder aber ich habe keine Berechtigung!?

Daher poste ich hier die Links zu den anderen Foren:

http://www.office-fragen.de/index.ph...33923#msg33923

http://www.vba-forum.de/Forum/View.a...(Textfeldsuche)

Gruß
Manuel

Falke89, 1. Juli 2015

#4
Beverly Erfahrener User

Hi Manuel,

welche Art Textfelder benutzt du?

Beverly, 1. Juli 2015

#5
FALKE89

Falke89

Hi Beverly,

bisher verwende ich normale Rechtecke aus dem Reiter Illustrationen -> Formen, da anfangs keine Anforderungen an meine Arbeitsmappe bestanden.

Ich hatte aber auch schon die Befürchtung, dass evtl. das der Grund ist warum es nicht funktioniert *frown.gif*

Gruß
Manuel

Falke89, 1. Juli 2015

#6
Beverly Erfahrener User

Hi Manuel,

also Rechtecke und keine Textfelder? *wink.gif*

Code:

Sub Suche()
Dim shaShape As Shape
For Each shaShape In ActiveSheet.Shapes
If shaShape.DrawingObject.Text Like "*Alle*" Then '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 1. Juli 2015

#7
FALKE89

Falke89

Suchfunktion für Textfelder VBA (Textfeldsuche)

Hi Beverly,

vielen Dank für deine schnelle Hilfe.
Bei mir kommt aber die Fehlermeldung "Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht."

Ich hätte mir das ganze so wie im folgenden Code gedacht, allerdings springen darauf derzeit meine Rechtecke noch nicht an.
Ein zweiter störender Punkt am folgenden Code ist, dass dadurch eine zuvor definierte Hintergrundfarbe gelöscht wird.

Hier der Code:

Code:

Option Explicit

Public Textfeld As TextBox

Sub In_Textfeldern_suchen_Hintergundfarbe()
'Variablen deklarieren
Dim Suchbegriff As Variant, Textfeldtext As String

'Eingabefenster auf dem Bildschirm anzeigen und den eingegebenen Text in
'Variable "Suchbegriff" schreiben
Suchbegriff = InputBox("Bitte einen Suchbegriff eingeben.", "Suchbegriff...")

'Wenn die Variable "Suchbegriff" den Wert "False" hat, der entseht hier durch das betätigen der Abbruchtaste,
'oder keinen Wer enthält, das entsteht hier, wenn nichts eingegeben wird, aber dennoch die OK-Taste betätigt wqird,
'dann Prozedur beenden
If Suchbegriff = False Or Suchbegriff = Empty Then Exit Sub

'For Each-Schleife zum Ansprechen aller in dem Tabellenblatt eingesetzten Textfelder anzusprechen
For Each Textfeld In ActiveSheet.TextBoxes

'Das Textfeld, das durch die Schleife angesprochen wird, markieren
ActiveSheet.Shapes(Textfeld.Index).Select

'Bei einem Laufzeitfehler bei der nächsten Befehlszeile weitermachen
On Error Resume Next

'Bei dem markierten Textfeld die Hintergrundfarbe zurücksetzen
Selection.ShapeRange.Fill.Visible = msoFalse

'Den Text aus dem TExtfeld auslesen und in Variable "Textfeldtext" schreiben
Textfeldtext = Selection.Characters.Text

'Wenn der Suchbegriff in dem Textfeld vorkommt (hier über die Funktion "InStr" realisiert,
'ab dem ersten Buchstaben den Text mit dem Suchbegriff vergleicht)
If InStr(1, Textfeldtext, Suchbegriff, 1) Then

'Bildschirmmeldung, in der die Textboxnummer angezeigt wird, ausgeben
MsgBox "Suchbegriff in " & ActiveSheet.Shapes(Textfeld.Index).Name & " gefunden."

'Hintergrundfarbe in rot ändern
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Falke89, 1. Juli 2015

#8
Beverly Erfahrener User

Hi,

bei mir kommt kein Fehler - sonst hätte ich dazugeschrieben, dass ich den Code nicht getestet habe. Lade deine Mappe hoch.

Beverly, 1. Juli 2015

#9
FALKE89

Falke89

Hi,

anbei die Map.

Danke!

Gruß
Manuel

Falke89, 1. Juli 2015

#10
FALKE89

Falke89

Jetzt auch ohne Schreibschutz *biggrin.gif*

Falke89, 1. Juli 2015

#11
Beverly Erfahrener User

Hi Manuel,

du benutzt auch andere Objekte, nicht nur Textfelder und diese kann man nicht über .Text ansprechen. Versuche es so:

Code:

Sub Suche()
Dim shaShape As Shape
For Each shaShape In ActiveSheet.Shapes
If shaShape.Type = 17 Then
If shaShape.DrawingObject.Text Like "*Alle*" Then '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 2. Juli 2015

#12
FALKE89

Falke89

Suchfunktion für Textfelder VBA (Textfeldsuche)

Hi Beverly,

vielen Dank für deine Mühe.

Aber da muss ich den Suchbegriff ja dann immer über den Code eingeben!?

Ich bräuchte (leider) schon so eine Funktion ähnlich zu folgendem Beispiel, wo sich ein Fenster öffnet und man dort den Suchbegriff eingeben kann.

Die Beispiel-Datei hänge ich dran.

Falke89, 2. Juli 2015

#13
Beverly Erfahrener User

Hi Manuel,

eine Suchabfrage einzubauen ist doch kein Problem:

Code:

Sub Suche()
Dim shaShape As Shape
Dim varFrage As Variant
Dim lngZaehler As Long
varFrage = Application.InputBox("Bitte Suchbegriff eingeben", "Suche", , , , , , 2)
If varFrage "Falsch" And varFrage False Then
For Each shaShape In ActiveSheet.Shapes
If shaShape.Type = 17 Then
If shaShape.DrawingObject.Text Like "*" & varFrage & "*" Then
shaShape.Select
Exit For
End If
ElseIf shaShape.Type = 1 Or shaShape.Type = 8 Then
If shaShape.Name Like "*" & varFrage & "*" Then
shaShape.Select
Exit For
End If
ElseIf shaShape.Type = 6 Then
For lngZaehler = 1 To shaShape.GroupItems.Count
If shaShape.GroupItems(lngZaehler).Type = 17 Then
If shaShape.GroupItems(lngZaehler).DrawingObject.Text Like "*" & varFrage & "*" Then
shaShape.GroupItems(lngZaehler).Select
Exit For
End If
End If
Next lngZaehler
End If
Next shaShape
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da du außerdem einige Gruppierungen verwendest, müssen dort auch die Einzelobjekte durchsucht werden - ist im Code ergänzt.

Beverly, 2. Juli 2015

#14
FALKE89

Falke89

Vielen Dank für deine tolle Unterstützung, das funktioniert schon mal super.

Jetzt hätte ich aber noch ein paar Wünsche, falls das möglich wäre *wink.gif*

Und zwar habe ich beispielsweise die Bezeichnung Gewinde mehrfach in meiner Mappe.
Daher wäre es toll, wenn alle Formen, welche bspw. "Gewinde" enthalten, der Reihe nach markiert (Schriftfarbe rot und Formkontur rot) werden und zusätzlich zu diesen gescrollt wird.

So wie es im folgenden Code (irgendwie) gelöst wurde:

Code:

Option Explicit

Sub In_Textfeldern_suchen_Scrollen()
'Variablen deklarieren
Dim Textfeld As TextBox, Suchbegriff As Variant, Textfeldtext As String, Abfrage As Variant

'Wenn die Variable "Suchbegriff" den Wert "False" hat, der entseht hier durch das betätigen der Abbruchtaste,
'oder keinen Wer enthält, das entsteht hier, wenn nichts eingegeben wird, aber dennoch die OK-Taste betätigt wqird,
'dann Prozedur beenden
Suchbegriff = InputBox("Bitte einen Suchbegriff eingeben.", "Suchbegriff...")

'Wenn Keine Eingabe erfolgte oder die Abbrechentaste betätigt wurde, Prozedur beenden
If Suchbegriff = False Or Suchbegriff = Empty Then Exit Sub

'For Each-Schleife zum Ansprechen aller in dem Tabellenblatt eingesetzten Textfelder anzusprechen
For Each Textfeld In ActiveSheet.TextBoxes

'Das Textfeld, das durch die Schleife angesprochen wird, markieren
ActiveSheet.Shapes(Textfeld.Index).Select

'Bei dem markierten Textfeld die Schriftfarbe zurücksetzen
Selection.Font.ColorIndex = 0

'Den Text aus dem TExtfeld auslesen und in Variable "Textfeldtext" schreiben
Textfeldtext = Selection.Characters.Text

'Wenn der Suchbegriff in dem Textfeld vorkommt (hier über die Funktion "InStr" realisiert,
'ab dem ersten Buchstaben den Text mit dem Suchbegriff vergleicht)
If InStr(1, Textfeldtext, Suchbegriff, 1) Then

'Zum Textfeld das die Übereinstimmung enthält scrollen
ActiveWindow.ScrollIntoView _
Left:=Selection.Left, Top:=Selection.Top, _
Width:=0, Height:=0

'Hintergrundfarbe in rot ändern
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.Line.Visible = msoTrue

'Die Farbe der Buchstaben des gefundenen Suchbegriffs ändern
Selection.Characters( _
Start:=InStr(1, Textfeldtext, Suchbegriff, 1), _
Length:=Len(Suchbegriff)).Font.ColorIndex = 3

'Bildschirmmeldung, in der die Textboxnummer angezeigt wird, ausgeben
MsgBox "Suchbegriff in " & ActiveSheet.Shapes(Textfeld.Index).Name & " gefunden."
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Falke89, 2. Juli 2015

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 3

Thema:

Suchfunktion für Textfelder VBA (Textfeldsuche)

Die Seite wird geladen...

Suchfunktion für Textfelder VBA (Textfeldsuche) - Similar Threads - Suchfunktion Textfelder VBA
Suchfunktion
in Microsoft Excel Hilfe
Suchfunktion: Ist es in der Suchfunktion (Strg + F) möglich, das als Voreinstellung nicht "Blatt" eingestellt ist, sondern "Arbeitsmappe".
Suchfunktion erstellen
in Microsoft Excel Hilfe
Suchfunktion erstellen: Hallo Gemeinde, ich bin neu hier und bitte um Hilfe. Ich möchte eine Tabelle erstellen, die zur Suche von Datenanschlüssen verwendet werden soll. Fakten: 10 Gebäude mit je einem Datenschrank;...
Suchfunktion für Listbox in Textbox
in Microsoft Excel Hilfe
Suchfunktion für Listbox in Textbox: Hallo an alle hier im Forum, ich bastel mal wieder ein wenig rum. Ich habe ein 2 spaltige Listbox. In der 1. Spalte stehen Zahlen von einstellig bis sechsstellig und in der 2. Spalte Namen. Im...
Suchfunktion beschleunigen
in Microsoft Word Hilfe
Suchfunktion beschleunigen: Hallo, ich habe ein sehr großes Word-Dokument in dem ich sehr oft suche. Die Suche starte ich i.d.R. vom Anfang des Dokuments weil ich dann sehr häufig eine Fundstelle direkt im Inhaltsverzeichnis...
Suchfunktion in Zeile einbinden ?
in Microsoft Excel Hilfe
Suchfunktion in Zeile einbinden ?: Hallo zusammen, leider finde ich irgendwie keine Lösung zu meinem Problem. Glaube aber das es gar nicht so schwer sein dürfte. Ich möchte einfach nur genau das gleiche was die Suchfunktion macht...
Suchfunktion innerhalb der Foren
in Lob, Kritik und Verbesserungsvorschläge
Suchfunktion innerhalb der Foren: Hallo and das Office-Hilfe Team, ich bin vor Kurzem auf eure Seite aufmerksam geworden und finde sie sehr gut. Innerhalb der Foren ist es zwar möglich die Fragen und entsprechenden Antworten auf...
Find,Suchfunktion funktioniert nicht bei Excel 2016
in Microsoft Excel Hilfe
Find,Suchfunktion funktioniert nicht bei Excel 2016: Hallo zusammen, Ich habe ein Problem. Ich habe eine Suchfunktion: =WENN($K$1="";"";FILTER($A$2:$H$15000;ISTZAHL(SUCHEN($K$1;$A$2:$A$15000)))) Diese Funktioniert im office 365 Excel einwandfrei....

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden