05.08.2016, 17:33
(Dieser Beitrag wurde zuletzt bearbeitet: 05.08.2016, 19:08 von WillWissen.
Bearbeitungsgrund: Makro in Codetags gesetzt
)
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:
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
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 SubNun 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
