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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen färben wenn Wert

Forumthread: Zellen färben wenn Wert

Zellen färben wenn Wert
08.07.2007 20:00:00
Werner
Hallo, wer kann helfen.
Suche im Archiv ergab hunderte Beispiele aber das richtige habe ich nicht gefunden.
Kopiere die Werte aus aktiver Tabelle und möchte sie in Tabelle 6 einfügen, wobei die Anzahl der mit Zahlen beschriebenen Zellen immer unterschiedlich ist. Nur die Zellen, in denen Zahlen stehen sollen gefärbt werden.
gruß Werner

Private Sub CommandButton1_Click()
Range("B2:J10").Copy
Tabelle6.Select
Range("Druck1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End
End Sub


Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen färben wenn Wert
08.07.2007 20:03:44
Hajo_Zi
Hallo WEerner,
benutze doch Format, bedingte Formatierung.

AW: Zellen färben wenn Wert
08.07.2007 20:20:00
Werner
Hajo, die Antwort habe ich eigentlich erwartet erwartet.
Ich möchte die freien Zellen nach dem Kopieren ausfüllen, aber durch die Färbung sichtbar erhalten, welche ich mit Werten übernommen habe.
Werner

Anzeige
AW: Zellen färben wenn Wert
08.07.2007 20:54:00
Gerd
Hallo Werner,
so z.B. (Rang("Druck1") muss hier die selbe Größe haben wie Range("B2:J10").
Private Sub CommandButton1_Click()
Dim rngZelle As Range
Range("B2:J10").Copy
Tabelle6.Range("Druck1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
For Each rngZelle In Tabelle6.Range("Druck1")
If IsNumeric(rngZelle) And Not (IsDate(rngZelle)) Then
If rngZelle.Value 0 Then
rngZelle.Interior.Color = vbYellow
End If
End If
Next
Tabelle6.Activate
Tabelle6.Range("A1").Select
Gruß Gerd

Anzeige
AW: Zellen färben wenn Wert
08.07.2007 21:09:31
Werner
Hallo Gerd,
Funktioniert wie erhofft, Danke!
mfg Werner

AW: Zellen färben wenn Wert
08.07.2007 21:50:00
Daniel
Hi
so könnte es gehen (ich habs aber nicht getestet)
die verwendete Funktioin .SPECIALCELLS entspricht in Excel der Aktion: BEARBEITEN - GEHE ZU - INHALTE - KONSTANTEN - ZAHLEN
(falls du es mal mit dem Recorder nachvollziehen willst)

Private Sub CommandButton1_Click()
Range("B2:J10").Copy
Tabelle6.Select
with Tabelle6.range("Druck1").resize(Range("B2:J10").rows.count, Range("B2:J10").columns. _
count)
.PasteSpecial Paste:=xlPasteValues
.SpecialCells(xlCellTypeConstants, 1).interior.colorindex = 5
end with
Application.CutCopyMode = False
Range("A1").Select
End
End Sub


Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

WENN-Funktion: Zellen ausschneiden / abändern
Sascha

Hallöchen,
ich habe 2 Listen, in der linken stehen offene Beträge mit Rechnungsnummer und vorraussichtlichem Zahlungsdatum, in der rechten stehen die selben Daten, nur sollen Sie dort nur angezeigt werden, wenn Sie erledigt sind.
Zwischen beiden Zeilen sind Kontrollkästchen, die mit der...
27.12.2008 07:22:23
Thread-ID: 1035343
20 Beiträge
Zellen kopieren wenn 2 werte stimmen
Andreas

hallo zusammen
ich habe ein problem an welchem ich bereits länger übe. aus einer datenbank möchte ich bestimmte werte in eine liste in einem anderen tabellenblatt einlesen.
vom ablauf her siehts so aus: wenn datum und nr aus der datenbank mit den werten im tabellenblatt "einladung" über...
28.01.2009 19:27:20
Thread-ID: 1044683
3 Beiträge
Wertkopie wenn Zelle bestimmte Formel enthält
Marc

Hallo.
Ich brauche ein Makro, welches ein Arbeitsblatt Zelle für Zelle durchsucht und in Zellen, in denen Formeln mit =DBR, =DBS stehen eine Wertekopie der Zelle macht. Alle anderen Formeln etc. sollen so bleiben wie sie sind. Problem ist, es kann auch sein, dass z.B. eine wenn-Formel diese...
17.03.2009 15:28:17
Thread-ID: 1061136
3 Beiträge
Anzeige
Zelle farblich wenn in zeile Wert MIN
PointOfView

Einen schönen guten Tag,
ich hoffe mir kann jemand helfen. Im Forum "Clever-Forum" habe ich´s schon mal versucht, bin jedoch kläglich gescheitert. Daher bitte nicht auf Crossposting hinweisen. Hab mich da wieder abgemeldet.
Ich habe eine Tabelle mit reichlich Spalten (kann bis Spalte "I...
17.04.2009 16:39:45
Thread-ID: 1069342
11 Beiträge
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Anzeige
Wert berechnen auch wenn in Zelle nichts steht
Sascha

Hallo,
ich habe in Spalte A die Einnahmen zu stehen, in Spalte B die Ausgaben und möchte mir in der Spalte C den Bestand anzeigen lassen. Nun möchte ich aber nur dann einen Wert anzeigen lassen, wenn in einer Zelle A? oder Zelle B? etwas eingetragen wird. Dieses Problem löse ich mit folgend...
13.05.2009 11:30:47
Thread-ID: 1074765
11 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Zelle färbenm wenn zwei Bedingungen
Sandra

Hallo zusammen,
ich muss in folgendes Makro noch eine weitere Prüfung einbauen, ich weiß aber nicht wie.
Sub Guthaben_größer_Null_färben() Dim zeile As Long Dim LetzteZeile As Long With ActiveSheet Range("K2").Select 'Spalte und Zelle anpassen LetzteZeile = .Range("A65536").End(xlUp)....
22.06.2009 22:26:09
Thread-ID: 1083615
6 Beiträge
Ergebnis in Zelle nur anzeigen wenn in Zelle Wert
Sascha

moin,
hab hier eine ganz einefache Formel:
A B
1 2000 5
2 =A1-B1
3 =A2-B2
Wenn ich nun die Formel in Spalte A weiter fortführe wird immer das letzte Ergebnis angezeigt. Wenn nun aber noch kein Wert in Spalte B eingetragen ist, soll die Formel/Ergebnis auch ni...
27.09.2009 08:47:36
Thread-ID: 1105800
3 Beiträge
Wenn in Zelle P Inhalt dann schreibe in Zelle X
Viktoria

Hallo Leute,
hab ne doofe Frage:
Also Ich hab in Zelle P einen Inhalt dann möchte ich, das mir das Makro den Inhalt überprüft, und anhand des Inhaltes in eine Zelle einen String setzt den ich vorgebe.
Bei meinem Lösungsweg ist das Problem, das das Makro komischerweise nicht am Ende...
13.04.2010 09:14:04
Thread-ID: 1151360
6 Beiträge
multiple "wenn-dann"-funktionen in EINER zelle
RoB

Hallo Leute,
ich möchte anhand einer nutzwertanalyse kriterien gegenüberstellen und auswerten.
ich möchte, dass excel mir ein der einen hälfte der tabelle die entsprechenden werte automatisch ausfüllt, je nachdem welchen wert ich auf der anderen hälfte eingegeben habe. es sind allerding...
07.05.2010 15:47:47
Thread-ID: 1156124
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