AW: kopierte Zeile in nächste freie Zeile einfügen
26.02.2014 22:46:32
fcs
Hallo Joerg,
etwa wie folgt
Gruß
Franz
Sub K2_Q2_nach_Tabelle3()
Dim rngCopy As Range, rngLetzte As Range
Dim SpalteZ As Long, ZeileN As Long
If MsgBox("K2:Q2 nach Tabelle3 kopieren?", vbQuestion + vbOKCancel, _
"K2:Q2 K O P I E R E N") = vbCancel Then Exit Sub
Set rngCopy = Worksheets("Tabelle2").Range("K2:Q2")
With ActiveWorkbook.Worksheets("Tabelle3")
SpalteZ = 1 'Spalte in der K2 eingefügt werden soll 1 = A, 2 = B usw.
ZeileN = 2 '1. Zeile in der kopierte Werte einfügt werden sollen
'letzte benutzte Zelle ermitteln
Set rngLetzte = .Range(.Columns(SpalteZ), .Columns(SpalteZ + rngCopy.Columns.Count - 1)) _
.Find(What:="*", After:=.Cells(1, SpalteZ), LookIn:=xlFormulas, lookat:=xlWhole, _
searchorder:=xlByRows, searchdirection:=xlPrevious)
If Not rngLetzte Is Nothing Then
ZeileN = IIf(rngLetzte.Row