mehrere Wörter in der Spalte finden mit vba
25.11.2005 11:46:27
Anja
habe eine Frage,... ich habe eine Macro geschrieben, die in der Spalte ein Wort "Holiday" findet und giebt von dem die Zeilen nummer aus.(siehe unten Code)
Ich brauche allerdings, dass die Zeilennummer, wenn das Wort "Urlaub", "Ferien", "Vocation" vorkommen, also nicht nur ein Wort...
Wie konn man es realisieren...
Wie gesagt, ich kenne nur Funktion Find, die nur ein Wort findet...
Sub wort_suchen()
Dim ObjFuoundCell As Range
Dim c As Range
Dim wks, wks1 As Worksheet 'Worksheet
Dim I, zeile_end_new As Integer
Dim search_name, name_search, name_search_new As String
Dim Name_1 As String
Set wks = ActiveWorkbook.Sheets("source")
zeile_end_new = wks.Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To 40 'zeile_end_new
variab = wks.Cells(I, 1).Text
Set c = Range(Cells(I, 1), Cells(I, 1)).Find("*Holiday*", LookIn:=xlValues)
If Not c Is Nothing Then
row1 = c.Row
MsgBox (row1)
Else
GoTo weiter
End If
weiter: Next
End Sub
Würde mich über jede Hilfe sehr freuen...
Danke und viele Grüße
Anja
Anzeige