Clever-Excel-Forum

Seiten: 1 2

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

Hallo Johann,

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

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

Hallo,

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

Gruss Johann

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

Seiten: 1 2

WergibtmirRat

Kuwer

Johann_41

Kuwer