Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Code für Zellhintergrund

Forumthread: 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
Anzeige

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ß!
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten Themen

vba codes verbinden??
alex

Hallo zusammen,
Wie kann man diese Codes kombinieren?
Code 1 (per CommandButton): wird der Bereich A16:L16 im Tabellenblatt „Grundformular“ kopiert und schaltet dann in das Tabellenblatt Übersicht
Sub Eintragungenübernehmen()
Range("A16:L16").Select
Selection.Copy
Sheets...
13.10.2008 23:37:49
Thread-ID: 1016202
5 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
Brainfuck Code umsetzen in Vba-Code
Reinhard

Hallo Wissende, Brainfuck Code sieht so aus: >++++++++++[-]++++++[-].>++[-].>+++[-]+++[-]+++[-].>++[-].>++++[-]++++ usw. Wobei nur diese acht Regeln gelten: > Inkrementiert den Zellzeiger, quasi Activecell.offset(0,1) http://de.wikipedia.org/wiki/Brainfuck _ In dieser Mapp...
25.12.2008 18:17:00
Thread-ID: 1035219
7 Beiträge
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
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige