Excel 07 Range Befehl Anzahl von Zellen festlegen

Question

Hallo Leute,

habe grade ein Brett vor dem Kopf. Meine Frage: Ich habe 2 Tabellenblätter. Blatt1 und Blatt2.

In Blatt 2 steht in Zelle "A1" = 10. Dieser Wert soll nun in Blatt 1in Spalte A in neun Zellen untereinander auftauchen. Besser wäre es wenn ich die "9" Variabel einstellen könnte (im Excel-Blatt selbst). Habe den Range-Befehl gefunden, aber der gibt mir die 10 auf Blatt1 nur so oft wieder wie ich Range definiert habe( hier also 9 Mal). Hier mein Code:

Private Sub CommandButton1_Click()

Sheets("Blatt2").Range("A1").Copy Destination:=ActiveSheet.Range("A1:A9")
End Sub

Gibt es eine Möglichkeit das "Range" variabel einzustellen??? Dass ich z.B in Excel eine 18 eintippe und auf Blatt1 taucht die 10 18 mal untereinader auf?

Bin um jede Hilfe dankbar.

LG Sina

Answer 1

So...hab jetzt getüfftelt und diese Frage selbst beantwortet ( ganz stolz :-) ): Hier der Code:

Private Sub CommandButton1_Click()

Dim variable As String



variable = Cells(3, 3)


Sheets("Blatt2").Range("A1").Copy Destination:=Sheets("Blatt1").Range("A1:A" & variable)
End Sub

Eine Kleinigkeit habe ich doch noch. Wenn ich weitere Werte in Blatt1 übernehmen will, sollen die neuen die alten nicht überschreiben, sondern direkt weiter darunter erscheinen....jemand eine Idee???

LG Sina

Answer 2

hi all ^^

wie gewuenscht :-)

gruss nighty

Private Sub CommandButton1_Click()
Sheets("Blatt2").Range("A1").Copy Destination:=Sheets("Blatt1").Range("A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 & _
":A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + Cells(3, 3))
End Sub

Answer 3

hi all ^^

besser so :-))

gruss nighty

Private Sub CommandButton1_Click()
Sheets("Blatt2").Range("A1").Copy Destination:=Sheets("Blatt1").Range("A" & Sheets("Blatt1").Cells(Rows.Count, 1).End(xlUp).Row + 1 & _
":A" & Sheets("Blatt1").Cells(Rows.Count, 1).End(xlUp).Row + Cells(3, 3))
End Sub

Answer 4

Jaaaaaaa....vielen Dank! Super Lösung!