MFG.
Sebastian
Private Sub OK_Click()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
Suchbegriff = Array(Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8, Text9)
For t = 0 To UBound(Suchbegriff)
sSearch = Suchbegriff(t)
Set rngFind = Cells.Find(Suchbegriff(t), LookAt:=xlPart)
If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
Next
rngRows.Select
End Sub
Code eingefügt mit:
z.B. so:
Code eingefügt mit Syntaxhighlighter 1.16
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngRows = Application.Union(rngRows, Rows(rngFind.Row - 1))
Set rngFind = Cells.FindNext(After:=rngFind)
Loop Until rngFind.Address = sFind
Gruß
Heinz
Beliebteste Forumthreads (12 Monate)
-
ThreadtitelLesezugriffe
-
33669
-
22972
-
16198
-
15738
-
15516
-
15050
-
13647
-
11953
-
11777
-
11130
-
10254
-
9889
-
9458
-
9301
-
9223
-
9152
-
8787
-
8676
-
8130
-
8092
-
7874
-
7857
-
7843
-
7835
-
7766
-
7274
-
7261
-
6953
-
6936
-
6811
-
6767
-
6509
-
6232
-
6218
-
6000
-
5890
-
5885
-
5862
-
5808
-
5803
-
5758
-
5740
-
5661
-
5634
-
5604
-
5573
-
5555
-
5482
-
5456
-
5393
-
5384
-
5188
-
5181
-
5113
-
5011
-
4961
-
4960
-
4911
-
4908
-
4845
-
4843
-
4787
-
4764
-
4742
-
4712
-
4711
-
4708
-
4699
-
4698
-
4619
-
4559
-
4531
-
4529
-
4518
-
4513
-
4494
-
4460
-
4443
-
4441
-
4400
-
4393
-
4368
-
4344
-
4327
-
4319
-
4313
-
4301
-
4280
-
4272
-
4258
-
4251
-
4235
-
4225
-
4206
-
4205
-
4202
-
4148
-
4065
-
4033
-
4017