mehrere Begriffe in einem Makro suchen

Sub Kontodaten_in_Worddaten_für_Konto3()

Dim wb As Workbook              'benötigt für dieses Workbook

Dim wksH As Worksheet           'benötigt für Hilfstabelle

Dim wksKd As Worksheet          'benötigt für Kontodaten

Dim wksWd As Worksheet          'benötigt für Worddaten

Dim AnzKtoDat As Object         'benötigt für Anzahl der Konten in Hilfstabelle

'Dim Kto1 As Object              'benötigt für 1. Konto in Kontodaten

'Dim Kto2 As Object              'benötigt für 2. Konto in Kontodaten

Dim Kto3 As Object              'benötigt für 3. Konto in Kontodaten

Set wb = ThisWorkbook

Set wksH = wb.Worksheets("Hilfstabelle")

Set wksKd = wb.Worksheets("Kontodaten")

Set wksWd = wb.Worksheets("Worddaten")

Set AnzKtoDat = wksH.Range("Q2")    'Anzahl der vorhandenen Kontoarten

'''Set Kto1 = wksH.Range("A2")   'Suchbegriff für Kontodaten 1. Konto

'''Set Kto2 = wksH.Range("A3")   'Suchbegriff für Kontodaten 2. Konto

Set Kto3 = wksH.Range("A4")   'Suchbegriff für Kontodaten 3. Konto

'''Dim WertKtoArtKto1 As String

'''Dim WertIBANKto1 As String

'''Dim WertKtoNrKto1 As String

'''Dim WertKtoArtKto2 As String

'''Dim WertIBANKto2 As String

'''Dim WertKtoNrKto2 As String

Dim WertKtoArtKto3 As String

Dim WertIBANKto3 As String

Dim WertKtoNrKto3 As String

Dim i As Long                       'benötigt für Durchlauf von Spalte B in Kontodaten

For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row

If Cells(i, 2) = Kto3 Then

WertKtoArtKto3 = Cells(i, 2)

Debug.Print WertKtoArtKto3

WertIBANKto3 = Cells(i, 2).Offset(0, 2)

Debug.Print WertIBANKto3

WertKtoNrKto3 = Cells(i, 2).Offset(0, 4)

Debug.Print WertKtoNrKto3

Exit Sub

Else

''            Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Select 'letzte leere zelle

''            MsgBox "Wert nicht vorhanden"

End If

Next

'Set aufheben

'Set Kto1 = Nothing

'Set Kto2 = Nothing

Set Kto3 = Nothing

Set AnzKtoDat = Nothing

Set wksH = Nothing

Set wksKd = Nothing

Set wksWd = Nothing

Set wb = Nothing

End Sub