Zellrahmen in Abhängigkeit der Zellfarbe

Hallo an alle,
Habe schon tagelang gegoogelt, bin aber leider nicht fündig geworden.
In der Tabelle, siehe Screenshot, werden in Spalte B Eingaben gemacht.
In Spalte A generiert sich die Positions-Nummer.
Die Zellen der jeweiligen Zeile, Spalte C bis P, in die zwingend Eingaben gemacht werden sollen, färben sich grau
(bedingte Formatierung).
Ich möchte, daß nach der Eingabe in Spalte B die nicht grauen Zellen der jeweiligen Zeile, Spalten C bis P; ein diagonale Kreuz erhalten,
da in Abhängigkeit zur Bezeichnung (Spalte B) hier keine Eingaben gemacht werden sollen, da dies zu falschen Berechnungen
(Spalten Q und R) führen würde.
Mit bedingter Formatierung ist so was ja leider nicht möglich und meine VBA Kenntnisse reichen leider nur für den
Makrorecorder.
PS habe versucht einen Screenshot eizufügen, hat leider nicht geklappt.
Habe deshalb eine Mappe, in der sich dieser befindet, angehangen.
Die ganze Datei wäre zu groß, ca. 5 MB.
In der Hoffnung, daß mal wieder jemand eine Lösung für mich hat,
vielen Dank und Gruß
Lothar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hary,
sorry, daß ich mich erst Heute auf Dein letztes Posting melde,
aber ich kann nur auf der Arbeit ins Internet. Jobmässig wohne ich zZ. in einer internetfreien Zone.
Vielen Dank für die neue Version.
Habe am Wochenende Deinen Code mal in die Originaldatei eingepflegt. Klappt super, bis auf das Löschen der Eingaben und Kreuze per Makro.Da war Schluss in Zeile
"If Not Intersect(Target,Range(B3:B29)) Is Nothing And Target Then"
Aber Ich vermute das ist mit der letzten Variante behoben.
Weiterhin gab's Probleme bei geschütztem Blatt. Möchte das Blatt schützen, bis auf die auszufüllenden Zellen, weil in anderen Bereichen ja noch Formeln sind.
Hab in Deinen Code noch die Anweisungen "ActiveSheet.Unprotect" und am Ende "ActiveSheet.Protect" eingefügt. Somit klappt auch das.
Was ich nicht lösen konnte ist daß, wenn das Makro mit welchem die Eingaben in eine Access Datenbank geschickt werden, durch ist, die gleiche Fehlermeldung siehe oben kommt.Aber vielleicht ist das ja jetzt aus ausgemerzt. Ich teste es mal nach Feierabend und kann mich allerdings morgen erst wieder melden.
bis dahin
vielen Dank und
viele Grüße Lothar

Private Sub CommandButton7_Click() 'Speichern Application.ScreenUpdating = False Application.Run "AlsPdfSpeichernTB4_RL" Application.Run "DatenübernahmeNachAccessTB4_RL" Application.Run "LöschenTB4_RL_Eingaben" End Sub

Beliebteste Forumthreads (12 Monate)

Zellrahmen in Abhängigkeit der Zellfarbe

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellrahmen in Abhängigkeit der Zellfarbe

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread