in einer Tabelle "Planer" markiere ich eine Zelle. Es existiert weiterhin ein Commandbutton, der mir diese Zelle in ein weiteres Tabellenblatt ("Archiv") in die jeweils letzte Zeile der Spalte A kopiert. Das sieht so aus:
Private Sub CommandButton1_Click()
' Eintrag archivieren
With Selection.Interior
Selection.Copy
End With
Sheets("Archiv").Select
Sheets("Archiv").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Planer").Select
End Sub
Nun sollen noch in dieser Tabelle "Archiv" (Spalte B und C) auch die dazugehörigen Zeilen- und Spaltenüberschriften dieses Werts aus dem Tabellenblatt "Planer" übernommen werden.
Es wäre wirklich sehr nett, wenn mir jemand bei diesem Problem auf die Sprünge helfen könnte :-)
Viele Grüße
Oliver