Ich habe ein kleines Excel erstellt, was einem bei der Charakterplanung helfen soll. Der Benutzer kann Name, Rasse und Klasse aussuchen und sieht, wieviele Punkte noch übrig bleiben und die Fähigkeiten. Auf einer Übersichtsseite sieht man dann alles nochmal zusammengefasst (also alle Charaktere) und welche Fähigkeiten in der Party vorhanden sind und welche nicht.
Um die Möglichkeit nutzen zu können, eine Party zusammenzufügen, müssen Makros aktiviert werden. Am Ende dieses Postings seht ihr das harmlose Makro - es richtet keinen Schaden an!
Vorschläge sind jederzeit willkommen, ich bau auch gerne noch Wünsche von euch ein!
Code: Alles auswählen
Sub Create()
Worksheets("Character Generator").Activate
Slot = Range("C4").Value + 1
' Name / Race / Class
Worksheets("Party").Cells(Slot, 2).Value = Range("B1").Value
Race = Range("C2").Value + 1
Worksheets("Party").Cells(Slot, 3).Value = Worksheets("Bonusses").Cells(Race, 2).Value
Class = Range("C3").Value + 14
Worksheets("Party").Cells(Slot, 4).Value = Worksheets("Bonusses").Cells(Class, 2).Value
' Attributes
Worksheets("Party").Cells(Slot, 5).Value = Range("B7").Value
Worksheets("Party").Cells(Slot, 6).Value = Range("B8").Value
Worksheets("Party").Cells(Slot, 7).Value = Range("B9").Value
Worksheets("Party").Cells(Slot, 8).Value = Range("B10").Value
Worksheets("Party").Cells(Slot, 9).Value = Range("B11").Value
Worksheets("Party").Cells(Slot, 10).Value = Range("B12").Value
Worksheets("Party").Cells(Slot, 11).Value = Range("B13").Value
Worksheets("Party").Cells(Slot, 12).Value = Range("D16").Value
' Abilities
Worksheets("Party").Cells(Slot, 13).Value = Range("B18").Value
Worksheets("Party").Cells(Slot, 14).Value = Range("B19").Value
Worksheets("Party").Cells(Slot, 15).Value = Range("B20").Value
Worksheets("Party").Cells(Slot, 16).Value = Range("B21").Value
Worksheets("Party").Cells(Slot, 17).Value = Range("B22").Value
Worksheets("Party").Cells(Slot, 18).Value = Range("B23").Value
Worksheets("Party").Cells(Slot, 19).Value = Range("B24").Value
End Sub
