ich hab da ein kleines Problem mit einer IF Anweisung.
In mehreren Datenblättern stehen immer in der gleichen Splate H Werte von 1 bis 10 drin. Nun möchte ich ein Makro schreiben, die mir immer dann, wenn der Wert kleiner 10 ist bestimmte Zellen dieser Zeile auf ein extra Blatt kopiert.
Als Beispiel ist der Wert in Zeile 16 Splate H < 10, jetzt soll die von Zeile 16 die spalte A,C,D und H in ein neues Blatt kopieren.
Ein problem ist das die Werte zwar immer in der gleichen Spalte stehen aber nicht immer die gleiche Anzahl an Werten vorliegt.
Hier is mal der klägliche Versuch:
For Each sh In ActiveWorkbook.Worksheets
If sh.Visible = True And sh.Name <> "deck" Then
If sh.Cells(40 + i, 6).Value < "10" Then
Sheets("deck").Cells(6 + i, 2).Value = sh.Cells(40 + i,1).Value
i = i + 1
End If
End If
Next
Hoff' Ihr könnt mir da weiter helfen.
Danke und Gruß
Fossi