Hallo zusammen,
ich versuche mich gerade an VBA und komme nicht recht weiter.
Ich habe mit Makro aufzeichnen ein Makro erstellt, dass eine von mir markierte Zelle in ein anderes Tabellenblatt kopieren soll:
Sub Projektaufstellungneu()
'
' Projektaufstellungneu Makro
'
'
Selection.Copy
Sheets("Projektaufstellung").Select
Rows(Tabelle3.Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Sheets("Projektliste").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Projektaufstellung").Select
Rows(Tabelle3.Range("A65536").End(xlUp).Row).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Damit die Zelle an das Ende der Tabelle im neuen Tabellenblatt eingefügt wird, wird zunächst das Tabellenende gesucht. Dummerweise wird dann aber die ganze Reihe mit dem Inhalt der kopierten Zelle ausgefüllt. Das liegt ja wahrscheinlich daran, dass ich eine ganze Zeile auswähle. Zusätzlich soll auch die Formatierung bzw. der Rahmen der Zelle übernommen werden, das ist der untere Teil des Codes.
Wie bekomme ich es jetzt hin, dass der Inhalt der Zelle nur in Spalte A ans Tabellenende eingefügt wird und dass die Formatierung im Bereich A:M übernommen wird?
Ich würde mich über eure Hilfe sehr freuen!! |