(20.09.2016, 18:14)Käpt schrieb: [ -> ]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. :)
(20.09.2016, 18:32)WillWissen schrieb: [ -> ]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.
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.
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
Hallöchen,
Zitat: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.
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!!!
[
attachment=7106]
... 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
(20.09.2016, 22:19)IchBinIch schrieb: [ -> ]... 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 =)