Werte in einer Spalte mit mehreren Spalten vergleichen

[dominhio]

Hi,

bin nicht recht erfahren in VBA aber habe mich einmal folgenden Problem angenommen.

Problem:
Ich habe eine Arbeitsmappe mit 2 Reitern.
Auf Reiter 1 "CI_Impact_Analysis" stehen in spalte2 Referenzen in  die ich auf Reiter 2 "CIstep5" in verschiedenen Spalten suchen möchte.
Wenn gefunden soll auf Reiter1 ein x in der entsprechenden Zelle in Spalte H machen.


Folgender VBA Code habe ich erstellt:

Code:

Sub CI_mapping()

Dim i, j, k, l, m, n As Integer
Dim Text1 As String
Set CIimpactanalysis = ThisWorkbook.Worksheets("CI_Impact_analysis")
Set CIstep5 = ThisWorkbook.Worksheets("CIstep5")
   
l = CIimpactanalysis.Cells(Rows.Count, "B").End(xlUp).Row
m = CIstep5.Cells(1, Columns.Count).End(xlToLeft).Column
CIstep5.Cells(3, "H") = m 'Spaltenanzahl Ausgeben zur Kontrolle
   
For n = 1 To m
    For j = 3 To l
'CI in den Spalten suchen
        For i = 2 To CIstep5.Cells(Rows.Count, n).End(xlUp).Row 'CIs 1-letzte Zelle suchen
        If CIstep5.Cells(i, CIstep5.Cells(Rows.Count, n).End(xlUp).Row) = CIimpactanalysis.Cells(j, "B") Then
        CIimpactanalysis.Cells(j, "H") = "x"
        Exit For
        End If
        Next i
    Next j
Next n
Text1 = "CIs für step5 identifiziert"
MsgBox Text1
End Sub

Nun bekomme ich keine Fehlermeldung sondern er trägt nichts in Spalte H ein.
Wo könnte mein Fehler liegen?

Vielen Dank und Beste Grüße

[schauan]

Hallöchen,
Du verwendest in der inneren Schleife statt der Spaltennummer (eventuell m) die Nummer der letzten gefüllten Zeile von n...

[Kuwer]

Hallo,

vielleicht auch einfach per Formel(n):

CI_Impact_Analysis

	A	B	C	D	E	F	G	H
1		Referenzen						vorhanden
2		x						X
3		Test						X
4		Hallo

Formeln der Tabelle

Zelle Formel H2 =WENN(ZÄHLENWENN(CIstep5!$1:$1048576;B2);"X";"") H3 =WENN(ZÄHLENWENN(CIstep5!$1:$1048576;B3);"X";"") H4 =WENN(ZÄHLENWENN(CIstep5!$1:$1048576;B4);"X";"")

Gruß Uwe

[dominhio]

Danke für die Tipps.
Der Hinweis mit der Spalte hat mich auch die Richtige Spur gelenkt.

Der Tipp mit der Formel ist aus meiner Sicht nicht so einfach um zu setzen da die Werte in einer Matrix angeordnet sind und nicht nur in einer Spalte.
Danke Trotzdem.


Gruß
Dominik

[Kuwer]

Hallo Dominik,

Der Tipp mit der Formel ist aus meiner Sicht nicht so einfach um zu setzen da die Werte in einer Matrix angeordnet sind und nicht nur in einer Spalte.

Du hast die Formel probiert?

Gruß Uwe