Schöne Farben - aber nicht in der Farbtabelle

Uwe_Ernst · 1. Mai 2004 um 21:55

Liebe Wissenden,
ich habe eine Excel- Tabelle erhalten (leider geschützt) - in der sehr schöne Pastellfarben verwendet werden. Diese Farben sind aber nicht in der Farbtabelle vorhanden. Wenn ich diese Tabelle in ein anderes Exceldokument kopiere, sind die Farben nicht mehr vorhanden. Stattdessen gegen Farben aus dem normalen Farbfächer ersetzt.
Wie kann ich die Farben retten bzw. selbst erstellen ?
Außerdem ist noch ein anderer Effekt verwendet worden: Die Tabellenumgrenzungsfläche (der gesamte Tabellenbereich, der nicht zur eigentlichen, editierten Tabelle gehört, ist grau und nicht anklickbar.
Wie wird das bloß gemacht ?
Bin schon mächtig gespannt, ob das jemand von Euch weiß. Würde mich freuen.
Vielen Dank schon mal und
freundliche Grüße
Uwe

fds_kmsbgihoihopijh_ce1987 · 2. Mai 2004 um 09:28

zur 2. Teilfrage
Hi,

Hier gibt es in Excel die Möglichkeit, mit Zellen markieren/rechtsklick/Zellen formatieren/Schutz/gesperrt
die zu sperrenden Zellen zu kennzeichnen. Wenn Du dann den Blattschutz einschaltes (extras/Schutz/Blatt schützen) kannst du nur noch in Zellen klicken, die nicht gesperrt wurden. die Graufärbung wird wohl über eine Formatvorlage oder durch dierekte Formatierung umgesetzt worden sein.

A.

Reinhard_fb8cb7 · 2. Mai 2004 um 12:08

zu Teil 1
Hallo Uwe,
wie hast du die Farben kopiert? Hast du
Extras—Optionen–Farbe–Farben kopieren aus
benutzt?
Was bedeutet der Schutz der Tabelle genau, kannst du dort ein neues Tabellenblatt hinzufügen? Wenn ja, erzeuge ein neues Tabellenblatt, aktiviere es, klicke mit rechter Maustaste unten auf den Namen des Blattes, dann mit links auf "Code anzeigen. Dorthinein kopierst du dann den nachfolgenden Makrocode.
Ändere dann die Zeile
With Worksheets(„Tabelle3“)
auf den Namen(Nummer) deines neuen Blattes.
Den Vb-Editor kannst du jetzt schliessen.
In Excel dann Extras–Makro–Makros aufrufen und das Makr „Ausführen“ lassen.
Durch das Makro hast du die RGB-Werte der 56(57) Farben, somit kannst du dann mit Extras–Optionen–Farbe–Ändern–Anpassen in deinen Dateien die farben erzeugen.
Ich hoffe es half dir weiter
Gruß
Reinhard

Sub farbwerte()
Dim ind As Integer
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
With Worksheets("Tabelle3")
 .Range("A1:E1") = Split("Farbe Index Rot Grün Blau")
 On Error Resume Next
 For ind = 0 To 56
 Wert = .Cells(2 + ind, 1).Interior.Color
 Rot = Wert Mod 256
 Wert = (Wert - Rot) / 256
 Grün = Wert Mod 256
 Wert = (Wert - Grün) / 256
 Blau = Wert Mod 256
 .Cells(2 + ind, 1).Interior.ColorIndex = ind
 .Cells(2 + ind, 2) = ind
 .Cells(2 + ind, 3) = Rot
 .Cells(2 + ind, 4) = Grün
 .Cells(2 + ind, 5) = Blau
 Next ind
End With
End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 2. Mai 2004 um 12:22

zu 2
Hallo Uwe,
markiere in einem Arbeitsblatt den Bereich F1:IV1 , dann klicke auf Format–Spalten–Ausblenden…
Du siehst nur noch die Spalten A bis E, der Rest ist grau.
Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Uwe_Ernst · 2. Mai 2004 um 13:22

Hallo Reinhard,
Mööööönsch, das geht ja einfach. Toll.
Prima, vielen Dank für den Tip.
Geht das eigentlich auch mit den Zeilen unterhalb einer Tabelle ???
Das mit den Farben werde ich gleich ausprobieren. Melde mich dann nochmal.
Gruß
Uwe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 2. Mai 2004 um 13:43

Geht das eigentlich auch mit den Zeilen unterhalb einer
Tabelle ???

Hallo Uwe,
klar, Markieren, dann Format–Zeilen–Ausblenden…
Oder, wenn du nicht grau sondern 'ne andere farbe willst, benutz das nachfolgende Makro. A1:F10 ist da der Bereich der sichtbar bleibt, der rest wird Rot weil colorindx 3 für Rot steht.
Achja und scrollen ist nur im sichtbaren Bereich möglich.
Gruß
Reinhard

Sub tt()
Worksheets(1).ScrollArea = "a1:f10"
For Each zelle In Windows(1).VisibleRange.Cells
 Set drin = Application.Intersect(Range(zelle.Address), Range("a1:f10"))
 If drin Is Nothing Then
 zelle.Interior.ColorIndex = 3
 zelle.Font.ColorIndex = 3
 End If
Next zelle
End Sub

Hallo Uwe,
markiere in einem Arbeitsblatt den Bereich F1:IV1 , dann
klicke auf Format–Spalten–Ausblenden…
Du siehst nur noch die Spalten A bis E, der Rest ist grau.
Gruß
Reinhard

Liebe Wissenden,
ich habe eine Excel- Tabelle erhalten (leider geschützt) - in
der sehr schöne Pastellfarben verwendet werden. Diese Farben
sind aber nicht in der Farbtabelle vorhanden. Wenn ich diese
Tabelle in ein anderes Exceldokument kopiere, sind die Farben
nicht mehr vorhanden. Stattdessen gegen Farben aus dem
normalen Farbfächer ersetzt.
Wie kann ich die Farben retten bzw. selbst erstellen ?
Außerdem ist noch ein anderer Effekt verwendet worden: Die
Tabellenumgrenzungsfläche (der gesamte Tabellenbereich, der
nicht zur eigentlichen, editierten Tabelle gehört, ist grau
und nicht anklickbar.
Wie wird das bloß gemacht ?
Bin schon mächtig gespannt, ob das jemand von Euch weiß. Würde
mich freuen.
Vielen Dank schon mal und
freundliche Grüße
Uwe

Uwe_Ernst · 2. Mai 2004 um 16:34

Hallo Reinhard,
ich habe beim markieren der Zeilen unterhalb meiner Tabelle jetzt 5 Minuten nach unten gescrollt - kein Ende.
Bei den Spalten ist man ja beizeiten am rechten Rand - aber unten ???
Wo is´n da Schluss ??
Ratlose Grüße von
Uwe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

fds_kmsbgihoihopijh_ce1987 · 2. Mai 2004 um 17:33

Hi,
in dem Fall geht folgendes Tastaturkürzel besser:

eine Zeile markieren
Strg und Shift gedrückt halten und dann die Kursortaste nach unten drücken -> alle Zeilen bis zum Ende des Arbeitsblattes werden markiert.

A.

Hollergschwandtner · 3. Mai 2004 um 09:36

Programmieren ist Glückssache
Hi!
So herum gehört das Programmchen, sonst funktionierts nicht richtig…
Grüße
Gerald

Sub farbwerte()
Dim ind As Integer
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
With Worksheets("Tabelle3")
 .Range("A1:E1") = Split("Farbe Index Rot Grün Blau")
 On Error Resume Next
 For ind = 0 To 56
 **.Cells(2 + ind, 1).Interior.ColorIndex = ind**
 Wert = .Cells(2 + ind, 1).Interior.Color
 Rot = Wert Mod 256
 Wert = (Wert - Rot) / 256
 Grün = Wert Mod 256
 Wert = (Wert - Grün) / 256
 Blau = Wert Mod 256
.Cells(2 + ind, 1).Interior.ColorIndex = ind
 .Cells(2 + ind, 2) = ind
 .Cells(2 + ind, 3) = Rot
 .Cells(2 + ind, 4) = Grün
 .Cells(2 + ind, 5) = Blau
 Next ind
End With
End Sub

Reinhard_fb8cb7 · 3. Mai 2004 um 14:29

weia, falsche Lostrommel erwischt Danke o.w.T

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Uwe_Ernst · 3. Mai 2004 um 23:07

Yep - Andreas - das wars.
Ich danke Dir für den Tip. Man lernt nie aus.
Ich grüße Dich herzlich
Uwe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]