Bitte um Makro Hilfe!
Von Tabelle A sollen die markierte Zeile oder Zeilen in die Tabelle B
übertragen und angehängt werden!
siehe Testmappe
Vielen Dank für die Hilfe
Gruß Gerhard
https://www.herber.de/bbs/user/107420.xls
Sub test()
Dim Rng As Range
If Not ActiveSheet Is Worksheets("A") Then Exit Sub
For Each Rng In Selection.Areas
Range(Rng.EntireRow.Columns(1), Rng.EntireRow.Columns(5)).Copy _
Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next
End Sub
Gruß GerdSub Übertragen()
Selection.EntireRow.Copy Sheets("B").Cells(Sheets("B").Cells(Rows.Count, 1).End(xlUp).Row + 1, _
1)
Sheets("B").Select
Sheets("A").Select
End Sub
Gruß WernerPublic Sub Übertragen()
With Selection.EntireRow
.Copy Sheets("B").Cells(Sheets("B").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
Application.CutCopyMode = False
End Sub
Gruß Werner