Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Code für Zellhintergrund

VBA-Code für Zellhintergrund
11.08.2006 17:43:57
Linde
VBA-Code für Zellhintergrund
Hallo,
als Neuling bräuchte ich mal eure Unterstützung.
In den Zellen D11:AH40 soll sich der Zellhintergrund bei bestimmter
Buchstabeneingabe färben.
Z.B. G23 = KL(ColorIndex 3) oder H37 = WW(ColorIndex 10). Insgesamt
soll der Code 1o verschiedene Buchstabenkürzel zu entsprechenden Farben
enthalten.
Wäre euch sehr Dankbar für Unterstützung.
LG
Linde

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code für Zellhintergrund
11.08.2006 18:47:20
ingUR
Hallo, Linde,
diese Arbeiten erledigt die Funktion: "bedingtes Formatieren" aus der Menüleite.
Markiere den von dier beschriebenen Bereich D11:AH40, wähle aus der Menüleite den Punkt "Format" und dort die Funktion "bedinte Formatierung ..."
Hier wirs Du im Dialog abgefragt, unter welchen Bedingungen welches Format die Zelle erhalten soll:
Deine erste Bedingung: "Zellenwert ist" : | gleich | KL
Mit Format legst Du das Aussehen der Zelle Fest, wenn die Bedingung erfüllt ist. Schrift, Muster und Rahmen sind wie gewohnt einstellbar.
Für die Eingabe weitere Bedingungen klickst Du auf die Schaltfläche "Hinzufügen".
Gruß,
Uwe
Anzeige
AW: VBA-Code für Zellhintergrund
11.08.2006 18:55:56
Linde
Hallo Uwe,
die "einfache Bedingte Formatierung" funktioniert doch
nur bei max 3 Bedingungen oder täusche ich mich?
Ich brauche es aber für 10 Bedingungen!
LG
Linde
AW: VBA-Code für Zellhintergrund
11.08.2006 19:30:55
ingUR
Richtig, Linde,
hatte ich übersehen. Zwischenzeitlich ist der VBA-Code ja hier schon vorgestellt. Dennoch hier diese Lösung, weil gerade überprüft:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, isect As Range
Dim strP As String, Patter(56) As String 'siehe in Hilfe, Stichwort  ColorIndex
Dim strV As String
Dim c As Integer, oldColor As Integer
Set ws = ActiveSheet
Set isect = Application.Intersect(Target, Range("D11:AH40"))
If isect Is Nothing Then Exit Sub
Patter(3) = "KL"
Patter(10) = "WW"
strV = Target.Value
For c = 1 To 56
If Patter(c) = strV Then
Target.Interior.ColorIndex = c
Exit For
End If
Next
If c > 56 Then Target.Interior.ColorIndex = xlNone
Set isect = Nothing
End Sub

Entscheiden ist die Behandlung, wenn eine bedingt gefärbte Zelle eine neuen Eintrag erhält, der nicht in dem Bedingungsvektor aufgelistet ist, denn dann ist die Hintergrundfarbe wieder zu entfernen.
Gruß,
Uwe
Anzeige
AW: VBA-Code für Zellhintergrund
11.08.2006 19:39:53
Linde
Hallo Uwe,
auch Dir meinen Dank!
Aber auch hier habe ich Probleme den
Code zum laufen zu bringen.
Komme irgendwie nicht weiter :(
LG
Linde
AW: VBA-Code für Zellhintergrund
11.08.2006 19:42:12
ingUR
Hallo, Linde,
ich vergaß:
Im VBA-Editor ist das Projekt, das Deine Arbeitsmappe enthält, auf der der bedingte Bereich funktionieren soll, auszuwählen und dort im MS-EXCEL-Objekte-Ornder dieses Tabellenblatt anzuwählen. Der Code ist dan in das Codefenster einzutragen.
Diese Vorgehensweise gilt aich für den anderen Code.
Gruß!
AW: VBA-Code für Zellhintergrund
11.08.2006 19:01:45
Erich
Hallo Linde,
die folgende Prozedur färbt eine oder mehrere Zellen bei Änderung ein.
Die Farben musst du wohl noch richtig aussuchen. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngB As Range, arrBK, arrFa, rngZ As Range, ii As Integer
Set rngB = Range("D11:AH40")
If Intersect(Target, rngB) Is Nothing Then Exit Sub
arrBK = Split("AA BC RT WW XX YY ZZ QQ SS GG") ' Buchstabenkombinationen
arrFa = Split("08 03 05 07 31 11 13 15 22 34") ' Farben
For Each rngZ In Intersect(Target, rngB)
For ii = 0 To UBound(arrBK)
If rngZ.Value = arrBK(ii) Then rngZ.Interior.ColorIndex = arrFa(ii)
Next ii
Next rngZ
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Gibt auch InstallSoftware im Forumsarchiv! orT
11.08.2006 19:18:06
Luc:-?
Gruß Luc :-?
AW: VBA-Code für Zellhintergrund
11.08.2006 19:32:23
Linde
Halle Erich,
vielen Dank für deine Mühe.
Irgendwie bekomme ich aber Deinen Code
nicht zum laufen.
Kannst Du mir bitte nocheinmal Helfen?
LG
Linde
AW: VBA-Code für Zellhintergrund
11.08.2006 19:44:20
Erich
Hallo Linde,
die Prozedur gehört in den Code der Tabelle.
Dazu klickst du im VBA-Editor (aus Excel mit Alt+F11 aufrufen) im Projektexplorer mit Doppelklick
auf die Tabelle (oder mit rechter Maustaste auf die Tabelle und "Code anzeigen").
Hast du die Prozedur dort untergebracht?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: VBA-Code für Zellhintergrund
11.08.2006 19:48:33
Bugs
Hallo,
sieh dir mal das an, dass kannst du noch dementsprechend anpassen:
https://www.herber.de/bbs/user/35738.xls

Rückmeldung wäre nett !!! 


>>> mfg Bugs <<<

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Anzeige

299 Forumthreads zu ähnlichen Themen

VBA-Code auf Smartphone mit Windwos Mobil 6
Thorsten

Hallo zusammen,
kann mir jemand von Euch sagen, ob Makros (VBA) jetzt auf den smartphones mit Windows mobil 6.0 oder 6.1 laufen.
Ich suche dringend eine Möglichkeit, meine Exceltabellen incl. der VBA-Makros auf einem kleinen Mobilen Gerät auszuführen (Smartphone, PDA oder ähnl.), konnte...
24.09.2008 14:45:36
Thread-ID: 1012076
2 Beiträge
Anzeige
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
wo VBA code einfuegen? ins modul?
maxx_1985

Hey Leute,
wo muss ich diesen Code einfuegen, damit er funktioniert? doch in kein modul oder?
Private Sub Open_workbook() Const Blattname = "Overview" Dim z As Range With Sheets(Blattname) .Activate Set z = .Range("a:a").Find(What:="=Tue", LookIn:=xlFormulas) If Not z Is Nothing Then...
03.12.2008 16:10:39
Thread-ID: 1029882
10 Beiträge
Anzeige
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
Schutz von VBA-Codes in Excel
VBA-Codes

Mal eine Frage an die Excel-Profis unter Euch. ;)
Habe nach einer Möglichkeit gesucht für eine umfangreichere VBA-Arbeit meine Codes zu schützen, da Excel selber ja nur rudimentären Schutz bietet der von jedem der sich ein wenig besser auskennt in Sekunden auszuhebeln ist.
Dabei bin ich...
22.04.2009 11:22:36
Thread-ID: 1070279
6 Beiträge
Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 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
1
4
4
9
6
3
2
4
5
21
2
5
3
12
2
4
10
6
5
8
8
4
6
4
1