Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Sina1982 vom 18.08.2021, 16:40 Options

Excel 07 Range Befehl Anzahl von Zellen festlegen

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

Antwort schreiben

Antwort 1 von Sina1982 vom 18.08.2021, 19:12 Options

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

Antwort 2 von nighty vom 18.08.2021, 19:56 Options

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

Antwort 3 von nighty vom 18.08.2021, 19:58 OptionsLösung

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

Antwort 4 von Sina1982 vom 19.08.2021, 09:29 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken