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
-
33892
-
23315
-
16436
-
15820
-
15740
-
15220
-
14059
-
12159
-
11872
-
11300
-
10470
-
10270
-
9501
-
9408
-
9370
-
9090
-
8841
-
8758
-
8297
-
8062
-
8043
-
7923
-
7867
-
7813
-
7718
-
7426
-
7303
-
7004
-
7000
-
6981
-
6944
-
6501
-
6415
-
6242
-
6043
-
5994
-
5906
-
5900
-
5900
-
5852
-
5839
-
5813
-
5799
-
5742
-
5704
-
5638
-
5573
-
5553
-
5501
-
5451
-
5378
-
5299
-
5275
-
5088
-
5086
-
5068
-
5059
-
5038
-
4997
-
4978
-
4961
-
4870
-
4811
-
4760
-
4739
-
4733
-
4730
-
4726
-
4685
-
4684
-
4654
-
4631
-
4559
-
4552
-
4518
-
4486
-
4483
-
4479
-
4455
-
4425
-
4387
-
4362
-
4353
-
4349
-
4343
-
4341
-
4329
-
4320
-
4315
-
4313
-
4275
-
4246
-
4236
-
4235
-
4232
-
4206
-
4205
-
4092
-
4044
-
4007