Nun läuft VBA-Code richtig rund

Computer: Software & Programmierung Office Software
1

Hallo Reinhard,

nachdem was ich bisher Testen konnte, läuft der Code nun wie geschmiert.

Was Du da noch zusätzlich programmiert hast frage ich erst gar nicht.

Eine Frage hätte ich aber noch. In welcher Zeile hast Du den Wert „Bonus“ und das Wort „Bonus“ angegeben? Ich möchte die nämlich um eine Spalte nach Rechts verrücken. Dann passts auch mit der Optik.

Möchte mich an dieser Stelle nochmals recht herzlich bei dir für deine Hilfe bedanken.

Gruss Frank

P.S. Speicher dir den Code gut ab,denn ich werde wiederkommen…grins

2

Hallo Frank,

nachdem was ich bisher Testen konnte, läuft der Code nun wie
geschmiert.

sehr schön.

Was Du da noch zusätzlich programmiert hast frage ich erst gar
nicht.

Das ist, zumindest im Groben leicht zu erklären.
Du hast eine Tab für ein Spiel. Pro Spiel gibt es da 10 runden, jede Runde bedeutet 7 Spalten.

Pro Runde, also pro 7er Spaltenblock ist obendrüber zu sehen, einige zellen mit zahlen, mit Text wie Bonus, QS usw und auch jeweils ein Kombinationsfeld.

Diese Zuatzcodes dienen dazu daß dieses „Obendrüber“ erstellt wird.
Wenn du also das Kombinationsfeld bezogen auf den 7er Block auf einer anderen Position haben willst mußt du ha im Code was abändern.
Genauso wie für die Bonuszelle.

Eine Frage hätte ich aber noch. In welcher Zeile hast Du den
Wert „Bonus“ und das Wort „Bonus“ angegeben? Ich möchte die
nämlich um eine Spalte nach Rechts verrücken. Dann passts auch
mit der Optik.

Weiß ich nicht. In welcher Zeile steht denn der Bonuswert?
Suche mal im Code, nein nicht in den Zusatzcodes, im anderen, in den
Cells(zeile,spalte) Anweisungen wo da bei zeile diese Zeilennummer des Bonusses (Bonis?) auftaucht.

Da muß man die Spalte ändern. Kriegste es hin?
Wenn nicht, sag Bescheid.

P.S. Speicher dir den Code gut ab,denn ich werde
wiederkommen…grins

Nein. Wenn ich Mappen abspeichern muß um sie hochladen zu können so setze ich beim Namen ein kw davor.
kw=kann weg.
Und wenn ich den Ordner aufräume fliegt alles mit kw vorne raus.
Sorry, ist irgendwie deine Sache dir den Code und die datei zu merken *find*

Gruß
Reinhard

3

Hallo Reinhard,

der Bonus steht in der zweiten und dritten Zeile der vierten Spalte,heisst I2,P2 usw.

Ich habe das nun gefunden und meine,das wären die Zeilen:

.Cells(2, Spa + 3).Value = 100
 .Cells(2, Spa + 3).Font.Bold = True
 .Cells(3, Spa + 3).Value = "Bonus"
 .Cells(3, Spa + 3).Font.Bold = True

Nur was die 100 zu bedeuten haben weiss ich nicht und klappen tuts auch nicht,wenn ich aus der 3 eine 4 mache.

Gruss Frank

4

Hallo Frank,

der Bonus steht in der zweiten und dritten Zeile der vierten
Spalte,heisst I2,P2 usw.

Ich habe das nun gefunden und meine,das wären die Zeilen:

.Cells(2, Spa + 3).Value = 100
.Cells(2, Spa + 3).Font.Bold = True
.Cells(3, Spa + 3).Value = „Bonus“
.Cells(3, Spa + 3).Font.Bold = True

Nur was die 100 zu bedeuten haben weiss ich nicht und klappen
tuts auch nicht,wenn ich aus der 3 eine 4 mache.

du hast den falschen Code erwischt. das ist der Code der wie beschrieben die Obeerhälfte der tabelle ausfüllt.
Und wenn du da aus 3 die 4 machst sthet halt Bonus bzw 100 nicht in I sondern in J untereinander.

Aber schonmal sehr gut daß du diese Codestelle gefunden hast.
Aus lern/CodeVerstehnsgründen.

ich schaue morgen mal in den Code.

Gruß
Reinhard

Gruss Frank