|
Ah verstehe - Beispiele sind doch immer besser als eintausend Worte. ;)
Option Explicit
Private Sub sucheneinfügen()
Dim rngCell As Excel.Range
Dim WkSh_Q As Worksheet ' Tabellenblatt Quelle / Herkunft
Dim WkSh_Z As Worksheet ' Tabellenblatt Ziel
Set WkSh_Q = Worksheets("Rohdaten") ' <= Namen anpassen
Set WkSh_Z = Worksheets("Tabelle1") ' <= Namen anpassen
With WkSh_Z
Set rngCell = .Cells(.Rows.Count, "A").End(xlUp) 'letzte Zelle mit Inhalt
If rngCell.Value <> "" Then Set rngCell = rngCell.Offset(1) 'eins runter
End With
With WkSh_Q
'Bereich referenzieren (über zwei Zellen)
' * .Cells(1, "C") ... Zelle C1
' * .Cells(.Cells(1, "C").End(xlDown), "N")
' *** .Cells(..., "N") ... Spalte N
' *** .Cells(1, "C").End(xlDown) ... letzte Zelle in Spalte C suchen
Call .Range(.Cells(1, "C"), .Cells(.Cells(1, "C").End(xlDown), "N")).Copy(rngCell)
End With
End Sub
Ich verwende hier einfach die Copy-Methode des Range-Objektes.
Wie du sehen kannst, gehe ich hier davon aus, dass die Rohwerte mindestens zwei Datenzeilen haben.
.Cells(.Cells(1, "C").End(xlDown)
|