EXCEL VBA Farbcode Durchstreichen MSG BOX

[IchBinIch]

Hallo Christoph,

Danke für Deine PNs.
Da es in einem Forum aber auch darum geht, anderen Ratsuchenden zu helfen, bitte ich Dich Deine Probleme noch einmal hier zu schildern.
Eventuell hilft Deine Fragestellung später auch einmal anderen. Im übrigen kann ich Dir nicht garantieren, dass ich für all Deine "Probleme"
eine Lösung parat habe. Ich stecke selbst noch in den "VBA-Kinderschuhen" :32:.

Gruß
Ich

[IchBinIch]

Hallo Christoph,

nochmals Danke für Deine PN.
Bitte lass uns das hier machen. Ich habe mir jetzt mehrfach Deinen Eingangs-Thread durchgelesen und sehe nicht,
welches Problem noch nicht gelöst ist.
Warum ich das ganze hier machen will ist auch einfach erklärt. Ich habe einfach keine Lust in meinem Posteingang
in verschiedenen Nachrichten hin und her zu springen :32:.

Also nichts für Ungut.  :21:

Gruß

Ich

[IchBinIch]

Doch eine Sache habe ich noch gefunden. Die Geschichte mit dem Nachfolgeformular.

Das wäre dann hiermit "erschlagen":

Sub Einfärben()
Dim z As Long
Dim zm As Long

With Tabelle1
    zm = .Cells(Rows.Count, 1).End(xlUp).Row
        For z = 5 To zm
            If .Range("H" & z).Value = "X" Then
                Datum = InputBox("Geben Sie ein Datum ein:  (TT.MM.JJJJ)")
                .Range("I" & z).Value = Datum
                Ersatz = InputBox("Durch welches Formular wird das Formular ersetzt?")
                .Range("J" & z).Value = Ersatz
                .Range("A" & z, "G" & z).Interior.Color = vbRed
                .Range("A" & z, "G" & z).Font.Color = vbWhite
                .Range("A" & z, "G" & z).Font.Strikethrough = True
                ElseIf .Range("G" & z).Value = "ausgelaufen" Then
                    .Range("A" & z, "G" & z).Interior.Color = vbRed
                Else
                    .Range("A" & z).Interior.Color = vbGreen
                    .Range("B" & z).Interior.Color = vbGreen
                    .Range("G" & z).Interior.Color = vbGreen
                
            End If
    Next z
End With

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 12 - mit VBAHTML 12.6.0

[Käpt'n Blaubär]

Hallo,

... auch ich habe, schon gar nicht nach diesem Deinen Verhalten, Lust auf PN's usw.

Entweder es passiert hier im Forum, oder es passiert nichts (jedenfalls, was mich angeht).

[freeloader1986]

Doch eine Sache habe ich noch gefunden. Die Geschichte mit dem Nachfolgeformular.

Das wäre dann hiermit "erschlagen":

ja die eine Option passt.

Aber mach mal folgendes: einmal laufen lassen ....  dann ....

Füllung komplett entfernen -  nochmal den Button klicken.

> keine funktion


ob "aktiv" oder "ausgelaufen" soll ja durch das Makro ermittelt werden. aktuell habe ich das mit einer wenn funktion gelöst, aber wäre natürlich besser, wenn der Wert direkt angezeigt werden würde.  =)

[IchBinIch]

Hallo

Folgende Datei soll folgendes können. Hab mich mehrfach an VBA versucht, aber hab es jetzt aufgegeben.

In Spalte A wird von Hand eine Formularnummer eingetragen.

Sobald eine neue Version vorhanden ist, füge ich eine Zeile ein und vergebe den Namen doppelt. Es Ändert sich dann in Spalte B die Version aufsteigend 1,2,3 (wird ebenfalls von Hand eingegeben).

Erste VBA Funktion: Die alte Version, soll wie in Zeile 4 und 5 zu sehen rot eingefärbt werden, sodass nur noch die aktuelle Version (Zeile6) grün ist.

nächstes Beispiel Zeile 10 bis 16 (10 bis 15 rot) 16 aktuelle Version, also grün.

Gibt es nur eine Version (z.B. Zeile 6,7,8,9) ebenfalls grün.

grün ist immer nur Spalte A, B, G.
rot wird Spalte A bis G eingefärbt

Nächster Punkt: Zeile 19

wird in der Spalte H ein "X" gesetzt (manuell), so soll die jeweilige Zeile DUNKELROT eingefärbt werden, Schrift in weiß und DURCHGESTRICHEN.

Es soll eine MSG Box aufpoppen in der gefragt wird: gültig ab wann?

Datum eingeben - dieses soll dann in der Spalte I automatisch eingetragen werden.

Nächste MSG Box (oder auch alles in einer) Frage: durch welches Formular wird dieses Formular ersetzt? Die Antwort soll in Spalte J eingetragen werden.

Falls möglich, tragt es einfach direkt in die Excel tabelle ein - ich schau es mir dann mal in ruhe an =) bevor ich unqualifizierte Fragen dazu stelle =)

Vielen Vielen Dank im Voraus für Eure Hilfe =)

Diese Funktion soll für die komplette Tabelle verfügbar sein.

ob "aktiv" oder "ausgelaufen" soll ja durch das Makro ermittelt werden.

Hi,

wo stand das denn

Füllung raus nehmen, habe ich getestet mehrfach. Lief bei mir einwandfrei. Nimmst Du aber die Bezeichnung "ausgelaufen" raus, kann es so nicht mehr funktionieren.

Gruß
Ich

[freeloader1986]

Hi,

wo stand das denn

Füllung raus nehmen, habe ich getestet mehrfach. Lief bei mir einwandfrei. Nimmst Du aber die Bezeichnung "ausgelaufen" raus, kann es so nicht mehr funktionieren.

Gruß
Ich

ja ok hast recht =)  das fehlt komplett  =)

also wenn ich hingeh und in einer anderen Zeile das X in der besagten Spalte setzte, dann kommt bei mir keine abfrage ... er will dann immer nur wert in der Zeile 20 überschreiben ... deswegen war meine idee, das ohne Button zu machen, damit sobald ich ein X setze die Zeile erkannt wird und auch in dieser Zeile (also eine spalte weiter nach rechts) die Werte eingetragen werden.

hab die 2013er version ...  der button funktioniert auch irgendwie nur einmal würde ich jetzt behaupten

[freeloader1986]

ja ok hast recht =)  das fehlt komplett  =)

also wenn ich hingeh und in einer anderen Zeile das X in der besagten Spalte setzte, dann kommt bei mir keine abfrage ... er will dann immer nur wert in der Zeile 20 überschreiben ... deswegen war meine idee, das ohne Button zu machen, damit sobald ich ein X setze die Zeile erkannt wird und auch in dieser Zeile (also eine spalte weiter nach rechts) die Werte eingetragen werden.

hab die 2013er version ...  der button funktioniert auch irgendwie nur einmal würde ich jetzt behaupten

also hab eben nochmal geschaut .... wenn der button einmal geklickt wurde und das X in der gleichen zelle rausgelöscht und wieder eingetragen wird, passiert nix.

[IchBinIch]

hab die 2013er version ...  der button funktioniert auch irgendwie nur einmal würde ich jetzt behaupten [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Also geschrieben habe ich das gestern unter Excel 2016.
Hier sitze ich gerade vor Excel 2007 und es läuft einwandfrei.

Anyway.
Gib mir nochmal ein ein wenig Zeit. Ich mache nochmal einen 2. Ansatz.

[freeloader1986]

Also geschrieben habe ich das gestern unter Excel 2016.
Hier sitze ich gerade vor Excel 2007 und es läuft einwandfrei.

Anyway.
Gib mir nochmal ein ein wenig Zeit. Ich mache nochmal einen 2. Ansatz.

ja also ich hab einfach die idee gehabt, die datei so zu sperren, dass man eigentlich nur eine Zelle einfügen kann .... den Namen eingibt und sich der rest alles automatisch einfärbt, die ausgabe aktiv / ausgelaufen eingetragen wird und bei einem X eben in der Spalte daneben dinge eingetragen werden die durch die Box abgefragt werden.

aktuell habe ich es mit bedingter formatierung und wenn formel gelöst.

hätte jetzt auch nachfragen können im forum wie ich die formel variabel gestalte, damit sich dann beim einfügen die formel aktualisert, aber ich möchte ja hin zu vba ... =)