Hallo und einen schönen Feiertag,
habe folgendes Problem
Cells.Find(TextBoxb4.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell(1, 5) = ActiveCell(1, 5) + Me.TextBoxb1.Value
ActiveCell(1, 4) = ActiveCell(1, 4) - Me.TextBoxb1.Value
If Me.OptionButton5.Value = True Then ActiveCell(1, 2) = "RW"
ActiveCell(1, 2).Interior.ColorIndex = 53
ActiveCell(1, 2).Selection.Font.ColorIndex = 2 'bleibt hier mit Fehler stehen
Könnt Ihr mir mal helfen?
Danke und frohe Ostern aus Thüringen
Günter