Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1836to1840
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
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

194 Forumthreads zu ähnlichen 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
Anzeige
Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 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
Anzeige
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 + unterschiedliche Schreibweisen
Marcel

Hallo,
gibt es eine Möglichkeit, neben den bekannten Funktionen wie
- Bedingte Formatierung (ZÄHLENWENN($A$1;$A$18;A1)Größer1)
- WENN(VERGLEICH(A4;A:A;0)=ZEILE();"";"Doppelt")
sich doppelte Einträge eder Zellen einer Spalte Anzeigen zu lassen (10.000 Datensätze), wenn unterschie...
22.07.2009 13:47:42
Thread-ID: 1090530
7 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
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
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
2
10
4
4
3
1
1
6
11
3
2
7
8
15
7
8
5
3
2
4
7
2
5
3
2