ich steh mal wieder vor einem kleinen Problem und würde euch bitten mir mal wieder unter die Arme zu greifen.
Bisher habe ich folgendes Makro :
Sub Fiktive_Bezeichnung()
Dim Zelle As Range
Sheets("STa").Select
For Each Zelle In Range(Cells(1, 2), Cells(Range("B10000").End(xlUp).Row, 1))
If Zelle.Value = "6201" Then Zelle.Offset(0, 3).Value = "Abgabe01"
If Zelle.Value = "6301" Then Zelle.Offset(0, 3).Value = "Abgabe02"
Next Zelle
End Sub
Welches auch gut funktioniert.Nun soll ich noch zusätzlich etwas einfügen und zwar :
Wenn in einer Zelle in Spalte B ein Zahlenwert ist und in Spalte C ein Wert kleiner/gleich 50 steht, dann muss in Spalte E der Wert Abgabe03 erscheinen.
Sollte jedoch in einer Zelle in Spalte B ein Text oder gar nichts stehen, dann soll nichts geändert werden.
Und da hört es nämlich bei mir mit den Makrokenntnissen auf.... :-(
Im Voraus vielen Dank schon mal.
Viele Grüße
Toumas