Hallo zusammen,
ich bin noch relativ frisch dabei bei der VBA programmierung und habe leider ein Problem.
Ich möchte, wenn eine Bedigung in einer Spalte erfüllt ist folgendes tun:
=> Neue Zeile einfügen
=> Die Zeile, in der die Bediung erfüllt ist kopieren
=> und ist diese Zeile einen mit 10 multiplizieren
Die neue Zeile bekomme ich hin, aber den Rest nicht...
Sub Zeilen_einfügen()
'wenn in Spalte G (Material) ein Testwert enthält, dann multipliziere mit 10
Dim loLetzte As Long
Dim loZeile As Long
'letzte benutzte Zelle wird in Spalte A ermittelt
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For loZeile = loLetzte To 1 Step -1
'Wenn Bedingung zutrifft, dann füge eine neue Zeile ein
If Cells(loZeile, 7) = "2119" Or Cells(loZeile, 7) = "2118" Then
Rows(loZeile + 1).Insert Shift:=xlDow
End If
Next loZeile
End Sub
VG
Maurice
|