Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Range Variable
29.10.2012 08:49:55
Manuela
Guten Morgen,
irgendwie habe ich gerade ein Brett vor dem Kopf und benötige Hilfe. Ich habe mir in Zelle A2 einen Zellenbereich mit Verketten von Sverweisen gebastelt. In meinem Fall steht da jetzt H4:J12 und dieser Bereich soll kopiert werden. Mein Makro möchte aber irgendwie nicht funktionieren... Hat jemand einen Tipp für mich?

Sub DatenAktu()
Dim Bereich As String
Bereich = Range("A2").Value
Range(" & Bereich & ").Copy
end sub

Liebe Grüße,
Manu

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range Variable
29.10.2012 08:55:04
hary
Hallo
Versuchs so.
Range(Bereich).Copy

gruss hary

AW: Range Variable
29.10.2012 08:57:13
Beverly
Hi Manu,
   Dim Bereich As String
Bereich = Range("A2").Value
Range(Bereich).Copy
oder
   Dim rngBereich As Range
Set rngBereich = Range(Range("A2").Value)
rngBereich.Copy
Set rngBereich = Nothing


Danke!
29.10.2012 09:06:47
Manuela
Danke Euch beiden! :-)
Manchmal kann es so einfach sein... hehe
LG,
Manu

Anzeige
Hab' doch doch noch ne Frage..
29.10.2012 12:24:07
Manuela
Hallo,
ich benötige nochmal Hilfe.. :-(
Irgendwie funktioniert meine Variable nicht so wie gewünscht. Hat jemand einen Tipp für mich?

Sub Test()
Dim BereichListe As String
BereichListe = Range("B1").Value 'Hier steht ein Wert per Sverweis
Range("K10:K18").Copy
Range("L & BereichListe & ").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,  _
Transpose:=False
Range("M10:M18").Copy
Range("N & BereichListe & ").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,  _
Transpose:=False
End Sub

LG,
Manu

Anzeige
AW: Hab' doch doch noch ne Frage..
29.10.2012 12:37:08
Rudi
Hallo,
Range("L" & BereichListe).Select
Gruß
Rudi

AW: Hab' doch doch noch ne Frage..
29.10.2012 12:38:51
hary
Hallo
Wenn in B1 eine Zahl rauskommt dann:
Dim BereichListe As Long
BereichListe = Range("B1").Value 'Hier steht ein Wert per Sverweis
Range("K10:K18").Copy
Range("L" & BereichListe).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("M10:M18").Copy
Range("N" & BereichListe).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

gruss hary

Anzeige
AW: oder einfach
29.10.2012 12:43:40
hary
Hallo nochmal
einfach so:
Dim BereichListe As Long
BereichListe = Range("B1").Value 'Hier steht ein Wert per Sverweis
Range("L" & BereichListe).Resize(9, 1).Value = Range("K10:K18").Value
Range("N" & BereichListe).Resize(9, 1).Value = Range("M10:M18").Value

gruss hary

Vielen Dank!
29.10.2012 15:11:19
Manuela
Danke Euch beiden :-)
LG

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige