PDA

Vollständige Version anzeigen : Wenn Farbe rot dann


Skyjazz
28.06.2014, 18:51
Hallo zusammen

Ich habe das Forum bereits nach einer Lösung gesucht. Es ist aber nicht das dabei was ich brauche.

Ganz simple Beschreibung.

Wenn ich in A1 die Hintergrundfarbe rot setze soll der Zellinhalt bei B1:Z1 gelöscht werden.

Wenn ich die Farbe wieder weiß oder grün setze soll er vom Tabellenblatt2 (dort ist das Orginal gespeichert) B1:Z1 wieder rein kopieren.

Ist sowas überhaupt möglich? Dachte so an VBA Function.

Alternativen natürlich auch gern.

Gruß Skyjazz

aloys78
28.06.2014, 19:25
Hallo Skyzazz,

die Änderung der Zellfarbe löst kein Ereignis aus. Deshalb folgende Idee
- du färbst Zelle A1 rot (Colorindex=3) oder weiss (colorindex=2)
- dann gehst du auf A2 und löst dort ein Selektion_Change-Ereignis aus
- es passiert, was du dir vorstellst

Hierfür der Code:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Select Case Target.Offset(-1, 0).Interior.ColorIndex
Case Is = 3 'A1 = rot
Range("B1:Z1").ClearContents
Case Is = 2 'A1 = weiss
Worksheets("Tabelle2").Range("B1:Z1").Copy Range("B1:Z1")
End Select
End Sub

Gruß
Aloys

Skyjazz
28.06.2014, 19:34
Hallo aloys78

irgendwie will es nicht klappen

Habe dir mal die Tabelle mit angehangen.

Was mache ich falsch

Gruß Skyjazz

aloys78
28.06.2014, 20:03
Hallo Skyjazz,

bist du sicher, dass dies die richtige Datei ist ?

Gruß
Aloys

Skyjazz
29.06.2014, 04:18
Doch das ist die richtige Datei.

Ich habe lediglich zwischendurch Zeilen und spalten eingefügt.
Und Tabelle 23 heißt jetzt Plan.

B6 wird rot und c6;cv6 soll gelöscht werden bzw wieder eingefügt werden.

Gruß Skyjazz

aloys78
29.06.2014, 06:41
Hallo Skyjazz,
Doch das ist die richtige Datei.
Ich empfehle dir, in Zukunft im vornherein den Sachverhalt zu erläutern, wenn du eine total geänderte Datei schickst, in der der vorgeschlagene Code angeblich nicht funktionieren soll.
Und außerdem: die Datei enthält überhaupt keinen Code.

Zusammengefaßt: ich kann damit nichts anfangen !

Gruß
Aloys

hary
29.06.2014, 08:18
Moin
Nur zum verstehen.
Du befindest dich in Baltt "Aktueller Stand"
Dann faerbst du Bsp. B6 in Rot(warum nicht wo der Name steht?)
Bei Rot soll der Zeilenbereich C6:CV6(warum nur bis CV6?) geloescht werden.
Bei Gruen soll der Zeilenbereich C6:CV6(warum nur bis CV6?) aus Blatt "Plan" geholt werden.
Bei Bsp. B7 ist es C7:CV7 ??
Evtl. passt das Doppelklick Ereigniss in eine Zelle besser.
gruss hary