Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierten Eintrag finden und Markieren

Forumthread: Markierten Eintrag finden und Markieren

Markierten Eintrag finden und Markieren
30.06.2021 16:34:36
oraculix
Hallo
Ich hätte gerne ein Makro das mir in der Tabelle "FilmDb" die markierte Zelle nur in Spalte B den Wert der Zelle Kopiert
und in Tabelle " FilmInfo" findet und markiert.
Anfängermakro so sollte es ungefähr aussehen aber halt mit den richtigen Code Bezeichnungen:

Sub markieren_kopieren_finden ()
Sheets("FilmDb").Select.Range.Value.Copy
Sheets ("FilmInfo").Select
Serch.Value.Find
End Sub
Hier eine Beispielmappe zur besseren Ansicht
https://www.herber.de/bbs/user/146880.xlsm
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierten Eintrag finden und Markieren
30.06.2021 18:01:30
Yal
Hallo Ora,
Du bist ja lustig drauf: eine xlsm-Datei zu liefern, die aber gar kein Code beinhaltet.

Sub markieren_kopieren_finden()
Dim Z
Dim Erg As Range
Application.ScreenUpdating = False
With Sheets("FilmInfo").Columns("B:B")
For Each Z In Selection.Cells
Set Erg = Nothing
Set Erg = .Find(What:=Z.Value, After:=.Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchDirection:=xlNext)
If Not Erg Is Nothing Then Z.Offset(0, 1) = Erg.Value
Next
End With
Application.ScreenUpdating = True
End Sub
VG
Yal
Anzeige
AW: Markierten Eintrag finden und Markieren
30.06.2021 18:20:35
oraculix
Danke
Aber es tut sich nichts
With Sheets("FilmInfo").Columns("B:B")
eigentlich wollte ich FilmDb markieren . Habe es versucht einzutragen tut sich nichts.
Reihenfolge des codes sollte so aussehen:
01. Markierte Zelle in FilmDb Spalte B kopieren
02. FilmInfo select
03. Suchen nach Kopierten Wert aus FilmDb
04. Gefundenen Wert markieren in FilmInfo
Fertig
Anzeige
AW: Markierten Eintrag finden und Markieren
30.06.2021 21:02:12
Yal
Ach so. 'tschuldigung. Verlesen.
Es tut sich wohl etwas. Nur an der falsche Stelle. Schau mal (nach bisherigem Code) neben deine Selektion in FilmDB.
Um umgekehrt zu haben, hätte folgende Änderung gereicht:

Sub markieren_kopieren_finden()
Dim Z
Dim Erg As Range
Application.ScreenUpdating = False
With Sheets("FilmInfo").Columns("B:B")
For Each Z In Selection.Cells
Set Erg = Nothing
Set Erg = .Find(What:=Z.Value, After:=.Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchDirection:=xlNext)
If Not Erg Is Nothing Then Erg.Offset(0, 1) = Z.Value
Next
End With
Application.ScreenUpdating = True
End Sub
Die Unterschied im Coding wird dir nicht sofort auffallen. Sie ist aber bedeutend.
Aber genau wie Zwenn sagte: lernt zu denken wie einem Computer. Und vor allem: lese den Code. Und zwar wie ein Computer. Dann wirst Du sehen,warum deine Anmerkung "With Sheets("FilmInfo").Columns("B:B"). eigentlich wollte ich FilmDb markieren" daneben liegt. Also lerne den Code zu lesen.
VG
Yal
Anzeige
AW: Markierten Eintrag finden und Markieren
30.06.2021 22:04:00
oraculix
Danke auch Dir .
Ich bräuchte mal einen Grundkurs dann würde ich das vielleicht alles verstehen.
AW: Markierten Eintrag finden und Markieren
30.06.2021 18:50:13
Daniel
Hi

dim Film as string
Dim rngX as range
Film = Cells(ActiveCell.Row, 2).value
Set rngX = Sheets("FilmInfo").Cells.Find(what:=Film, lookat:=xlpart, lookIn:=xlvalues)
If not rngX is nothing then Application.Goto rngX
Wenn man sicher ist, dass der gesuchte Film auch vorhanden ist, gehts auch als Einteiler

Application.Goto Sheets("FilmInfo").Cells.Find(what:=Cells(ActiveCell.Row, 2).value, lookat:=xlpart, lookIn:=xlvalues)
Gruß Daniel
Anzeige
AW: Markierten Eintrag finden und Markieren
30.06.2021 19:00:08
oraculix
Juhu Vielen Dank du bist ein Genie. Genau das habe ich gesucht.!!!!!!
Gruß
Oraculix kost fast nix
;

Forumthreads zu verwandten Themen

Bedingte Formatierung - Datenbalken bei neg Werten
Gianleandro

Ich suche nach einer Möglichkeit die Datenbalken bei der bedingten Formatierung auch für negative Werte zu nutzen. Dabei schwebt mir eine Art Spielgelung der Datenbalken bei negativen Werten vor.
Wer hat dazu eine Idee?
https://www.herber.de/bbs/user/55283.xlsx
09.09.2008 14:22:24
Thread-ID: 1008498
3 Beiträge
Wert finden und relativen Bereich markieren
Luca-Darius

Hallo, ich suche nach einer Lösung für das folgende Problem einer Toto-Auswertung/13er-Wette.
Ich will zum Beispiel in den Zeilen 1, 15 und 29 (im Bereich A1:AJ1,A15:AJ15,A29:AJ29) nach Zellen suchen, die den Buchstaben X enthalten. Alle Zellen in dem genannten Bereich enthalten entweder de...
23.03.2009 18:44:39
Thread-ID: 1063012
5 Beiträge
duplikate finden und zählen wenn...
Carmen

Hallo zusammen,
hab gleich zwei Punkte an denen ich nicht so recht weiterkomme.
Ich habe eine Tabelle in der Anteilseigner aufgeführt sind, die können mehrfach auftauchen da manche mehrere Trangen an unterschiedlichen Tagen gekauft haben.
Nun sollen die aktiven Anteilseigner in eine...
14.05.2009 14:20:14
Thread-ID: 1075160
4 Beiträge
Formel für doppelte Werte in einer Liste...
Jessi

Hallo zusammen,
habe ein Problem, aber sicherlich ein nicht unzulösendes für Euch:
Ich habe eine Liste mit mehren Einträgen in einer Spalte z.B.
A
B
C
A
A
B
D
Z
Ich möchte nun die Spalte durchsuchen nach allen vorhanden UNTERSCHIEDLICHEN Einträgen, so...
17.06.2009 17:28:50
Thread-ID: 1082326
2 Beiträge
Bedingte Formatierung mit mehreren Werten
Thorsten

Liebe Excel-Gurus,
ich benötige Hilfe bei folgendem Problem.
In der angehängten Tabelle möchte ich gerne, dass die Zeile bzw. das LAS und FAL
sich farblich verändern sobald in irgendeinem der oberen Fraktionen der Wert
Farbe (grün), Farbe (weiß) oder Farbe (braun) ausgewählt wir...
13.07.2009 17:09:04
Thread-ID: 1088289
2 Beiträge
Doppelte Werte, abhängig von aktiver Zelle, finden
aktiver

Hallo,
auch nach stundenlanger Suche konnte ich folgendes Problem bisher nicht lösen:
In meinem Tabellenblatt kommen verschiedene Zelleinträge mehrfach vor.
Nun soll, wenn sich der Cursor in einer Zelle befindet, deren Inhalt in der Tabelle nochmals (oder mehrmals) vorkommt, diese Z...
09.08.2009 13:52:48
Thread-ID: 1094515
12 Beiträge
Anzeige
identische Einträge farblich markieren
BartekBartek

Hallo zusammen,
ich moechte um fachkundige Hilfe bezüglich folgender Aufgabenstellung bitten:
Ich habe 5 Spalten. IJede Spalte ist für je ein Produkt vorgesehen und in jeder Spalte sind Teilenummern des Produktes aufgelistet.
Nun möchte ich via macro folgendes erreichen:
Wenn In...
08.09.2009 05:33:33
Thread-ID: 1101143
4 Beiträge
Duplikate finden und markieren
gert

Hallo Zusammen,
ich möchte aus einer größeren Tabelle nur die Duplikate markieren. Die Originale sollen verbleiben.
In der Anlage habe ich eine Mustertabelle. Hier werden alle Datensätze dann als Duplikat markiert.
https://www.herber.de/bbs/user/64319.xls
Wer kann mir die Formel...
10.09.2009 15:46:32
Thread-ID: 1101805
3 Beiträge
Anzeige
Gleiche Werte in Spalte markieren
Larissa

Hallo,
ich möchte mit einem Makro in einer Spalte alle Zellen mit dem gleichen Wert markieren.
Mit meinem Makro wird nur die erste Zelle mit dem Wert markiert:
Dim Belegnr As String
Belegnr = ActiveCell.Offset(0, -14)
Sheets("Kontierung").Select
Range("B:B").Find(Belegnr...
27.09.2009 22:24:30
Thread-ID: 1105923
8 Beiträge
bedingte Formatierung - Zellwerte vergleichen
Thomas

hallo zusammen,
ich nutze seit einigen tagen excel 2007 und es stellt sich folgendes problem:
in einer größeren tabelle möchte ich einen zellwert farblich formatieren, nachdem er mit einem anderen zellwert verglichen wurde.
beispiel:
wenn der zellwert in b6 kleiner als der zellw...
25.11.2009 22:48:05
Thread-ID: 1120129
9 Beiträge
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
Zellen mit gleichen Werten markieren
Melanie

Hallo Liebe Excel-Freunde,
ich mochte in einer Tabelle alle Zellen markieren, bei der die Werte aus Zelle B auch in Zelle C vorkommen. Dabei können in Zelle C auch mehrfach Zahlen aus B vorkommen, die müssen auch markiert werden. Sie Beispiel:
Tabelle1 BCDEFGHIJ2TestMaterialnummerW...
17.08.2010 13:53:00
Thread-ID: 1172624
6 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