Mit Textbox suchen und Zelle markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then 'bei Return Makro ausführen Dim TB As Worksheet, RNG As Range, C As Range, TTXT As String, firstAddress As String, Anz As Integer Set TB = Sheets("Tabelle1") Set RNG = TB.Range("A2:GF300") With TextBox1 If .Text "" Then Set C = RNG.Find(.Text, LookIn:=xlValues) If Not C Is Nothing Then firstAddress = C.Address Application.Goto C ' ersten Fund markieren Do Set C = RNG.FindNext(C) 'Fundstellen sammeln TTXT = TTXT & vbLf & C.Address(0, 0) Anz = Anz + 1 Loop While Not C Is Nothing And C.Address firstAddress MsgBox Anz & "x gefunden in:" & vbLf & TTXT Else MsgBox "Kein Fund" End If End If End With End If End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then 'bei Return Makro ausführen Dim TB As Worksheet, RNG As Range, C As Range, TTXT As String, firstAddress As String Dim Anz As Integer, JaNein As Variant, Arr, i As Integer Set TB = Sheets("Tabelle1") Set RNG = TB.Range("A2:GF300") With TextBox1 If .Text "" Then Set C = RNG.Find(.Text, LookIn:=xlValues) If Not C Is Nothing Then firstAddress = C.Address Do Set C = RNG.FindNext(C) 'Fundstellen sammeln TTXT = TTXT & vbLf & C.Address(0, 0) Anz = Anz + 1 Loop While Not C Is Nothing And C.Address firstAddress Arr = Split(TTXT, vbLf) 'Array zum Anspringen For i = 1 To Anz JaNein = MsgBox(Anz & "x gefunden in:" & vbLf & TTXT & vbLf & vbLf _ & "Zum Treffer " & i & " / " & Anz & " hinspringen?", vbYesNo) If JaNein = vbYes Then Application.Goto Range(Arr(i)) Else Exit For End If Next Else MsgBox "Kein Fund" End If End If End With End If End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then 'bei Return Makro ausführen Dim TB As Worksheet, RNG As Range, C As Range, TTXT As String, firstAddress As String Dim Anz As Integer, JaNein As Variant, Arr, i As Integer Set TB = Sheets("Tabelle1") Set RNG = TB.Range("A2:GF300") With TextBox1 If .Text "" Then Set C = RNG.Find(.Text, LookIn:=xlValues) If Not C Is Nothing Then firstAddress = C.Address Do Set C = RNG.FindNext(C) 'Fundstellen sammeln TTXT = TTXT & "; " & C.Address(0, 0) Anz = Anz + 1 Loop While Not C Is Nothing And C.Address firstAddress Arr = Split(TTXT, ", ") 'Array zum Anspringen For i = 1 To Anz JaNein = MsgBox(Anz & "x gefunden in:" & vbLf & TTXT & vbLf & vbLf _ & "Zum Treffer " & i & " / " & Anz & " hinspringen?", vbYesNo) If JaNein = vbYes Then Application.Goto Range(Arr(i)) Else Exit For End If Next Else MsgBox "Kein Fund" End If End If End With End If End Sub

Hallo
bei mehr als 1024 Zeichen in einer MsgBox ist sowieso Schluss
Da wird der Rest verschluckt.
Die Buchstaben der Tastatur J und N werden aber auch akzepteiert
Evtl. so


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
'bei Return Makro ausführen
Dim TB As Worksheet, RNG As Range, C As Range, TTXT As String, firstAddress As String
Dim Anz As Integer, JaNein As Variant, Arr, i As Integer
Set TB = Sheets("Tabelle1")
Set RNG = TB.Range("A2:GF300")
With TextBox1
If .Text  "" Then
Set C = RNG.Find(.Text, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
Set C = RNG.FindNext(C)
'Fundstellen sammeln
TTXT = TTXT & "; " & C.Address(0, 0)
Anz = Anz + 1
Loop While Not C Is Nothing And C.Address  firstAddress
Arr = Split(TTXT, "; ") 'Array zum Anspringen
For i = 1 To Anz
JaNein = MsgBox(Anz & "x gefunden in:" & vbLf & TTXT & vbLf & vbLf _
, vbYesNo, "Zum Treffer " & i & " / " & Anz & " hinspringen?   J / N")
If JaNein = vbYes Then
Application.Goto Range(Arr(i))
Else
Exit For
End If
Next
Else
MsgBox "Kein Fund"
End If
End If
End With
End If
End Sub

LG UweD

Das liegt wahrscheinlich am Text von den Filmen
$5 a Day
...altrimenti ci arrabbiamo!
...Più forte ragazzi!
1 chance sur 2
2 Fast 2 Furious
2 Guns
3 Days to Kill
3 Idiots
3faltig
Alles als Text Formatiert
5 Flights Up
6 Souls
7 minutes
8 Mile
8 Million Ways to Die
8MM
10 Cloverfield Lane
10 Minutes Gone
10,000 BC
10x10
12 Angry Men
12 Rounds 2 Reloaded
12 Strong
12 Years a Slave
13 Going on 30
13 Hours
13 Stühle
15 Minutes
16 Blocks
20th Century Women
21 Bridges
21
21 Grams
22 Jump Street
24 Hours to Live
28 Days
30 Days of Night
42
47 Meters Down Uncaged
47 Ronin
71
127 Hours
211
300
300 Rise of an Empire
310 to Yuma
1408
1492 Conquest of Paradise
1917
2001 A Space Odyssey
2012
3000 Miles to Graceland
3096 Tage
5050
7500
10000 Saints

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then 'bei Return Makro ausführen Dim TB As Worksheet, RNG As Range, C As Range, TTXT As String, firstAddress As String Dim Anz As Integer, JaNein As Variant, Arr, i As Integer Set TB = Sheets("Schauspieler") Set RNG = TB.Range("A2:GF300") With TextBox1 If .Text "" Then Set C = RNG.Find(.Text, LookAt:=xlPart) 'Hier ########## If Not C Is Nothing Then firstAddress = C.Address Do Set C = RNG.FindNext(C) 'Fundstellen sammeln TTXT = TTXT & "; " & C.Address(0, 0) Anz = Anz + 1 Loop While Not C Is Nothing And C.Address firstAddress Arr = Split(TTXT, "; ") 'Array zum Anspringen For i = 1 To Anz JaNein = MsgBox(Anz & "x gefunden in:" & vbLf & TTXT & vbLf & vbLf _ , vbYesNo, "Zum Treffer " & i & " / " & Anz & " hinspringen? J / N") If JaNein = vbYes Then Application.Goto Range(Arr(i)) Else Exit For End If Next Else MsgBox "Kein Fund" End If End If End With End If End Sub

Beliebteste Forumthreads (12 Monate)

Mit Textbox suchen und Zelle markieren

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit Textbox suchen und Zelle markieren

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread