Guten Tag,
ich möchte anhand einer Laufvariable k eine Tabelle erzeugen. Nun sollen aber in den Zellen statt lediglich k auch noch Text stehen. Und zwar wie folgt:
1 x down
2 x down
3 x down
etc.
und in der k. Zeile soll demnach k x down stehen.
Die Zellenwerte werden via
cells(k,1)=…
übergeben.
Kann mir bitte einer sagen wie ich den Befehl konstruiren kann oder wie ich eine andere Lösung finden kann.
Vielen Dank,
Rafael
Grüezi rafa
ich möchte anhand einer Laufvariable k eine Tabelle erzeugen.
Nun sollen aber in den Zellen statt lediglich k auch noch Text
stehen. Und zwar wie folgt:
1 x down
2 x down
3 x down
etc.
und in der k. Zeile soll demnach k x down stehen.
Die Zellenwerte werden via
cells(k,1)=…
übergeben.
Kann mir bitte einer sagen wie ich den Befehl konstruiren kann
oder wie ich eine andere Lösung finden kann.
Mit sauberer Deklarierung der Variablen und gleichzeitigem Rechtsbündig setzen der Zellwerte kann das wie folgt aussehen:
Dim k As Long
For k = 1 To 10 'Endwert anpassen
With Cells(k, 1)
.Value = k & " x down"
.HorizontalAlignment = xlRight
End With
Next k
–
Mit freundlichen Grüssen
Thomas Ramel