Microsoft Excel

Herbers Excel/VBA-Archiv

kopieren

Betrifft: kopieren von: Herbert Greim
Geschrieben am: 07.08.2014 20:45:49



Hallo zusammen,

habe folgendes Problem, der VBA Code funktioniert aber beim einfügen in die AWH kopiert er eine Spalte weiter als er soll.I3 in der Mo gibt den Datumswert in AWH aus und soll dann in die richtige Spalte in der AWH kopieren.
was ist falsch an dem Code ?

Private Sub copy_Click()
Dim Rng2Copy As Range, Rng2Paste As Range
   Dim aWerte()
   Dim number As Variant
   number = Range("I3")
    
   Set Rng2Copy = Sheets("Mo").Range("AJ9:AJ54")
   Set Rng2Paste = Sheets("AWH").Range("B4:B45").Offset(0, number)
   aWerte() = Rng2Copy
   Rng2Paste = aWerte()


End Sub

Wer kann mir helfen ?

Gruß
Herby

  

Betrifft: AW: kopieren von: Dieter Klemke
Geschrieben am: 07.08.2014 21:00:21

Hallo Herby,

wenn ich das richtig verstanden habe, dann müsstest du anstelle von
Set Rng2Paste = Sheets("AWH").Range("B4:B45").Offset(0, number)
schreiben
Set Rng2Paste = Sheets("AWH").Range("A4:A45").Offset(0, number)
oder
Set Rng2Paste = Sheets("AWH").Range("B4:B45").Offset(0, number-1)

Viele Grüße
Dieter


  

Betrifft: AW: kopieren von: Herbert Greim
Geschrieben am: 08.08.2014 04:45:41

Hallo Dieter,

auf die einfachen Lösungen kommt man nicht !

Vielen Dank funktioniert

Gruß

Herby


 

Beiträge aus den Excel-Beispielen zum Thema "kopieren"