Wenn in Zelle best. Wort dann andere Zelle "x"

[WergibtmirRat]

Hallo,

Code:

Sub TestMakro()
    Range("B2").Select               'Zelle B2 angewahlt
    ActiveCell.FormulaR1C1 = "100"   'Zahl 100 eingetippt
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "*"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "100"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "*"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "50"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "="
    Range("H2").Select               'Zelle H2 für Formel angewählt
    ActiveCell.FormulaR1C1 = "=SUM(RC[-6]*RC[-4]*RC[-2])" 'Formel = =SUMME(B2*D2*F2)
    Range("H2").Select
End Sub

mal in aller schnelle fabriziert

[Kuwer]

Hallo Johann,

da Du meine Frage nicht beantwortet hast, nehme ich die Clever-Excel-Formel 1:

Code:

Sub Abfrage_x()
  With ActiveSheet
    .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 5).Formula = "=IF(LEFT(A4,7)=""Mindest"",""x"","""")"
  End With
End Sub

[Johann_41]

Hallo,

danke funktioniert so wie es soll, ist es noch möglich das aus den Formeln anschließend Werte werden.

Gruss Johann

[Kuwer]

Hallo Johann,

Code:

Sub Abfrage_x()
  With ActiveSheet
    With .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 5)
      .Formula = "=IF(LEFT(A4,7)=""Mindest"",""x"","""")"
      .Value = .Value
    End With
  End With
End Sub

Gruß Uwe