|
Es ist ein relativ simples Makro. Das Makro dient lediglich dazu, mir einen Prozentsatz auszugeben, den ich widerrum auf einzelne Positionen verteilen kann. Da diese Werte sich häufig ändern, würde ich das ganze gerne automatisieren, sodass ich nicht immer das Makro manuell ausführen muss.
-------------------------------
Sub Makro_Werte_verteilen()
'
' Makro_Werte_verteilen Makro
Range("E3").GoalSeek Goal:=0, ChangingCell:=Range("B2")
Range("F3").GoalSeek Goal:=0, ChangingCell:=Range("C2")
Range("G3").GoalSeek Goal:=0, ChangingCell:=Range("D2")
End Sub
---------------------------------
|