EXCEL VBA Farbcode Durchstreichen MSG BOX

[freeloader1986]

2. zu Deinem Problem:

... und dann ? ... Kommt es irgendwann mal zu einer Gegenüberstellung Alt <-> neu ?
Sonst macht das Einfärben ja überhaupt keinen Sinn. Was Alt und was Neu ist, ist
ja auch ohne Farbe unterscheidbar. Beispielsweise kann das dann in der Bezeichnung
der Tabellenreiter eindeutig ausgedrückt werden.

3. zur Klarstellung: Bisher habe ich Deine Datei noch nicht gesehen.

Die aktuelle Version (kommt immer mal eine neue dazu) zeile einfügen, gleicher Namen, version 4 (letzte version) also kommt die Version 5 dazu.

Doll die Version 4 kompllett rot eingefärbt werden und die neueste (die 5) grün werden.

Und wenn die version irgendwann eingestellt wird, setzte ich ein X weiter hinten und die letzte Version wird durchgetrichen.

Schau dir die datei mal an. :)

[freeloader1986]

Hi Freeloader,

brauchst du unbedingt eine Lösung mit VBA? Es würde doch ganz profan die bedingte Formatierung ausreichen. Allerdings will ich mir das erst näher ansehen, wenn ich weiß, was andere Helfer schon geraten haben. Wäre doch vergeudete Zeit, wenn ich nach längerem Nachdenken auf das selbe Ergebnis komme, wie ein anderer. :32:

Ich hätte mal gerne eine vba Lösung gesehn.

Profan mit bedingter Formatierung funktioniert es nicht.  Spätestens beim durchstreichen fängt es an. Denk mit einem Makro ist man da flexibler.  

Bn mir auch nicht sicher,  ob du das mit den ansteigenden Versionsnummer verstanden hast .... das ist mit ein Grund wieso ich mir ohne ein makro die finger wund tippe.

[steve1da]

Hola,

da du es ja doch nicht tust....

http://ms-office-forum.net/forum/showthr...p?t=335687

http://ms-office-forum.net/forum/showthr...p?t=335692

Gruß,
steve1da

[WillWissen]

Hi Steve,

danke. Sehr aufschlussreich.

@Freeloader

Natürlich habe ich das mit den aufsteigenden Versionsnummern verstanden. Da du aber einer Lösung mit bF kategorisch entgegenstehst, kann ich dir nicht helfen - VBA ist nicht meine Welt.

[IchBinIch]

Hallo zusammen,

Nach Studium der Nachbarforen:
Man sagt ja...
"Wer Hilfe will muss freundlich sein" oder so ähnlich :32:
Vielleicht verbrenne ich mir meine Finger

@ freeloader1986
Ich frage trotzdem mal.
Warum steht in Zelle G17 und G18 nicht auch "aktiv"?
Gibt es dafür einen Grund oder ist das nur beim Zusammenstellen der Datei im Eifer des Gefechtes untergangen?

Gruß
Ich

[Jockel]

Hallo zusammen,

Nach Studium der Nachbarforen:
Man sagt ja...
"Wer Hilfe will muss freundlich sein" oder so ähnlich :32:
...

Gruß
Ich

Hallo, ich denke hier http://ms-office-forum.net/forum/showpost.php?p=1762495&postcount=11 oder hier http://ms-office-forum.net/forum/showpost.php?p=1762499&postcount=13
wurde eine Grenze überschritten. Du kannst aber tun und lassen, was du willst. Ich würde mich nicht so beleidigen lassen, nur weil ich auf die Forums-Regeln hinweise...

[Käpt'n Blaubär]

Hallöchen,

Nach Studium der Nachbarforen:
Man sagt ja...
"Wer Hilfe will muss freundlich sein" oder so ähnlich [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
Vielleicht verbrenne ich mir meine Finger [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

boahey, ... der hat es ja richtig drauf, das Motzen.
Ich bin tief beeindruckt.

[IchBinIch]

Na Christoph,

dann zeig mal das Du auch freundlich sein kannst :32:

Für alle, die der Code interessiert:

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

                .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 16 - mit VBAHTML 12.6.0

Oben in der Tabelle findest Du eine "Schaltfläche" "---Testen---" = "Klick mich"

Gruß
Ich

P.S. Für die Zukunft...
sei freundlich!!!


  Hilfe_Ich.xlsm (Größe: 18,82 KB / Downloads: 3)

[IchBinIch]

... und der Ordnung halber...
etwas "aufgeräumter":

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
                With .Range("A" & z, "G" & z)
                    .Interior.Color = vbRed
                    .Font.Color = vbWhite
                    .Font.Strikethrough = True
                End With
                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 16 - mit VBAHTML 12.6.0

Gruß
Ich

[freeloader1986]

... und der Ordnung halber...
etwas "aufgeräumter":

vielen lieben Dank

gibt also doch noch Leute die wirklich helfen wollen und auch können.

PS: ich bin immer nett ... nur nicht wenn ich mir verar**** vorkomme =)