Einzelnen Beitrag anzeigen
Alt 11.07.2018, 09:38   #10
Beverly
MOF Guru
MOF Guru
Standard

Hi,

du brauchst doch nicht die Zahl in einer MsgBox anzeigen zu lassen und sie bei der nächsten Zelle in eine InputBox eintragen - definiere einfach eine Variable außerhalb der Makros, lies zuerst die Farbe der aktiven Zelle (aus der die Farbe übernommen wird) und übergib den Wert an das nächste Makro zum formatieren der Zielzelle:

Code:

Option Explicit
Dim lngFarbe As Long

Sub Startfarbe()
    lngFarbe = ActiveCell.Interior.Color
End Sub

Sub Ziel()
    ActiveCell.Interior.Color = lngFarbe
End Sub

GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten