Spaltenvergleich
01.06.2018 13:03:46
Jonas
ich habe anscheinend einen Fehler in meinem Code und kann ihn nicht finden. Der code soll im Range "iz" im "wksQualificationLevel" die Werte nacheinander in die Variable "ci" einlesen. Jeden Wert in der Variable "ci" soll er im Arbeitsblatt "wksÜbersicht" in Spalte "A" suchen. Bei einer Übereinstimmung soll ein weiterer Wert, der im "wksQualificationlevel" in der benachbarten Spalte des "ci´s" ("ci.Offset(0,1)") steht, in die Spalte "AK" in die entsprechende Zeile im "wksÜbersicht" übertragen werden. Im Moment wird nur der erste Wert in Spalte ci.Offset(0,1) übertragen und das in alle Zeilen von AK.
Hier der Code:
Sub Qualification()
Dim wksÜbersicht As Worksheet, wksQualificationLevel As Worksheet
Dim ci As Range, iz As Long
Dim iPnID As Integer
Pfad = "P:\500_Production\Production_Capacity\Competence_neu\ArchivXWB"
On Error Resume Next
Kill Pfad & "\" & Format(Now, "yymmdd_hh-mm-ss") & ".XLSM"
ActiveWorkbook.SaveCopyAs Filename:=Pfad & "\" & Format(Now, "yymmdd_hh-mm-ss") & ".XLSM"
Set wksÜbersicht = Sheets("Übersicht")
Set wksQualificationLevel = Sheets("QualificationLevel")
iz = wksQualificationLevel.Range("A" & Rows.Count).End(xlUp).Row
For Each ci In wksQualificationLevel.Range("A2:A" & iz).Cells
iPnID = Application.Match(ci, wksÜbersicht.Range("A", 0))
Do
wksÜbersicht.Cells(iPnID, "AK") = ci.Offset(0, 1)
iPnID = iPnID + 1
Loop Until iPnID = ci
Next
End Sub
Anzeige