Microsoft Excel

Herbers Excel/VBA-Archiv

Range Variable

Betrifft: Range Variable von: Manuela
Geschrieben am: 29.10.2012 08:49:55

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

  

Betrifft: AW: Range Variable von: hary
Geschrieben am: 29.10.2012 08:55:04

Hallo
Versuchs so.

Range(Bereich).Copy

gruss hary


  

Betrifft: AW: Range Variable von: Beverly
Geschrieben am: 29.10.2012 08:57:13

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

GrußformelBeverly's Excel - Inn


  

Betrifft: Danke! von: Manuela
Geschrieben am: 29.10.2012 09:06:47

Danke Euch beiden! :-)
Manchmal kann es so einfach sein... hehe

LG,
Manu


  

Betrifft: Hab' doch doch noch ne Frage.. von: Manuela
Geschrieben am: 29.10.2012 12:24:07


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


  

Betrifft: AW: Hab' doch doch noch ne Frage.. von: Rudi Maintaire
Geschrieben am: 29.10.2012 12:37:08

Hallo,
Range("L" & BereichListe).Select

Gruß
Rudi


  

Betrifft: AW: Hab' doch doch noch ne Frage.. von: hary
Geschrieben am: 29.10.2012 12:38:51

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


  

Betrifft: AW: oder einfach von: hary
Geschrieben am: 29.10.2012 12:43:40

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


  

Betrifft: Vielen Dank! von: Manuela
Geschrieben am: 29.10.2012 15:11:19

Danke Euch beiden :-)

LG


 

Beiträge aus den Excel-Beispielen zum Thema "Range Variable"