Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
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
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA – Suchen, Finden, Markieren

VBA – Suchen, Finden, Markieren
04.03.2018 08:38:18
Jürgen
Guten Morgen alle miteinander,
leider konnte ich im Archiv nichts entsprechendes für meine Aufgabenstellung finden.
Wie kann man per VBA, nach dem Inhalt von Zelle H3 ( Inhalt ändert sich ständig )
In Tabelle1 – in Tabelle2 Spalte F suchen – wenn gefunden nur markieren.
Wenn mir hierfür jemand eine Lösung zur Verfügung stellen könnte, das würde mich einen großen Schritt nach vorne bringen.
Mit freundlichen Grüßen
Jürgen

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA – Suchen, Finden, Markieren
04.03.2018 08:52:06
Sepp
Hallo Jürgen,
warum VBA? Das geht mit der bedingten Formatierung.
 AB
1Gruß Sepp
2Windows 10 64 bit
3Office 365 32 bit

Anzeige
AW: VBA – Suchen, Finden, Markieren
04.03.2018 08:57:30
Jürgen
Guten Morgen Sepp,
Danke für Deine Beteiligung, leider kann ich deine Antwort nicht nachvollziehen.
Mit freundlichen Grüßen
AW: VBA – Suchen, Finden, Markieren
04.03.2018 08:56:26
Hajo_Zi
Hallo Jürgen,
zu Find dürfte es zig Beispiele geben. 
Sub Finden()
Dim Rafound As Range
Set Rafound = Columns(1).Find("Mayer", Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not Rafound Is Nothing Then
Rafound.activate
End If
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: VBA – Suchen, Finden, Markieren
04.03.2018 09:06:49
Jürgen
Hallo Hajo,
auch Dir danke ich, für deine Beteiligung.
Aber wo in Deinem Code soll den zwischen den Taballen-Blättern unterschieden werden
Sub Finden()
Dim Rafound As Range
Set Rafound = Columns(1).Find("Mayer", Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not Rafound Is Nothing Then
Rafound.activate
End If
End Sub
Find("Mayer" = genau hier müsste der Inhalt aus der Zelle H3 Tabellen-Blatt 1 übernommen werden.
Mit freundlichen Grüßen
Jürgen
Anzeige
Code laut Aufgabe
04.03.2018 09:13:00
Hajo_Zi
Hallo Jürgen,
Code laut Aufgabe, Tabelle mit H3 ist aktiv
Sub Finden()
Dim Rafound As Range
Set Rafound = Worksheets("Tabelle2").Columns(6).Find(Range("H3"), , xlFormulas, _
xlWhole, , xlNext)
If Not Rafound Is Nothing Then
Worksheets("Tabelle2").Select
Rafound.activate
End If
End Sub
Gruß Hajo
AW: Code laut Aufgabe
04.03.2018 09:15:55
Gerd
Hallo Jürgen
Sub bb()
Dim Such As Variant
Such = Worksheets("Tabelle1").Range("H3").Value
With Worksheets("Tabelle2").Columns("F")
If WorksheetFunction.CountIf(.Cells, Such) > 0 Then
Application.Goto .Parent.Cells(WorksheetFunction.Match(Such, .Cells, 0), 6)
End If
End With
End Sub
Gruß Gerd
Anzeige
AW: Code laut Aufgabe
04.03.2018 09:21:29
Jürgen
Guten Morgen Gerd
Danke für Deine ausführliche Antwort
ich denke ich habe jetzt gefunden wonach ich gesucht habe
auch Dir wünsche ich noch einen schönen Sonntag
mit freundlichen Grüßen
Jürgen
Danke - prima
04.03.2018 09:18:49
Jürgen
Hallo Hajo,
danke Dir und wünsche dir noch einen schönen Sonntag
Mit freundlichen Grü0en
Jürgen
AW: Danke - prima
04.03.2018 09:47:20
Hajo_Zi
Dir ist aufgefallen, das falls nicht gefunden, wird die andere Tabelle nicht aktiviert?
Falls Msgbox?
Rafound.activate
Else
msgbox "Nicht gefunden"
Gruß Hajo

310 Forumthreads zu ähnlichen Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Anzeige
Ordner in Explorer-Struktur suchen VBA
andreas

Hallo zusammen,
habe ein Formular mit einem Button "Speichern" und unter anderem ein Feld "Angebotsnr."
Wird der Button Speichern gedrückt soll das Programm den Ordner der im Feld Angebotsnr. eingetragen ist suchen. Dieser Ordner ist zum Zeitpunkt der Erstellung des Formulares im Window...
11.11.2008 08:50:00
Thread-ID: 1023400
2 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Anzeige
Zeichen in String einfügen
Dieterlem

Hallo Excelfreunde,
ich möchte mit einer Formel Zeichen in einen String einfügen. Der String soll wie folgt umgewandelt werden:
121245f12345 = 121245-F-12345
Es soll also vor und hinter dem Buchstaben ein Bindestrich eingefügt werden. Der Buchstabe soll in ein Großbuchstaben gewande...
12.12.2008 15:08:00
Thread-ID: 1032419
14 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 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
6
2
1
1
4
13
3
2
10
7
8
7
4
5
4
6
14
8
2
3
3
12
2
7
2