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
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
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
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).
(21.09.2016, 09:45)IchBinIch schrieb: [ -> ]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. =)
(20.09.2016, 16:28)freeloader1986 schrieb: [ -> ]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.
Zitat: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
(21.09.2016, 11:00)IchBinIch schrieb: [ -> ]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
(21.09.2016, 11:24)freeloader1986 schrieb: [ -> ]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.
Zitat: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.
(21.09.2016, 11:41)IchBinIch schrieb: [ -> ]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 ... =)