Ich habe in den Zellen C18 bis C37 fortlaufend Formeln drinnen stehen
C18 : "=Eingabe.xls!Menge1"
C19 : "=Eingabe.xls!Menge2"
...
C37 : "=Eingabe.xls!Menge20"
Nun soll jenachdem ob der Wert
Wahl entweder Verkauf oder Gutschrift ist *-1 genommen wird
Ich mache es jetzt für alle 20 Zeilen einzeln und das dann zweimal.. geht das auch einfacher?
Sub Test()
Dim Wahl As String
If Wahl = "Barverkauf" Then
Range("C18").Select
ActiveCell.FormulaR1C1 = "=Eingabe.xls!Menge1"
Range("C19").Select
ActiveCell.FormulaR1C1 = "=Eingabe.xls!Menge2"
' und so weiter
ElseIf Wahl = "Gutschrift" Then
Range("C18").Select
ActiveCell.FormulaR1C1 = "=Eingabe.xls!Menge1*-1"
Range("C19").Select
ActiveCell.FormulaR1C1 = "=Eingabe.xls!Menge2*-1"
' und so weiter
End Sub
Cu TObi