Ablgeich Referenztabelle
10.08.2017 07:50:13
Excel-Kalle
ich habe ein Problem beim Abgleich einer Referenztabelle.
Ich habe eine Hauptarbeitsmappe mit einer Namensaufzählung. In einem zweiten Blatt habe ich eine Referenztabelle ebenfalls mit Namen. Wenn in der Hauptarbeitsmappe nun ein Name aus der Referenztabelle auftaucht, soll ein Buchstabenkürzel in einer Zeile vor den Namen in der Hauptarbeitsmappe ausgegeben werden.
Bei einem Treffer per Makro die Zeile markieren bekomme ich hin, mir fehlt jedoch der Schritt zur Ausgabe eines Buchstabenkürzels vor den Namen im Hauptarbeitsblatt.
P.S. ist es hierbei auch möglich nur einen bestimmten Bereich zu markieren?
Ich freu mich auf eure Ideen!
----------------------------------------------------------
Sub Schaltfläche7_Klicken()
Dim rFinde As Range, rSuche As Range
Dim strFirst As String
Dim lngReihe As Long, lngLetzte As Long
Dim I As Integer
With Sheets("Referenztabelle")
lngLetzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
End With
Set rFinde = Sheets("Hauptarbeitsblatt").Range("D8:D135")
With Sheets("Referenztabelle")
For I = 2 To lngLetzte
Set rSuche = rFinde.Find(what:=.Cells(I, 1), LookAt:=xlWhole)
If Not rSuche Is Nothing Then
strFirst = rSuche.Address
Do
lngReihe = rSuche.Row
Sheets("Hauptarbeitsblatt").Range("D" & lngReihe).EntireRow.Interior.ColorIndex = 45
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address strFirst
End If
Next I
End With