Zuallererst möchte ich gerne sagen, dass ich kein VBA Profi bin :)
Ich beschäftige mich gerade an einem Makro was schon fertig ist aber ich gerne an dem Code bzw. Makro ändern möchte.
Ich versuche mal kurz zu erklären was das Makro durchführt.
Aktuell: Wenn man das Makro durchführt, kommt ein Inputbox wo du eine Beliebige Zahl eingibst und dann wird eine bestimmte Zahl was vorher jedes mal neu bestimmt wird durch den Zahl was man in den Inputbox eingibst geteilt und anschließend ausgedruckt.
Beispiel:
Gesamt zahl= 100
eingegebn Zahl = 25
Druck Ergebnis:
Blatt 1 = PERSON1 25 Zahlen
Blatt 2 = PERSON2 25 Zahlen
Blatt 3 = PERSON3 25 Zahlen
Blatt 4 = PERSON4 25 Zahlen
das ist der Code:
Range("G1").Select
ActiveCell.Formulaxxxxxx = "=SUBTOTAL(109,R[2]C:R[9999]C)"
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Menge = InputBox("Zahl eingeben" & vbCrLf & "Zum Drucken OK wählen", "Drucken", 25)
If Menge = "" Then
GoTo EndPrint
Jetzt will ich es so ändern das wenn ich 25 eingebe jede Person 25 Zahlen bekommt sondern selber bestimme wie viel Zahlen eine Person bekommt.
Vorstellung:
Gesamt Zahl = 100
Blatt 1 = PERSON1 50 Zahlen
Blatt 2 = PERSON2 10 Zahlen
Blatt 3 = PERSON3 15 Zahlen
Blatt 4 = PERSON4 25 Zahlen