Ich suche eine VBA Lösung, die in der aktiven Tabelle, in B3:B15, wahlwiese zufällige Operatoren, Plus oder Minus, setzt
Wäre schöne, wenn jemand eine Lösung hat.
Gruß, Dieter(Drummer)
=Wahl(Zufallsbereich(1;2);1;-1)
=ZUFALLSBEREICH(0;1)*2-1
das gibt dir zufällig die Zahl 1 oder -1 aus, welches du dann als Faktor in den weiteren Berechnungen verwenden kannst.=Wahl(Zufallsbereich(1;2);"+";"-")
With Range("B3:B15")
.FormulaLocal = "=Wahl(Zufallsbereich(1;2);""+"";""-"")"
.Formula = .Value
End with
Gruß DanielSub OperatorPlusMinus()
Range("B3").Select
ActiveCell.FormulaR1C1 = "=CHOOSE(RANDBETWEEN(1,2),""+"",""-"")"
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:B15"), Type:=xlFillDefault
Range("B3:B15").Select
Range("A2").Select
Range("B3:B15").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Sub Marker()
Dim rngSelect As Range
On Error Resume Next
ActiveSheet.Select
Set rngSelect = Application.InputBox _
(Prompt:="Zellbereich markieren.", Type:=8)
.Formulalocal = "=Wahl(Zufallsbereich(1;2);""+"";""-"")"
.formula = .Value
End Sub
Set rngSelect = Application.Inputbox(...)
With rngSelect
.FormulaLocal = "=...."
end with
oderwith Application.Inputbox(...)
.FormulaLocal = "=..."
End with
Gruß DanielPrivate Sub Marker()
Dim rngSelect As Range
On Error Resume Next
ActiveSheet.Select
With Application.InputBox _
(Prompt:="Zellbereich markieren.", Type:=8)
.Formulalocal = "=Wahl(Zufallsbereich(1;2);""+"";""-"")"
.formula = .Value
End With
End Sub
Sub machen()
Range("b3:b15").FormulaLocal = "=Wahl(Zufallsbereich(1;2);"" + "";"" - "")"
Range("b3:b15").Value = Range("b3:b15").Value
End Sub
Gruß,