![]() |
|
|
Banner und Co. |
![]() |
|
Themen-Optionen | Ansicht |
![]() |
#1 |
![]() Neuer Benutzer |
![]() Hallo zusammen. Mit dem folgenden Makro suche ich einen bestimmten Wert auf meiner Exceltabelle.
Code: Sub Schaltenfläche3_Klicken() Dim FindString As String Dim Rng As Range FindString = InputBox("Enter a Search value") If Trim(FindString) <> "" Then With Sheets("Tabelle1").Range("A:I") Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Rng Is Nothing Then Application.Goto Rng, True Else MsgBox "Die Suche ergab keinen Treffen!" End If End With End If End Sub ![]() |
![]() |
![]() ![]() |
![]() |
#2 |
![]() MOF Guru |
![]() __________________ Signatur in jedem Beitragm Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst. Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen. Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus. Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit. |
![]() |
![]() ![]() |