Zellen mit bestimmten Wert addieren
14.12.2004 18:46:14
Rene
Es ist immer wieder eine Freude hier zu sein und anregungen zu erhalten.Jetzt zu meinen Problemen die ich habe.
1.Ich habe eine UserForm mit einer TextBox in die TextBox kommt eine Zahl mit 3Stellen hinter dem Komma (14,000)diese wird in die Zelle "G7" übertragen das geht auch alles.Nun soll sich aber jede zweite Zelle um einen Wert von 0,05 erhöhen(z.B.14,000->14,050->14,100->14,150)das ganze soll bis zur Zeile "G85" gehen.Dieses würde auch gehen aber bestimmt einfacher als mein Macro.Hier mal ein Auszug von:
Sub funzig_plus()
Dim i As Single
Const Faktor As Single = "0,05"
If Sheets("Liste").Activate = True Then
i = Range("G7").Value
i = i + Faktor
Range("G9").Value = i
i = Range("G9").Value
i = i + Faktor
Range("G11").Value = i
End If
End Sub
Das ganze würde bis zur Zeile 85 Gehen!Dieses würde bestimmt einfacher laufen nun soll in die freien Zellen der jeweilge obere Wert genommen werden,es müßte dann so aussehen:
14,000
14,000
14,050
14,050
14,100
14,100
...... und immer so weiter bis zur Zeile 86.
2. Wenn ich nun eine oder mehrere (die Reihenfolge ist verschieden)Zellen löschen muß müßte der Wert immer wieder gleich aussehen also wenn ich G7 lösche muß G8 und G9 doppelt sein wenn ich nun G10-G14 lösche darf es erst bei G15 weiter gehen. Da ich leider erst mit VBA angefangen habe komme ich leider nicht weiter ich hoffe es gibt eine Möglichkeit diese Sache umzusetzen.Falls ich mich nicht verständlichgenug ausgedrückt habe würde ich versuchen eine BeispielTabelle hochzuladen.Ich hoffe es kann mir einer weiterhelfen.Danke schon mal im voraus.
mfg Rene