ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
Sub nochmal()
Dim Wb As Workbook
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim lngRowLast As Long
Dim rngQuellbereich As Range
Dim rngZielZelleEins As Range
Dim rngZielBereich As Range
Set Wb = ThisWorkbook
Set wsQuelle = Worksheets("Abst_FN")
Set wsZiel = Worksheets("Abstammungen")
Set rngQuellbereich = wsQuelle.Range("A3:A73")
MsgBox "zu kopierende Werte in " & rngQuellbereich.Address(external:=True)
lngRowLast = wsZiel.Cells(Rows.Count, 2).End(xlUp).Row
MsgBox "letzte Zeile mit Wert in ""B"" der Zieltabelle: " & lngRowLast
Set rngZielZelleEins = wsZiel.Cells(lngRowLast + 1, 1)
MsgBox "ZielzelleLinks: " & rngZielZelleEins.Address(external:=True)
Set rngZielBereich = rngZielZelleEins.Resize(1, 71)
MsgBox "Zielbereich: " & rngZielBereich.Address(external:=True)
rngZielBereich = Application.WorksheetFunction.Transpose(rngQuellbereich)
End Sub
Gruß Gerd