Thema Datum  Von Nutzer Rating
Antwort
25.12.2019 13:59:05 Lobby
NotSolved
25.12.2019 15:39:33 Gast98633
NotSolved
Rot nochmal aktive Zelle
 25.12.2019 15:48:57 Werner
NotSolved
25.12.2019 16:09:53 Gast82480
NotSolved
25.12.2019 17:53:30 Lobby
NotSolved
26.12.2019 00:54:36 Gast20730
NotSolved
26.12.2019 01:07:39 Gast44096
NotSolved
26.12.2019 19:27:48 xlKing
Solved
26.12.2019 20:43:21 Lobby
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
25.12.2019 15:48:57		 Views:
648		 Rating:
     
Antwort:
  Ja
Thema:
nochmal aktive Zelle

Hallo,

so richtig verstanden habe ich es nicht. Ich habe z.B. keine Ahnung was du mit einem Farbcode meinst, bin mal davon ausgegangen du meinst die Zellefarbe.

Public zelle As Range

Public Sub aaa()
Dim zielzelle As Range

Application.DisplayAlerts = False

Set zelle = ActiveCell

On Error Resume Next
Set zielzelle = Application.InputBox("Bitte Zielzelle wählen (Mausklick in Zielzelle).", "Verschieben nach...", Type:=8)
If Not zielzelle Is Nothing Then
    zielzelle.Interior.Color = zelle.Interior.Color
    zelle.Interior.Color = xlNone
End If
On Error GoTo -1
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.12.2019 13:59:05 Lobby
NotSolved
25.12.2019 15:39:33 Gast98633
NotSolved
Rot nochmal aktive Zelle
 25.12.2019 15:48:57 Werner
NotSolved
25.12.2019 16:09:53 Gast82480
NotSolved
25.12.2019 17:53:30 Lobby
NotSolved
26.12.2019 00:54:36 Gast20730
NotSolved
26.12.2019 01:07:39 Gast44096
NotSolved
26.12.2019 19:27:48 xlKing
Solved
26.12.2019 20:43:21 Lobby
NotSolved