Hallo Lobby,
Nachdem du in den anderen Foren ausreichend über das Thema Crossposting "informiert" wurdest mach ich mal hier weiter :-)
Dir geht es offenbar nur um simples Kopieren und Einfügen allerdings sollen dabei nur Wert und Schriftfarbe kopiert werden, während z.B. die Hintergrundfarbe unberührt bleibt. So kann man z.B. Werte samt Schriftfarbe aus dem Blauen in den roten Bereich übertragen.
Füge über Einfügen - Modul ein neues Modul ein (z.B. Modul2) und gibt dort diesen Code ein:
Public Kopierbereich As Range
Sub Kopieren()
Set Kopierbereich = Selection
Selection.Copy
End Sub
Sub Einfuegen()
If Not Kopierbereich Is Nothing Then
ActiveCell.PasteSpecial xlPasteValues
For Each c In Kopierbereich.Cells
i = i + 1
Selection.Cells(i).Font.Color = c.Font.Color
Next c
Application.CutCopyMode = False
Kopierbereich.ClearContents
Kopierbereich.Font.ColorIndex = xlAutomatic
End If
End Sub
Du brauchst nun 2 Buttons. Einem weist du das Makro Kopieren zu und dem anderen das Makro Einfuegen.
Ich habe das Makro so konstruiert, dass du die Werte verschieben kannst. Falls du nur Kopieren aber nicht verschieben willst, dann lass die letzten beiden Zeilen "Kopierbereich.clearcontents" und "Kopierbereich.font.colorindex=xlautomatic" einfach weg. (kannst du rauslöschen)
Du kannst auch mehrere Zellen gleichzeitig von A nach B verschieben/kopieren. Probiers aus.
Weihnachtliche Grüße Mr. K.
|