Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle zurückformatieren | Herbers Excel-Forum


Betrifft: Zelle zurückformatieren von: Karsten
Geschrieben am: 28.01.2010 11:34:54

Hallo,

durch einen Suchvorgang wird bei mir eine bestimmte Zelle gefunden.
Nun gibt es die Möglichkeit, per ensprechenden Makrobefehl z.B. die Hintergrundfarbe dieser Zelle wechseln zu lassen, aus rein optischen Gründen. Nach einer Sekunde möchte ich, dass sich die Zelle in den Urzustand zurückformatiert. Gibt es einen Befehl, der sich die Einstellungen merken kann? Geht so etwas überhaupt?

Danke füpr eure Antworten.

Gruß
Karsten

  

Betrifft: AW: Zelle zurückformatieren von: Hajo_Zi
Geschrieben am: 28.01.2010 11:40:44

Hallo Karsten.

merke Dir die Farbe auf eine Variable bevor Du Sie änderst und mit Ontime rufst Du eine Prozedur auf um die Farbe zurückzustellen. Für das ändern der Farbe hast Du ja schon ein Makro.

GrußformelHomepage


  

Betrifft: AW: Zelle zurückformatieren von: Karsten
Geschrieben am: 28.01.2010 11:53:54

Hallo Hajo,

danke, aber:
Ich weiß nicht, wie man sich die Farbe auf einer Variable merkt und
wie rufe ich sie mit Ontime auf.

Gruß
Karsten


  

Betrifft: AW: Zelle zurückformatieren von: Hajo_Zi
Geschrieben am: 28.01.2010 12:08:58

Hallo Karsten,

die Variante von Rudi ist die einfachere Lösung.

Gruß Hajo


  

Betrifft: AW: Zelle zurückformatieren von: Karsten
Geschrieben am: 28.01.2010 12:13:33

Hallo Hajo,

mag sein. Ich weiß sie nur nicht für meine Zwecke anzupassen.
Die Zelle um die es geht, ist die aktive Zelle.
Mir fehlen da die VBA-Kenntnisse, um es richtig zu machen.

Gruß
Karsten


  

Betrifft: AW: Zelle zurückformatieren von: Hajo_Zi
Geschrieben am: 28.01.2010 12:15:08

Hallo Karsten,

Du hast geschrieben Du suchst was und das hat Rudi in seinem Code schon drin.
Du hattest nicht geschrieben Du wälst eine Zelle aus.

Gruß Hajo


  

Betrifft: AW: Zelle zurückformatieren von: Karsten
Geschrieben am: 28.01.2010 21:13:17


Hallo Hajo,

nun ja, kein Mensch ist perfekt.

Gruß
Karsten


  

Betrifft: AW: Zelle zurückformatieren von: Rudi Maintaire
Geschrieben am: 28.01.2010 11:41:06

Hallo,
etwa so:

Sub tt()
  Dim rFind As Range, iColor As Integer
  Set rFind = Columns(1).Find("x", lookat:=xlWhole, LookIn:=xlValues)
  If Not rFind Is Nothing Then
    iColor = rFind.Interior.ColorIndex
    rFind.Interior.ColorIndex = 3
    Application.Wait Now + TimeSerial(0, 0, 2)
    rFind.Interior.ColorIndex = iColor
  End If
End Sub

Gruß
Rudi


  

Betrifft: AW: Zelle zurückformatieren von: Karsten
Geschrieben am: 28.01.2010 11:51:08

Hallo Rudi,

danke, so ähnlich. Ich hab meine Frage nicht richtig ausgedrückt. Die Zelle ist bereits gefunden und ist die aktive Zelle. Nun kann ich dein Cade aber nicht umschreiben...

Gruß
Karsten


  

Betrifft: AW: Zelle zurückformatieren von: Rudi Maintaire
Geschrieben am: 28.01.2010 12:11:23

Hallo,

  With ActiveCell.Interior
    iColor = .ColorIndex
    .ColorIndex = 3
    Application.Wait Now + TimeSerial(0, 0, 2)
    .ColorIndex = iColor
  End With

Gruß
Rudi


  

Betrifft: AW: Zelle zurückformatieren von: Karsten
Geschrieben am: 28.01.2010 12:15:40

Hallo Rudi,

Allerbesten Dank.

Gruß
Karsten


  

Betrifft: AW: Zelle zurückformatieren von: Karsten
Geschrieben am: 28.01.2010 21:15:42

Hallo Rudi,

nun ist mir doch noch was eingefallen.
Läßt sich die rechts danebenliegende Zelle miteinfärben?

Gruß Karsten