Boards @ MM-World

Verfasst: **Sa 30.10.2004 - 15:22**

Hallo erstmal!

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

Verfasst: **Sa 30.10.2004 - 15:29**

1. Gibts sowas schon

2. Find ich beide Programme bzw Tabellen eher nutzlos, bzw für mich unbrauchbar. Wie viele Punkte übrig bleiben steht bereits im Manual und eine Auflistung welche Fähigkeiten in meiner Gruppe "fehlen" brauch ich nicht, dafür funktioniert mein Hirn noch zu gut

Verfasst: **Sa 30.10.2004 - 16:28**

Wo gibt's das?

Boards @ MM-World

Excel zur Charakterplanung

Excel zur Charakterplanung