Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
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
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kontext Menü - Eintrag - Farbe

Kontext Menü - Eintrag - Farbe
Fatih
Hallo und eine schönen Abend,
ich habe ein kleines Problem wieder, über ein selbst erstelltes Kontext Menü trage ich ein paar Kürzel in die Zellen, es funktioniert alles perfekt. Dank Tino (hat mir heute Nachmittag sehr geholfen).
Jetzt hab ich das ganze in meine Hauptdatei übergeben, irgendwie färben sich die Zellen nicht nach den Vorgaben.
Falls jemand kurz Zeit hat, bitte um kurzen Check in der Mappe.
lg fatih
https://www.herber.de/bbs/user/70824.xls

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Kleine Ursache...
30.07.2010 22:48:34
Ramses
Hallo
... grosse Wirkung
Es muss heissen:
Select Case UCase(Target)
Mit LCase prüfst du den Wert auf KLEINBUCHSTABEN
Gruss Rainer
AW: Kleine Ursache...
30.07.2010 23:03:21
Fatih
Hallo Rainer,
danke nochmals,
also ich hab das jetzt geändert, die Zellen werden nachwievor nicht gefärbt :(
Gruss Fatih
Muss funktionieren,...
30.07.2010 23:20:06
Ramses
Hallo
... weil getestet.
Aber Tino macht ja weiter
Gruss Rainer
AW: Kontext Menü - Eintrag - Farbe
30.07.2010 23:00:20
Tino
Hallo,
ich würde es so machen.
Private Sub Worksheet_Change(ByVal Target As Range)
    'Worksheets("Gesamt").Protect Password:="aa", UserInterfaceOnly:=True 
    On Error GoTo Fehlerwert
    With Target.Interior
        Select Case UCase(Target(1))
            Case "PW": .ColorIndex = 35
            Case "CC": .ColorIndex = 36
            Case "PM": .ColorIndex = 37
            Case "OP/IT": .ColorIndex = 42
            Case "OP/IT+CC": .ColorIndex = 43
            Case "PW+OP/IT": .ColorIndex = 44
            Case Else:  .ColorIndex = xlNone
        End Select
    End With
    Exit Sub
Fehlerwert:
End Sub
Gruß Tino
Anzeige
AW: Kontext Menü - Eintrag - Farbe
30.07.2010 23:06:52
Fatih
Hallo Tino,
also jetzt hab ich den Code 1:1 kopiert und es klappt.
Kannst du mir vielleicht sagen was genau du geändert hast?
Wie kann ich die Einträge noch "zentrieren"?
lg und vielen vielen Dank
fatih
AW: Kontext Menü - Eintrag - Farbe
30.07.2010 23:34:40
Tino
Hallo,
dies liegt einfach daran,
wenn es mehrere Zellen sind musst Du die erste aus dem Block prüfen, daher Target(1).
Mit Zentrieren müsste so gehen.
Private Sub Worksheet_Change(ByVal Target As Range)
    'Worksheets("Gesamt").Protect Password:="aa", UserInterfaceOnly:=True 
    On Error GoTo Fehlerwert
    With Target
        
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        
        With .Interior
            Select Case UCase(Target(1))
                Case "PW": .ColorIndex = 35
                Case "CC": .ColorIndex = 36
                Case "PM": .ColorIndex = 37
                Case "OP/IT": .ColorIndex = 42
                Case "OP/IT+CC": .ColorIndex = 43
                Case "PW+OP/IT": .ColorIndex = 44
                Case Else:  .ColorIndex = xlNone
            End Select
        End With
    
    End With
    Exit Sub
Fehlerwert:
End Sub
Gruß Tino
Anzeige
ich danke dir Tino und dir auch Rainer oT
30.07.2010 23:40:19
Fatih
.
und wenn Du die Leerzeichen raus haben willst...
30.07.2010 23:42:34
Tino
Hallo,
mach es so.
Select Case Replace(UCase(Target(1)), " ", "")
Weil in der Case verwendest Du die Bezeichnungen ohne Leerzeichen.
Gruß Tino
Danke Tino oT
31.07.2010 15:29:41
Fatih
..

299 Forumthreads zu ähnlichen Themen

Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 Beiträge
Anzeige
TextBox Hintergrundfarbe
Rosenwasser

Hallo Experts,
Ich habe ein Formular (mit den Name 'Kassa') wo 33 Text Boxes ausgewählt werden können. ( tb1, tb2.... tb33 )
Wie kann ich erreichen dass nur den aktive Textbox einen gelbe Hintergrund hat.
Vielen dank & Gruess,
08.11.2008 19:07:18
Thread-ID: 1022979
5 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Userform Textboxen Text in Tabelle schreiben
Erich

Hallo Excelprofis,
habe ein Problem und hoffe ich könnt mir weiterhelfen.
ich habe eine Userform mit 100 Textboxen
1. ich will den inhalt der Textboxen 1 - 50 in die Tabelle Gültigkeit Spalte A 1 bis A50 eintragen den inhalt der Textboxen 51 - 100 in die Spalte B 1 bis B50
2...
18.11.2008 19:16:31
Thread-ID: 1025756
6 Beiträge
Textboxhintergrundfarbe ändern wenn aktiv
Jochen

Hallo Forum
Ich habe in einer UserForm fünf Textboxen in die nach einander Werte eingetragen werden.
Die Hintergrundfarbe der Textboxen ist weiss.
Möchte jetzt erreichen wenn die einzelnen Texboxen aktiv werden das sich die Hintergrundfarbe
ändert.
ZB. so: Textbox1 ist aktiv...
29.11.2008 18:50:15
Thread-ID: 1028885
15 Beiträge
Text in einer Spalte formatieren
Martin

Hallo
in einer Zelle habe ich sehr viel Text hineingeschrieben. Möchte für den Ausdruck die Spalte aber nur ca. 5 cm breit formatieren. Der Text soll dann automatisch Linie für Linie untereinander zu stehen kommen. Keine Ahnung wie das möglich ist. Wenn ich die Spalte schmaler formatiere bl...
04.01.2009 10:57:00
Thread-ID: 1036687
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
2
4
4
2
4
6
5
14
4
4
3
2
2
2
3
1
3
9
8
1
1
10
9
3