Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel finden

Formel finden
28.05.2004 20:42:56
Erich
Hallo EXCEL-Freunde,
ich muss in einer bestimmten Spalte (z.B. M) herausfinden, welche Zellen
Formeln enthalten und welche nicht. Am besten wäre es, wenn
Zellen mit Formeln einen blauen Hintergrund und
Zellen ohne Formeln einen gelben Hintergrund bekommen.
Es geht meistens von Zeile 1 bis ca. 4.000 oder 5.000 Zeilen.
Möglich per bedingte Hormatierung?
Allerdings hätte ich lieber eine VBA-Lösung.
Besten Dankf für eine Hilfe!
mfg
Erich

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zellen mit Formeln bedingt formatieren
Boris
Hi Erich,
Einfügen-Namen-Definieren-Name: Erich
Bezieht sich auf:
=ZELLE.ZUORDNEN(48;INDIREKT("ZS";))
Markiere die fraglichen Zellen, bedingte Formatierung-Formel ist: =Erich
und ne hübsche Hintergrundfarbe zuweisen - fertig
Grüße Boris
AW: Zellen mit Formeln bedingt formatieren
Erich
Hallo Boris,
danke - aber das funzt bei mir nicht. Was bedeutet denn 48 ?
mfg
Erich
Und was bitte funktioniert nicht?
Boris
Hi Erich,
...deine Antwort ist absolut nichtssagend - denn wenn du die beschriebenen Schritte "abarbeitest", dann funktioniert das auch...
Grüße Boris
AW: Test
Ulf
Die Formel ist: nicht ="Erich"
Die Formel ist: =Erich
AW: Test
Erich
Hallo Ulf,
funktioniert bei mir trotz Umstellung ohne "" nicht?
mfg
Erich
Ich versteh das nicht...
Boris
Hi Erich,
...ich hab mir jetzt deine Datei mal angeschaut:
Warum bringst du so viel Eigeninterpretation in die Umsetzung rein?
Ich hatte dir eingangs haargenau beschrieben, was zu tun ist. Übernimm einfach jedes Zeichen 1 zu 1 - dann gibt es auch keine Probleme...
Grüße Boris
SORRY!
Erich
Hallo Boris,
jetzt verstehe ich selber nicht, was ich da falsch gemacht habe. Beim ersten Test
hat es mit "ZS" nicht funktioniert, dann dachte ich, ich müsste den Bereich eingeben...?
Also Dein Vorschlag funktioniert wirklich perfekt - besten Dank auch für den Hinweis
an Matthias!
mfg
Erich
Anzeige
AW: Formel finden
28.05.2004 20:53:39
Matthias
Hallo Erich,
entweder manuell gestartet in ein nomales Modul:
Sub FormelnMarkieren()
Const Spalte = 13 'M
Dim z As Range
For Each z In Intersect(ActiveSheet.UsedRange, Columns(Spalte))
If z.HasFormula Then
z.Interior.ColorIndex = 36
Else
z.Interior.ColorIndex = 34
End If
Next z
End Sub
und/oder in Echtzeit bei der Eingabe:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
For Each z In Target
If z.Column = 13 Then 'Spalte M
If z.HasFormula Then
z.Interior.ColorIndex = 36
Else
z.Interior.ColorIndex = 34
End If
End If
Next
End Sub

Je nach Bedarf!
Gruß Matthias
Anzeige
AW: Formel finden - Ergänzung
28.05.2004 20:56:41
Matthias
letzterer Code muss in das Codemodul das Tabellenblatts.
Matthias
Erweiterung?
Erich
Hallo Matthias,
läuft Klasse. Kann man das noch anpassen:
wenn Zelle ohne Inhalt, dann keine Farbe?
Danke!
mfg
Erich
AW: Erweiterung
28.05.2004 22:05:11
Matthias
Hallo Erich,
Du meinst so?
Sub FormelnMarkieren()
Const Spalte = 13 'M
Dim z As Range
For Each z In Intersect(ActiveSheet.UsedRange, Columns(Spalte))
If z.Value = "" Then
z.Interior.ColorIndex = xlColorIndexNone
ElseIf z.HasFormula Then
z.Interior.ColorIndex = 36
Else
z.Interior.ColorIndex = 34
End If
Next z
End Sub
---------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
For Each z In Target
If z.Column = 13 Then 'Spalte M
If z.Value = "" Then
z.Interior.ColorIndex = xlColorIndexNone
ElseIf z.HasFormula Then
z.Interior.ColorIndex = 36
Else
z.Interior.ColorIndex = 34
End If
End If
Next
End Sub

Gruß Matthias
Anzeige
DANKE - Matthias; das wars - o.T.!!
Erich
Kleiner Tipp: SpecialCells
Boris
Hi Matthias,
...schau dir doch mal die SpecialCells in der Hilfe an - da gibt es die "xlCellTypeFormulas" und die "xlCellTypeConstants" und und und...
Du ersparst dir auf jeden Fall die lahme Schleife.
Grüße Boris
AW: Kleiner Tipp: SpecialCells
31.05.2004 08:07:11
Matthias
Hallo Boris,
Danke für den Tipp!

Sub FormelnMarkieren()
Const Spalte = 13 'M
Dim z As Range
Set z = Columns(Spalte)
On Error Resume Next
z.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = xlColorIndexNone
z.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 36
z.SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 34
End Sub

Gruß Matthias
Anzeige
DANKE - Matthias; tolle Optimierung - o.T.!!
Erich

300 Forumthreads zu ähnlichen Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
3 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
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
8
4
7
1