Notenrechner - vergleichen und farbig hinterlegen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…eines Links als Link der Forumssoftware überlässt, Martin,
und nicht die dafür üblichen HTML-Tags setzt, wie ich es meistens tue, solltest du darauf achten, dass die LinkAdresse mit einem Leerzeichen oder Zeilenumbruch endet, sonst wird das Folgezeichen mit in den Link einbezogen und macht in wertlos: https://www.herber.de/forum/messages/1522206.html
Allerdings wird dieser Link auch nur noch solange fktionieren, wie seit der Erstellung des verlinkten BTs noch keine Woche vergangen ist. Ein ArchivLink fktioniert dagg dauerhaft.
Ansonsten ist das, was du dort und jetzt wieder hier geschrieben hast, relativ belanglos. Hajo ist hier fast von Anfang an zugange, erst als Viel-Frager, später als Viel-AWer und jetzt verteilen sich seine AWen mit normaler Frequenz auf mehrere Foren. Überall ist er schon aus gleichem Grund kritisiert und in einem Forum sogar gesperrt worden — meinst du denn, er wird das nun deinetwegen ändern…? ;->
Immerhin ist er hier lt Mail Counter, also quantitätsmäßig, die unbe-, wenn auch nicht unumstrittene Nr1 mit 1,5 bis doppelt sovielen BTen wie die Nr2. Das schlägt sich natürlich auch in seinem MS-MVP-JahresKonto nieder. Alles klar…? ;-]
🙈 🙉 🙊 Gruß, Luc :-?
Besser informiert mit …

Hi Seline,
so wie ich die Sache verstehe, ist der Bereich (Spalten C bis L bzw. M) für die Noteneingaben eines ganzen Jahres gedacht.
Deine bestehende bedingte Formatierung (in Spalte N) vergleicht ja bereits Werte in N mit denen in Spalte P, so daß sich die Frage darauf reduziert: wie kommen die Werte dort hin?
Ich habe die Spalte N (auf beiden Blättern) auf Spalte P kopiert, die bedingte Formatierung in P gelöscht und einen Button zum Kopieren (der reinen Werte, nicht der Formel) angebracht, wobei die Buttons von beiden Blättern auf das Makro in Modul1 zugreifen:

Option Explicit
Sub LetztenKopieren()
Dim untZeile&
untZeile = Range("M" & Rows.Count).End(xlUp).Row - 1
' -1, damit die "Schnitt-Formel" in der untersten Zelle
' von Spalte P nicht überschrieben wird
Range("N4:N" & untZeile).Copy
Range("P4").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("P" & untZeile).Select
End Sub

Die Buttons drückt man eben, wenn ein Ausdruck erfolgt, dann gibt man laufende Noten ein (und sieht gleich die Änderungen der bedingten Formatierung), druckt endlich nach Ablauf des Monats erneut und betätigt wieder die Buttons...
Simpel, aber vielleicht brauchbar. Die Alternative wäre, statt (nur) der Spalte P eine Tabelle mitzuschleppen, in der die Werte monatsweise gespeichert werden.
Die Datei: https://www.herber.de/bbs/user/109204.xlsm
Schöne Grüße,
Michael
P.S. an Luc:-? die Äffchen sind ja lustig; ich wußte gar nicht, daß die in HTML drin sind... Extra Gruß!

Beliebteste Forumthreads (12 Monate)

Notenrechner - vergleichen und farbig hinterlegen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Notenrechner - vergleichen und farbig hinterlegen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread