Zellfarbe kurz ändern

das könnte jetzt ein bisschen kompliziert werden.
ich schreibe jetzt mal nur das rein was ich machen will und dann was passieren soll:
ich gebe einen wert in spalte f ein und danach wird über ein makro(das ich schon rausgekriegt hab) die spalte f automatisch sortiert.
jetzt soll der neue wert mit dem wert vorher verglichen werden(wobei es nicht passieren wird das der neue wert größer ist)und dann (wahrscheinlich) über eine if-abfrage entschieden werden wenn der neue wert der kleinste wert in spalte f ist dann soll die zellfarbe z.b. grün werden für 1 sek und dann wieder normal werden oder wenn der neue wert halt nur kleiner als der alte wert ist dann z.b. soll die zelle nur kurz gelb werden und dann wieder normal

bisher hab ich viel gesucht aber nich wirklich etwas gefunden
danke für eure hilfe im voraus

 

Hi,

mal als Anregung, da ich nicht weiß, wie und wo du die Vergleichswerte übergibst und wie du ermittelst, welcher Wert der aktuell eingegebene und welcher der Vergleichswert ist: verwende für die kurzzeitige Farbänderung das Ereignis Application.Wait

 

ich dachte vielleicht dass man die werte im vba-code dann variablen übergibt und dann per vba auch vergleicht
bloß dann weiß ich nich mehr wie er die werte finden soll, denn das mit den farbänderungen kommt ja erst nach dem sortieren

 

Hi,

wenn du den Code für das Sortieren und die Farbänderung nacheinenader im selben Makro ablaufen lässt, ist das doch kein Problem, die Vergleichswerte zu übergeben. Falls noch irgendwelche anderen Zwischenschritte erfolgen sollen und du deshalb 2 getrennte Makros verwendest, kannst du die betreffenden Variablen außerhalb der Makros dimensionieren - dann wird ihr Inhalt auch im 2. Makro erkannt.

 

wie kriegt man denn jetzt die zuletzt bearbeitete zelle raus? ich mein da muss es doch ne kürzere form geben als eine ellenlange if-abfrage.

 

ok ich bin mit deiner hilfe jetzt schon weit gekommen, hab jetzt aber ein problem mit den befehlen könntest du mir den code berichtigen
hab hier einen kleinen auszug daraus als beispiel:
Sub Zeile_faerben(Zelle)

If Range("g3") = Zelle Then
Range("d3").Cells.Interior.ColorIndex = 10
Range("d3").Cells.Font.ColorIndex = 2
Application.Wait (Now + TimeValue("0:00:01"))
Range("d3").Cells.Interior.ColorIndex = 1
Range("d3").Cells.Font.ColorIndex = 2

ElseIf Range("g4") = Zelle Then
Range("d4").Cells.Interior.ColorIndex = 46
Range("d4").Cells.Font.ColorIndex = 1
Application.Wait (Now + TimeValue("0:00:01"))
Range("d4").Cells.Interior.ColorIndex = 1
Range("d4").Cells.Font.ColorIndex = 2

ElseIf Range("g5") = Zelle Then
Range("d5").Cells.Interior.ColorIndex = 46
Range("d5").Cells.Font.ColorIndex = 1
Application.Wait (Now + TimeValue("0:00:01"))
Range("d5").Cells.Interior.ColorIndex = 1
Range("d5").Cells.Font.ColorIndex = 2
......
End Sub

 

Hi,

ich weiß leider nicht so richtig, wo das Problem ist.

 

vielleicht sollte ich dir einfach mal die datei hier reinstellen dann kannst dir selbst mal ein bild davon machen
als test hab ich erstmal das tabellenblatt ft1 verändert

 

Hi,

ich habe erst einmal deine If-Abfragen ein wenig vereinfacht, ohne den Code direkt auf seine Richtigkeit geprüft zu haben

Code:

Sub Zelle_wiederfinden(Zelle)
    Dim inZeile As Integer
    For inZeile = 3 To 24
        If Cells(inZeile, "G") = Zelle Then
            Cells(inZeile, "F") = Zelle
            Exit Sub
        End If
    Next inZeile
End Sub

Sub Zeile_faerben(Zelle)
    Dim inZeile As Integer
    For inZeile = 3 To 24
        If Cells(inZeile, "G") = Zelle Then
            Cells(inZeile, "D").Interior.ColorIndex = 46
            Cells(inZeile, "D").Font.ColorIndex = 2
            Application.Wait (Now + TimeValue("0:00:01"))
            Cells(inZeile, "D").Interior.ColorIndex = 1
            Cells(inZeile, "D").Font.ColorIndex = 2
            Exit Sub
        End If
    Next inZeile
End Sub

Sub Zelle_finden_und_sichern(Zelle)
    Dim inZeile As Integer
    Zelle = 0
    For inZeile = 3 To 24
        If Cells(inZeile, "G") < Cells(inZeile, "F") Then
            Zelle = Cells(inZeile, "G")
            Exit Sub
        End If
    Next inZeile
    MsgBox "Zelle = " & Zelle
End Sub

Mir ist dabei aufgefallen, dass du in der Sub Zelle_finden_und_sichern(Zelle) die Spalten G und F miteinander vergleichst. Da die Spalte F aber leer ist, wird der Vergleich immer mit einem negativen Ergebnis enden und die Variable "Zelle" bleibt immer 0.

Der einfachste Weg ist, den Namen in Spalte C auf eine Variable zu schreiben und anschließend zu prüfen, ob der Wert in Spalte G das Minimum ist. Eine andere Möglichkeit wäre zu prüfen, ob der betreffende Name jetzt in Zelle C3 zu finden ist - viele Wege führen nach Rom.

 

das einzige was mir jetzt noch fehlt ist eine funktion, die mir die zuletzt eingegebene zahl aus der spalte g in die variable "zelle" schreibt

 

Hi,

mir ist bis jetzt immer noch nicht klar, was du mit "variable Zelle" meinst. Ich kann auch nicht erkennen, dass du dir die hochgeladene Datei angeschaut hättest. Vielleicht hätte man dann darüber diskutieren können, was du eigentlich meinst.

 

in der zip-datei hat die datei wieder keine endung
sry weis auch nich wo der fehler liegt

 

Hi,

hier noch mal mit der Zusatzendung TXT und mit nur einer Tabelle, da Datei sonst zu groß zum Hochladen ist.

 

thx das wars

 

hab jetzt noch ein kleines problem
unten wo ich die fälle in der if-abfrage stehen hab
die rot markierten zeilen funktionieren nich komischerweise
siehe bild

 

Hi,

da ich deinen jetzigen kompletten Code nicht kenne, wüsste ich nicht, wie ich das testen sollte.

 

hier meine datei zum testen

 

Hi,

dieses Mal habe ich Probleme beim Herunterladen und habe erst einmal eine Mail an den Webmaster geschickt.

 

also muss ich die bedingte formatierung raus nehmen?
aber in spalte D is doch auch ne bed. formatierung und da gibts anscheinend kein problem

für beverly hab ich die datei nochmal hochgeladen