AW: kopieren und einfügen per makro
11.01.2010 23:17:22
Gerd
Halo Rolf,
schauen wir.
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