Range mit Variablen bestimmen

Question

Hallo liebe Forenmitglieder,

ich habe folgendes Problem bei dem ich Hilfe benötige.

Ich möchte für einen Kopiervorgang eine Range bestimmen bei dem die Zeilen Variablen sind. Beispielhaft: Range("Ba:Ib"). Dabei sind also die kleingeschriebenen "a" und "b" meine Variablen. WIe setze ich das in VBA für Excel um?

PS: Diese Codezeilen möchte ich verkürzen:

Worksheets("Fragepool").Range("B" & a).Copy Destination:=Worksheets("Profilwahl").Range("B" & b)
Worksheets("Fragepool").Range("C" & a).Copy Destination:=Worksheets("Profilwahl").Range("C" & b)
Worksheets("Fragepool").Range("D" & a).Copy Destination:=Worksheets("Profilwahl").Range("D" & b)
Worksheets("Fragepool").Range("E" & a).Copy Destination:=Worksheets("Profilwahl").Range("E" & b)
Worksheets("Fragepool").Range("F" & a).Copy Destination:=Worksheets("Profilwahl").Range("F" & b)
Worksheets("Fragepool").Range("G" & a).Copy Destination:=Worksheets("Profilwahl").Range("G" & b)
Worksheets("Fragepool").Range("H" & a).Copy Destination:=Worksheets("Profilwahl").Range("H" & b)
Worksheets("Fragepool").Range("I" & a).Copy Destination:=Worksheets("Profilwahl").Range("I" & b)

Vielen Dank im Voraus für eure Hilfe.

Eric

Answer 1

Hallo,

ist so nicht zu testen, aber müsste so gehen

Worksheets("Fragepool").Range("B" & a & ":I" & a).Copy Destination:=Worksheets("Profilwahl").Range("B" & b& ":I" & b)

oder was hast du gemeint

Gruß

Helmut

Answer 2

Hallo Eric,

probiers mal so.
Die Nummern von der Quell- und Zielzeile gibst Du in der jeweiligen InputBox ein.

Option Explicit

Sub test()
Dim a As Long, b As Long
a = Application.InputBox("Bitte Quellzeile eingeben")
b = Application.InputBox("Bitte Zielzeile eingeben")
Worksheets("Fragepool").Range("B" & a & ":I" & a).Copy Worksheets("Profilwahl").Range("B" & b)
End Sub

Gruß
Rainer

Answer 3

Danke Rainer und Helmut,

jetzt klappts wunderbar. Ich hatte einfach Probleme die Anführungszeichen und die & richtig zu setzen.

Gruß Eric