Spalte einfügen ab ActiveCell.

Bild

Betrifft: Spalte einfügen ab ActiveCell.
von: ewald
Geschrieben am: 31.10.2003 10:13:14

Hallo zusammen,

Mein Problem: Im folgenden Code wird die Spalte A
der Tabelle1 in Tabelle2 ab X14 eingefügt.
Nun möchte ich, dass eingefügt wird ab ActiveCell in
Spalte X.


Sub test()
Dim z As Long
Worksheets("Tabelle1").Activate
With Worksheets("Tabelle10")
LaR = Range("a65536").End(xlUp).Row
.Range("x14:x" & L + 10).Value = Range("a4:a" & LaR).Value
End With
End Sub


Ist das machbar?

Vielen Dank.

Grüße
Bild


Betrifft: AW: Spalte einfügen ab ActiveCell.
von: Andreas Walter
Geschrieben am: 31.10.2003 10:34:56

Wenn ich es richtig verstehe,...
Und ich habe es nicht getestet...


Sub test()
Dim z As Long
Worksheets("Tabelle1").Activate
With Worksheets("Tabelle10")
LaR = Range("a65536").End(xlUp).Row
.Range("x"      & ActiveCell.Row &     ":x" & L + 10).Value = Range("a4:a" & LaR).Value
End With
End Sub


Aber was ist "L" ???
Ggf. muss "L+10" verändert werden


Bild


Betrifft: AW: Spalte einfügen ab ActiveCell.
von: WernerB.
Geschrieben am: 31.10.2003 10:49:31

Hallo Ewald,

was hältst Du hiervon:


Option Explicit

Sub Ewald()
Dim laR As Long, acR As Long, z As Long
    Application.ScreenUpdating = False
    Worksheets("Tabelle10").Activate
    With Worksheets("Tabelle1")
      laR = .Cells(Rows.Count, 1).End(xlUp).Row
      acR = ActiveCell.Row
      z = acR + laR - 4
      Range("X" & acR & ":X" & z).Value = .Range("A4:A" & laR).Value
    End With
    Worksheets("Tabelle1").Activate
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: Vielen Dank
von: ewald
Geschrieben am: 31.10.2003 11:49:45

Hallo zusammen,

super, funktioniert wunderbar.

Vielen,vielen Dank.

Grüße


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Spalte einfügen ab ActiveCell."