Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit gl. Inhalt wie angewählte Z. markieren

Forumthread: Zellen mit gl. Inhalt wie angewählte Z. markieren

Zellen mit gl. Inhalt wie angewählte Z. markieren
18.01.2007 10:31:49
Peter
Guten Tag
Ich meine, dies irgendwo mal gesehen zu haben.
Ein Code der bewirkt, dass wenn ich z.B. Zelle A4 eines Tabellenblattes anwähle, alle anderen Zellen mit dem gleichen Inhalt gelb markiert werden.
Nur wo finden?
Gruss, Peter
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit gl. Inhalt wie angewählte Z. markieren
18.01.2007 11:06:11
R@iner
Hallo,
mal so als Ansatz (ins Codeblatt der Tabelle):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Worksheets("Tabelle1").Range("a1:h500")
.Interior.ColorIndex = xlNone
If Target.Value = "" Then Exit Sub
Set c = .Find(Target.Value, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Gruss Rainer
Anzeige
Das geht auch kürzer
18.01.2007 11:24:59
Bertram
Hi,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
Range("A1:H500").Interior.ColorIndex = xlNone
If Target.Address(0, 0) = "A4" Then
For Each Zelle In Range("A1:H500").Cells
If Zelle.Value = Target.Value Then Zelle.Interior.ColorIndex = 6
Next Zelle
End If
End Sub

Gruß
Bertram
Anzeige
AW: Das geht auch kürzer
18.01.2007 14:55:36
Peter
Hallo Betram
Vielen Dank. Das funktioniert allerdings nur, wenn ich die Zeile A4 anwähle
(If Target.Address(0, 0) = "A4" Then).
Wie kann das allgemein gültig gemacht werden?
Danke für Feedback.
Peter
AW: Das geht auch kürzer
18.01.2007 16:30:36
Bertram
Hallo Peter,
allgemein gültig:
lass das If..... und End If weg.
wenn nur in deinem Bereich gültig:
If Not Intersect(Target, Range("A1:H500")) Is Nothing then 'oder was auch immer dein Bereich ist
Gruß
Bertram
Anzeige
AW: Zellen mit gl. Inhalt wie angewählte Z. markieren
18.01.2007 14:52:39
Peter
Hallo Rainer
Ich habe bei
With Worksheets("Tabelle1").Range("a1:h500")
den wirklichen Tabellennamen anstelle von "Tabelle1" eingefügt.
Dann kommt die Fehlermeldung, dass c nicht definiert ist. Wenn ich dann c als string dimensioniere, passiert nichts mehr.
Gruss, Peter
AW: Zellen mit gl. Inhalt wie angewählte Z. markieren
18.01.2007 16:34:03
Bertram
Hallo nochmal,
da du offensichtlich Option Explicit verwendest (find ich persönlich gut, dann vergißt man keine Dimensionierung) musst du c als 'Range' definieren nicht als 'String'.
Gruß
Bertram
Anzeige
AW: Zellen mit gl. Inhalt wie angewählte Z. markieren
18.01.2007 11:14:54
Luschi
Hallo Peter,
nimm statt "ActiveSheet.Cells.Delete" den Befehl "ActiveSheet.Cells.Clear"
Gruß von Luschi
aus klein-Paris
AW: Zellen mit gl. Inhalt wie angewählte Z. markieren
18.01.2007 14:56:24
Peter
Hallo Luschi
Ich vermute, dass deine Antwort für eine andere Frage gedacht war.
Freundlicher Gruss
Peter

Forumthreads zu verwandten Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
Zellenhöhe mit Zelleninhalt berechnen
Christoph

Hallo,
ich möchte das vba-skript von https://www.herber.de/forum/archiv/1004to1008/t1006435.htm
(ganz unten) gerne etwas anpassen, und zwar so, dass die Zellenhöhe direkt aus dem Zelleninhalt berechnet wird. Hier ist mein Versuch, der aber leider nicht funkti0oniert:
Sub zeilenhö...
24.09.2008 17:32:00
Thread-ID: 1012131
8 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Zellen zählen mit Inhalt
nathan

Guten Morgen,
ich hab da mel eine Frage. Und zwar habe ich eine Liste in Excel erstellt mit Teilnehmern, jetzt benötige ich eine Formel die mir alle beschriebenen Felder zählt. Denn ich hab auch leere Zellen dazwischen. Und von Hand zählen ist etwas mühsam. Ich habe schon die Datenbankforme...
22.10.2008 11:13:00
Thread-ID: 1018269
3 Beiträge
Anzeige
Zählen nichtleerer Zellen
Stefan

Hallo zusammen,
ich erbitte erneut Eure Hilfe. Es geht darum Zellen mit Inhalt einer Liste der Fuhrparkverwaltung zu zählen. In Spalte C:J habe ich jeweils die verschiedenen Fahrzeuge. In den Zeilen 7:372 trage ich dann ein, wer welches Fahrzeug belegt hat. Geht eine Fahrt über mehrere Tage...
04.11.2008 08:20:00
Thread-ID: 1021461
3 Beiträge
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige
Zellen mit Inhalt zählen
hindenberger@gmx.de

Hallo,
ich habe eine Excel Matrix und möchte zählen lassen, wieviele Zellen einen Inhalt haben.
Kann man das mit einer (kombinierten) Excel Funktion machen lassen?
danke
Gruß,
Patric
08.01.2009 09:21:07
Thread-ID: 1037768
4 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Zählen von nicht leeren Zeilen
nicht

Hallo,
ich habe z.B. in Spalte A viele Zeilen mit Inhalt (=Zahl oder Text), aber einige Zeilen sind leer.
Wie kann ich nur die Anzahl der Zeilen zählen, wo Inhalt drinsteht? Also, die leere Zeilen nicht mitzählen.
Danke und Gruß,
Meli
21.01.2009 09:37:07
Thread-ID: 1042059
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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