Office: Unverständliche Variablenverwendung

Der Code

For n = 4 To 56

Cells(1, n).Select

ss = n + 1

ActiveCell.FormulaR1C1 = "=IF(Anwesenheit!R[" & ss & "]C1="""","""",Anwesenheit!R[" & ss & "]C1)"

Next

erzeugt als Eintrag

=WENN(Anwesenheit!$A58="";"";Anwesenheit!$A58)

in der letzten zu ändernden Zelle, obwohl die Variable ss den Wert 57 hat.

In dem Screenshot seht Ihr den Code zusammen mit dem Lokalfenster, in dem man den Wert der Variable 'ss' sieht, die ich eigens zur "Beweisführung" eingeführt habe, statt 'R[" & n+1 & "]' zu verwenden.

Wieso ist das so?

Danke im Voraus für eine Erklärung.

Grüße

ww

P.S. Bin VBA-Anfänger

:)

 

Anfänger hin oder her, wieso lädst du immer Bilder hoch? Damit kann doch kein Mensch was anfangen. Eine Exceldatei macht das Ganze erst interessant.

 

Reicht dir das?
Code:

Wobei ich nicht sicher bin, ob du Cells(1, n) so haben willst, denn es bedeutet Zeile 1, Spalte n. Verweisen tust du aber immer auf die jeweils nächste Zeile der Spalte A im Blatt Anwesenheit.

 

Wenn ich die Datei hochladen wollte, müsste ich sie erst von allen persönlichen sensiblen Daten befreien. Das wäre sehr aufwändig.

Ich will immer auf die Spalte A verweisen, das ist so gewollt.

Ein letztes noch: Wie kann ich einen Code so einfügen, dass man ihn als solchen erkennt?

 

Verstehe. Und dass man deine Datei nachbauen muss, um selber zu testen, ist für dich in Ordnung?

Links von dem Button zum Zitieren befindet sich der Button für die Codetags.

Gern geschehen, jederzeit wieder!

 

Ganz grundsätzlich finde ich es nicht in Ordnung, dass jemand meine Datei nachbauen muss. Nur in diesem Fall hätte ich zuviele Zellen mit Dummy-Namen versehen müssen.

Ich dachte, die Infos, die ich gegeben habe, würden reichen. Wie auch immer Danke für Dein Engagement.

Gute Nacht

ww

 

Hi,
Du sollst ja nicht die gesamte Datei hochladen 5-10 Zeilen würden vermutlich reichen, um das Problem nachvollziehbar zu machen.
Die eigentliche Formel könnte man vermutlich auch so umbauen, dass kein VBA notwendig ist und sie sich Zeilen und Spaltenweise beim kopieren anpasst.

 

Hallo wollowosch,

nach dem 1. Schleifendurchlauf:
- steht der Cursor in Zelle 'D1'
- Variable ss hat den Wert 5
- und die Formel, die in D1 reingeschrieben wird lautet
- =IF(Anwesenheit!R[5]C1="","",Anwesenheit!R[5]C1)
- dabei bedeutet 'R[5]' aus Sicht der aktiven Zelle 'D1'
- 5 Zeilen tiefer!
- und deshalb steht in Zelle 'D1 die Formel:
- =WENN(Anwesenheit!$A6="";"";Anwesenheit!$A6)

Gruß von Luschi
aus klein-Paris

 

Danke, Luschi,

jetzt habe ich es verstanden.

Ein schönes WE

ww