Hallo zusammen,
ich habe eine Megadatei (30MB), die im Prinzip nur aus Textfeldern und Freihandformen besteht.
Ich möchte auf einer Extraseite gerne eine Suchfunktion einrichten, die mir bestimmten Text in den Textfeldern sucht und als Ergebnis die Position dieses Textfeldes angibt.
Gibt es da eine Möglichkeit über ein Makro solch eine Suchfunktion einzurichten?
Es wäre schön, wenn das Makro mit Erklärungen ausgestattet ist, weil ich mich mit Makros erst seit kurzem beschäftigt habe.
Besten Dank im Voraus…
Carsten
Ich möchte auf einer Extraseite gerne eine Suchfunktion
einrichten, die mir bestimmten Text in den Textfeldern sucht
und als Ergebnis die Position dieses Textfeldes angibt.
Hallo Carsten,
gehe auf diese Seite, ertelle aus der Symbolleiste Steuerelemttoolbox eine Befehlssachaltfläche. Schalte mit dem ersten Symbol in der Steuerelementtoolbox den Entwurfsmodus aus.
Rechtsklick auf den Blattnamen, „code anzeigen“ anklicken, nachstehenden Code einfügen, Editor schließen.
Der Code erwartet das Suchwort in C1. Ergebnisse erscheinen in A und B. Der Code wertet die Textfelder in Tab1 aus.
Gruß
Reinhard
Option Explicit
Private Sub CommandButton1\_Click()
Dim S As Object, Anz As Long, Zei As Long
ReDim strz(1 To Worksheets("Tabelle1").OLEObjects.Count, 1 To 2)
Application.ScreenUpdating = False
For Each S In Worksheets("Tabelle1").OLEObjects
If S.Name Like "Text\*" And InStr(S.Object.Text, Range("C1").Value) \> 0 Then
Anz = Anz + 1
strz(Anz, 1) = S.Name
strz(Anz, 2) = S.TopLeftCell.Address(0, 0)
End If
Next S
Range("A:B").ClearContents
Range("A1:B1") = Split("Name Zelle")
For Zei = 1 To Anz
Cells(Zei + 1, 1).Value = strz(Zei, 1)
Cells(Zei + 1, 2).Value = strz(Zei, 2)
Next Zei
Application.ScreenUpdating = True
End Sub
Hallo Reinhard,
besten Dank erstmal für Deine Antwort.
Leider bin ich zur Zeit etwas im Stress.
Komme gerade mal dazu kurz meine mails zu checken
Ich werde das so schnell wie möglich probieren.
Gruß
Carsten