Kopieren wenn Daten übereinstimmen
18.11.2015 14:36:39
Manuel
Wäre super wenn ihr mir kurz helfen könntet. Ich versuche mit unten stehenden Makro Daten von einer Spalte in die andere zu übertragen, jedoch nur wenn das Suchkriterium in der Zeile steht. Dies funktioniert soweit auch, allerdings habe ich das Problem, dass die Werte auch in Zeilen eingefügt werden, wo gar kein Suchkriterium steht. Also der Makro lässt keine Leerzeile, wenn er ein Suchkriterium nicht gefunden hat.
Sub Monate_zusammenzählen_zuordnen()
Dim lnglast As Long
Dim lnglast1 As Long
lnglast = Sheets("Upload_Inventory_Hilfstabelle_p").Cells(Rows.Count, 17).End(xlUp).Row
lnglast1 = Sheets("Upload_Inventory_Hilfstabelle_p").Cells(Rows.Count, 12).End(xlUp).Row
For k = 2 To lnglast
Suchkred = Sheets("Upload_Inventory_Hilfstabelle_p").Cells(k, 17).Value
For z = 2 To lnglast
With Sheets("Upload_Inventory_Hilfstabelle_p")
If .Cells(z, 10).Value = Suchkred Then
.Cells(z, 18).Value = Cells(z, 11).Value
'Else
'.Cells(z, 18).Value = "0"
End If
End With
Next z
Next k
End Sub
WIsst ihr wo mein Fehler liegt?
Grüße,
Manuel