Wenn Wert grösser 1 dann...
06.03.2017 07:14:56
Roland
Ich bin neu im Forum und lese mich momentan in VBA ein. Nun stosse ich aber an meine Grenzen und komme hier nicht weiter. In der Spalte E stehen Zahlenwerte. Die gelb Markierten Felder möchte ich immer wenn der Wert grösser 1 ist vom oberen Feld kopieren und einfügen.
Beispiel: E2 wird der Wert 2 gefunden. Kopiere C2 nach C3. Dies soll so durchlaufen von oben nach unten. Am Schluss sollte es so wie beim 2. Bild aussehen.
Hinbekommen habe ich die Abfrage über den Wert grösser 1. Ebenfalls das ich in Spalte F was einfügen (Früchte)kann.
Sub finden2()
Dim i As Integer
For i = 2 To 10
If Cells(i, 5).Value > 1 Then
Cells(i, 6).Value = "Früchte"
End If
Next
End Sub
Für eure Hilfe wäre ich sehr dankbar. Wenn Ihr die Schritte noch auskommentieren könntet wäre super.
Gruss Roland