Suche erleichtern / einschränken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngBereich As Range Dim strgSuche As String strgSuche = Range("A1").Value If Target.Cells(1, 1) "" Then Set rngBereich = Columns(1).Find(strgSuche, LookAt:=xlWhole) If rngBereich Is Nothing Then MsgBox "Nüt gefunden", 64 Else rngBereich.Activate End If Else Exit Sub End If End Sub

Sub suche() Dim strSuche As String Dim strAnzahl As Long Dim lngZeile As Long, lngRow As Long strSuche = InputBox("Suchstring?") strAnzahl = Len(strSuche) lngRow = Range("A65536").End(xlUp).Offset(0, 0).Row For lngZeile = 1 To lngRow If Left(Cells(lngZeile, 1).Value, strAnzahl) = strSuche Then Cells(lngZeile, 1).Select Exit For End If If Cells(lngZeile, 1).Row = lngRow And Cells(lngZeile, 1).Value strSuche Then MsgBox "kein Treffer!" End If Next lngZeile End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then On Error GoTo Uups Range("A" & WorksheetFunction.Match(Target & "*", [a2:a500], 0) + 1).Select End If Uups: Err.Clear End Sub

Danke für eure schnelle Hilfe.
Ich persönlich finde die Lösung von Boris bisher am komfortabelsten.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
On Error GoTo Uups
Range("A" & WorksheetFunction.Match(Target & "*", [a2:a500], 0) + 1).Select
End If
Uups:
Err.Clear
End Sub

Ich habe diese in meine Suchdatei eingebaut.
https://www.herber.de/bbs/user/45313.xls
Die Krönung wäre jetzt noch, dass das Macro folgendes ausführt.
Derzeit gebe ich die Buchstaben ein und durch das drücken der Entertaste es sofort an die Stelle springt.
Besser wäre, wenn ich nachdem ich den Ersten Buchstaben eingebe, es sofort diesen Bereich (von z.B. D) hinspringt bzw. in Zeile A2 verschiebt. Somit wäre der Vorteil, das ich bei nichtwissen der Schreibweise variieren kann.
Ich gebe ein "D" und die Zeile unter A1 wäre A247. tippe ich jetzt noch e ein also "De" lande ich bei Zelle A260. Gebe ich jetzt noch ein p dazu ein also "Dep" lange ich bei Zeile A277.
Somit wäre eine detalierte Suche noch eleganter möglich.
Hat hierzu jemand noch eine Idee.
Vielen Dank und viele Grüße Jens

Beliebteste Forumthreads (12 Monate)

Suche erleichtern / einschränken

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche erleichtern / einschränken

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread