Objekt und Text einer Zelle als Wert übergeben

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

Ich schreibe in VBA :wink:

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

  • MVP für MS-Excel -