Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

paste immer in aktiver Zeile aber immer in Spalt A

Forumthread: paste immer in aktiver Zeile aber immer in Spalt A

paste immer in aktiver Zeile aber immer in Spalt A
25.06.2005 15:50:20
helena
Hallo Zusammnen
kleines Problem, beim kopieren sollte dies in aktiver Zeile aber immer in Splate A beginnen auch wenn aktive Spalte zB. "E"

Sub copy_Datzeile()
Call einblenden_sheetsV2
Sheets("MASTER").Select
Range("A8:AA8").Select
Selection.Copy
Sheets("Arbeit").Select
ActiveSheet.Paste
Call Ausblenden
End Sub

Danke für Hilfe
gruss helena
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: paste immer in aktiver Zeile aber immer in Spa
25.06.2005 17:17:14
GraFri
Hallo
Vielleicht hilft dir folgender Code weiter.


      
Option Explicit
Sub copy_Datzeile()
Dim aktZeile&
  Worksheets("Arbeit").Activate
  aktZeile = ActiveCell.Row
 
Call einblenden_sheetsV2
    
    Sheets("MASTER").Range("A8:AA8").Copy _
    Destination:=Sheets("Arbeit").Range("A" & aktZeile)
 
Call Ausblenden
End Sub
 


Bei weiteren Fragen einfach melden.
mfg, GraFri
Anzeige
AW: paste immer in aktiver Zeile aber immer in Spa
25.06.2005 18:40:09
Klaus
Hallo Helena,
vielleicht meinst du es auch genau umgekehrt:

Sub copy_Datzeile()
Dim Quellbereich As Range, Zielbereich As Range
'ActiveCell.Row entspricht der aktiven Zeile;
'1 entspricht Spalte A; 27 entspricht Spalte AA
Set Quellbereich = Sheets("MASTER").Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 27))
'Zielanfangszelle "A1" an eigenen Bedarf anpassen
Set Zielbereich = Sheets("Arbeit").Range("A1")
Call einblenden_sheetsV2
Quellbereich.Copy Zielbereich
Call Ausblenden
End Sub

Gruß Klaus
Anzeige
AW: paste immer in aktiver Zeile aber immer in Spa
25.06.2005 19:31:15
helena
Es funktioniert wie gewünscht, habe Lösung von GraFri genommen
war für mich besser nachvollziehbar
DANKE
gruss helena
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige