AW: ich bin drin....
11.03.2018 01:50:28
Mullit
Hallo,
...braucht ja nur eine Func-Änderung beim Oberschlumpf...
Option Explicit
Public Sub a()
Const SEARCH_STRING_1 As String = "mom"
Const SEARCH_STRING_2 As String = "birthday"
Dim larRange As Variant, ldbIdx As Long, lstrRow1 As String, lstrRow2 As String
larRange = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For ldbIdx = 1 To Ubound(larRange, 1)
If InStr(1, larRange(ldbIdx, 1), _
SEARCH_STRING_1, vbTextCompare) <> 0 Then
lstrRow1 = lstrRow1 & ldbIdx & ","
End If
If InStr(1, larRange(ldbIdx, 1), _
SEARCH_STRING_2, vbTextCompare) <> 0 Then
lstrRow2 = lstrRow2 & ldbIdx & ","
End If
Next
If lstrRow1 <> "" Then
lstrRow1 = Left$(lstrRow1, Len(lstrRow1) - 1)
Call MsgBox("Das Wort '" & SEARCH_STRING_1 & _
"' ist in diesen Zeilen enthalten:" & vbCrLf & vbCrLf & _
lstrRow1, vbExclamation)
End If
If lstrRow2 <> "" Then
lstrRow2 = Left$(lstrRow2, Len(lstrRow2) - 1)
Call MsgBox("Das Wort '" & SEARCH_STRING_2 & _
"' ist in diesen Zeilen enthalten:" & vbCrLf & vbCrLf & _
lstrRow2, vbExclamation)
End If
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 14
Gruß, Mullit