Suche leider nur in Spalte A
12.03.2021 08:13:59
oraculix
Folgendes Problem ich habe ein Such Ausgabe Makro das Fehlerfrei funktioniert.
Leider wird nur in Spalte A Gesucht es sollte auch spalte B durchsucht werden.
Frage: Was muß ich ändern damit beide Spalten A und B durchsucht werden.
'In Tabelle FilmDB wird in Spalte A Gesucht Nach dem suchen wird in Tabelle "Gefunden" der gesuchte Eintrag gelistet.
Public Sub FilmDBFindenUndKopieren()
Dim iRowT As Long
Dim sWord As String, strFirstAddress As String
Dim objCell As Range
sWord = InputBox(Prompt:="Suchbegriff:", Default:="Filmname")
If sWord "" Then
iRowT = 3
With Worksheets("Gefunden")
Set objCell = Columns(1).Find(What:=sWord, _
LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not objCell Is Nothing Then
strFirstAddress = objCell.Address
Do
objCell.EntireRow.Copy .Cells(iRowT, 1)
iRowT = iRowT + 1
Set objCell = Columns(1).FindNext(After:=objCell)
Loop Until objCell.Address = strFirstAddress
Set objCell = Nothing
.Activate
.UsedRange.Font.Size = 20
With .Range("A2:J200")
.Font.Color = RGB(255, 192, 0)
.Interior.Color = vbBlack
.Borders.Color = RGB(255, 192, 0)
End With
End If
End With
End If
End Sub