VBA - Range2Cells

Hallöchen,

ich bin’s mal wieder :wink:

Gibt es die Möglichkeit Range in Cells umzuwandeln?

Ich meine jetzt nicht Range(Cells(1,1),Cells(2,2))!

Mein Anwender soll eine Spalte vorgeben („P“) und vba soll anhand einer for-Anweisung diese Spalte weiterverarbeiten.

Ich hoffe ich habe mich gut ausgedrückt?

LG CherryDip

Hallo CherryDip,

Gibt es die Möglichkeit Range in Cells umzuwandeln?

Ich meine jetzt nicht Range(Cells(1,1),Cells(2,2))!

sondern?

Mein Anwender soll eine Spalte vorgeben („P“) und vba soll
anhand einer for-Anweisung diese Spalte weiterverarbeiten.

Wo/wie wird das „P“ vorgegeben?
Was soll in der Schleife geschehen?

Ich hoffe ich habe mich gut ausgedrückt?

Naja, wenn eine Botschaft nicht verstanden wird, so liegts am Sender oder am Empfänger oder an beiden :smile:

Gruß
Reinhard

LG CherryDip

Hallo Reinhard,

In einem Tabellenblatt exisiteren 2 Listen:
-Range(„A1:Q100“) ’ dieser Bereich kann auch variabel sein

-Range(„R“) ’ ist eine Konstante, die vom Anwender festgelegt wird

Die Spaltenkonstante dient dazu, ab der Spalte die weitere Liste zu generieren! Also ich will einen Zähler auf diese Spaltenkonstante haben.

for i = SpalteR to SpalteR + 19
cells(1, i) = „Überschrift“

next i

LG CD

Als Gott das
rasche Verständnis verteilt hat war ich wohl grad auf’m Klo :smile:

Hallo CD,

In einem Tabellenblatt exisiteren 2 Listen:
-Range(„A1:Q100“) ’ dieser Bereich kann auch variabel sein

was hat das mit Range(„R“) zu tun?

-Range(„R“) ’ ist eine Konstante, die vom Anwender festgelegt
wird

Also ist „R“ der Name eines Zellbereiches? Einspaltig? Mehrspaltig?

Die Spaltenkonstante dient dazu, ab der Spalte die weitere
Liste zu generieren! Also ich will einen Zähler auf diese
Spaltenkonstante haben.

Was für eine Liste? Spaltenkonstante?

Meinst du das so *wild rumrat*

Sub tt()
Dim i As Integer, Spa As Long
Spa = Range(ThisWorkbook.Names("R").RefersTo).Column
For i = Spa To Spa + 19
 Cells(1, i) = "Überschrift"
Next i
End Sub

Gruß
Reinhard

jaja, mein Denken ist weiter als das Schreiben. Ich bitte um Verzeihung…

deine prozedur sieht schon gut aus aber leider gilt „Names“ nicht für Konstanten.

Folgende Konstanten stehen in einem Modul, welches der Anwender auch bearbeiten kann.

Public Const strSpalteStart As String = „R“
Public Const strSpalteEnde As String = „AJ“

Public Const strSpalteTitel As String = „Überschrift“

Möchte erreichen, das strSpalteTitel ab Spalte strSpalteStart bis strSpalteEnde in der Zeile 1 steht.

Gibt es eine andere Lösung? Oder ein Rat Deinerseits, wie ich es ohne Konstanten und trotzdem anwenderfreundlich machen kann? Ich möchte nicht das der ANwender sich durch die Menuleisten ackern muss um Namen zu vergeben!

Hallo CD,

Public Const strSpalteStart As String = „R“
Public Const strSpalteEnde As String = „AJ“
Public Const strSpalteTitel As String = „Überschrift“

Möchte erreichen, das strSpalteTitel ab Spalte strSpalteStart
bis strSpalteEnde in der Zeile 1 steht.

Option Explicit
Public Const strSpalteStart As String = „R“
Public Const strSpalteEnde As String = „AJ“
Public Const strSpalteTitel As String = „Überschrift“

Sub tt()
Range(strSpalteStart & 1 & „:“ & strSpalteEnde & 1) = strSpalteTitel
End Sub

Gibt es eine andere Lösung? Oder ein Rat Deinerseits, wie ich
es ohne Konstanten und trotzdem anwenderfreundlich machen
kann? Ich möchte nicht das der ANwender sich durch die
Menuleisten ackern muss um Namen zu vergeben!

Dafür überblicke ich noch zuwenig was du da bastelst.

Gruß
Reinhard