Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Wenn in Zelle best. Wort dann andere Zelle "x"
#11
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
Antworten Top
#12
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
Antworten Top
#13
Hallo,

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

Gruss Johann
Antworten Top
#14
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste