Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1=anwesend, 2=abwesend, 3=unentschuldigt

1=anwesend, 2=abwesend, 3=unentschuldigt
02.03.2008 12:52:00
Vera
Hallo Excelfreunde,
Ich möchte in eine Zelle, sagen wir A1 die Zahlen 1, 2, 3 oder 'nichts' eintragen.
Statt der Zahlen sollte dann bei 1 das Wort 'anwesend' bei 2 das Wort 'abwesend' und bei 3 'unentschuldigt' stahen.
Die Möglichkeit der bedingten Formatierung sollte erhalten bleiben. (1 wird grün, 2 wird rot ..)
Ich habe keinen Schimmer
wie ich diese Formatierung hinbekomme ..
Liebe Grüße
Vera

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1=anwesend, 2=abwesend, 3=unentschuldigt
02.03.2008 13:24:00
Jan3
Hi Vera,
Ich würde das über einen Ereigniscode des Tabellenblattes lösen. Dabei wird die bedingte Formatierung gleich mit erledigt.
Bezogen auf den Tabellenblattbereich A1 bis B10 könnte es wie im Beispiel realisiert werden.
https://www.herber.de/bbs/user/50353.xls
Jan

AW: 1=anwesend, 2=abwesend, 3=unentschuldigt
02.03.2008 13:28:48
Tino
Hallo,
so müsste es gehen, als Code in die entsprechende Tabelle.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Application.EnableEvents = False
'1 das Wort 'anwesend' bei 2 das Wort 'abwesend' und bei 3 'unentschuldigt'
If Target = "1" Then
Target = "anwesend"
ElseIf Target = "2" Then
Target = "abwesend"
ElseIf Target = "3" Then
Target = "unentschuldigt"
End If
Application.EnableEvents = True
End If
End Sub


Gruß
Tino

Anzeige
Worksheet_Change - Target.value
02.03.2008 13:29:11
Beate
Hallo Vera,
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Value
        Case 1
            Target.Interior.ColorIndex = 4
            Target.Value = "anwesend"
        Case 2
            Target.Interior.ColorIndex = 3
            Target.Value = "abwesend"
        Case 3
            Target.Interior.ColorIndex = 44
            Target.Value = "unentschuldigt"
    End Select
    Application.EnableEvents = True
End Sub
Das Makro gehört ins Codefenster der Tabelle.
Gruß,
Beate

Anzeige
AW: 1=anwesend, 2=abwesend, 3=unentschuldigt
02.03.2008 13:35:24
Erich
Hallo Vera,
und noch ne Version: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target(1), Range("A1:B10")) Is Nothing Then Exit Sub
With Target(1)
Select Case .Value
Case 1
.Value = "anwesend"
.Interior.ColorIndex = 4
Case 2
.Value = "abwesend"
.Interior.ColorIndex = 3
Case 3
.Value = "unentschuldigt"
.Interior.ColorIndex = 6
Case Else
.Interior.ColorIndex = xlColorIndexNone
End Select
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: 1=anwesend, 2=abwesend, 3=unentschuldigt
02.03.2008 13:38:00
Erich
Sorry Vera,
da fehlte das Ausschalten der Events. Hier also neu: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target(1), Range("A1:B10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Target(1)
Select Case .Value
Case 1
.Value = "anwesend"
.Interior.ColorIndex = 4
Case 2
.Value = "abwesend"
.Interior.ColorIndex = 3
Case 3
.Value = "unentschuldigt"
.Interior.ColorIndex = 6
Case Else
.Interior.ColorIndex = xlColorIndexNone
End Select
End With
Application.EnableEvents = True
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige