Hallo Zusammen,
ich habe folgendes Problem das für den findigen VBA-Programmierer ein Klacks ist. Und zwar möchte ich folgendes tun:
Es soll ein VBA-Programm erstellt werden, dass automatisch folgende Werte in die Zellen einer Excel-Datei schreibt:
a b c --> summe aus a,b,c muss immer 100% ergeben
42 3 55
41 4 55
40 5 55
39 6 55
38 7 55
37 8 55
36 9 55
35 10 55
34 11 55
33 12 55
32 13 55
31 14 55
30 15 55
c reduziert sich und a steigt um 1, wenn b alle Zahlen von 3-15 durchlaufen hat. Analog zu b reduziert sich a.
(Siehe Datenreihe zum besseren Verständnis)
43 3 54
42 4 54
41 5 54
40 6 54
39 7 54
38 8 54
37 9 54
36 10 54
35 11 54
34 12 54
33 13 54
32 14 54
31 15 54
44 3 53
43 4 53
42 5 53
41 6 53
40 7 53
39 8 53
38 9 53
37 10 53
36 11 53
35 12 53
34 13 53
33 14 53
32 15 53
Hier ist mein Code der leider nicht so will wie ich;)
Private Sub CommandButton1_Click()
For bp = 68 To 30 Step -1
For kr = 30 To 70
Worksheets("Gb").Range("E20") = kr
For re = 3 To 15
Worksheets("Gb").Range("E21") = re
If re >= 3 And re <= 15 Then
bp = bp - 1
End If
Worksheets("Gb").Range("E20") = bp
Next re
If kr >= 30 And kr <= 70 Then
Exit For
End If
Next kr
Next bp
End Sub
Für Eure Hilfe bin ich euch sehr dankbar.
Grüsse Bonaventura
|