Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
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
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Frage zu "Mehrere Werte suchen"

Frage zu "Mehrere Werte suchen"
22.09.2015 17:15:35
Timonski
Hallo,
ich hab folgende Formel schon gefunden...
da steht drin SUCHE 2 ERSETZE durch 5, er ersetzt aber jeden Wert, in der eine 2 drin steht, also auch 12 wird 5 oder 22 wird 5...
ich will aber nur bei einer 2 den Wert geändert haben...
was muss ich ändern, damit es nur bei dem "Wunschwert" geändert wird ?
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
vielen Dank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frage zu "Mehrere Werte suchen"
22.09.2015 17:39:17
Michael
Hi Timonski,
das zeichnet der Makrorekorder sinngemäß auf: 
With Worksheets(1).Range("a1:a500")
.Replace What:="2", Replacement:="5", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Schöne Grüße,
Michael

AW: Frage zu "Mehrere Werte suchen"
23.09.2015 07:39:07
Timonski
Guten Morgen,
vielen Dank für die Antwort. ich hatte nur dieses Script aus dem Internet und hab es auf meine Bedürfnisse angepasst...
Er sollen den WERT aus Celle(1, 1) in einer Tabelle 1 suchen (Original Script die 2 eben"
Dann soll er mir die Zeile, wo er den WERT findet ausgeben und die Werte danach in eine Weitere reinschreiben...
    With Worksheets("Tabelle1").Range("A22:A5000")
r = 10
Set c = .Find(Cells(1, 1), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Dim s As String
s = c.Address
With Application
VARIABLE1 = .VLookup(Worksheets("Tabelle1").Cells(Worksheets("Tabelle1"). _
Range(s).Row, 2), Worksheets("Tabelle3").Columns("A:Z"), 3, 0)
VARIABLE2 = .VLookup(Worksheets("Tabelle1").Cells(Worksheets("Tabelle1"). _
Range(s).Row, 2), Worksheets("Tabelle3").Columns("A:Z"), 21, 0)
VARIABLE3 = .VLookup(Worksheets("Tabelle1").Cells(Worksheets("Tabelle1"). _
Range(s).Row, 2), Worksheets("Tabelle3").Columns("A:Z"), 24, 0)
End With
Cells(r, 1) = VARIABLE1
Cells(r, 2) = VARIABLE2
Cells(r, 3) = VARIABLE3
Set c = .FindNext(c)
r = r + 1
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With

schlussendlich will ich z.B. in er Tabelle1 Apfel eingeben und er liest mir aus einer Tabelle2 alle Äpfel mit den Spalten Sorte, Geschmack, Herkunft in die Tabelle1 untereinander.
danke
Timonski

Anzeige
AW: Frage zu "Mehrere Werte suchen"
23.09.2015 11:48:54
matthias
Hallo Timonski,
das Problem liegt daran, dass deine Sucheinstellung unvollständig ist. Bei der händigen Suche würdest du in diesem Falle doch auch das Häkchen für "Gesamten Zelleninhalt vergleichen" aktivieren, oder?
In VBA nennt sich der Parameter dazu "LookAt". Dieser ist standardmäßig auf "xlPart" (Teil) gesetzt, du willst jedoch "xlWhole" (komplett) an dieser Stelle benutzen:
Set c = .Find(2, LookIn:=xlValues, LookAt:=xlWhole)
bzw.
Set c = .Find(Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole)
lg Matthias

AW: Frage zu "Mehrere Werte suchen"
23.09.2015 15:52:15
Timonski
Hallo Matthias,
vielen Dank für die Antwort... ich hatte es mal mit dem Makroaufzeichner versucht... der hat mir auch "LookAt:=xlWhole" angezeigt... hatte aber nur das angeben und nicht mit LookIn:=xlValues.
Das war wohl der Fehler...
Vielen Dank
Timonski
Anzeige

307 Forumthreads zu ähnlichen Themen

Suchen und finden
oscar

Hallo zusammen, über folgenden VBA-Code suche ich in einer Spalte.
Sub CSVAuslesen() Dim i As Integer Dim s As Variant auswahl = InputBox("Auswahl Spalte 2 = GCode") s = auswahl If auswahl = "" Then Exit Sub For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If Cells(i, 2).Value = s...
07.10.2008 09:46:29
Thread-ID: 1014618
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Anzeige
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Texte in mehreren Zellen suchen
Stephan

Hallo,
ich stehe gerade schwer auf dem Schlauch:
In einer Tabelle befinden sich folgende Werte:
Spalte A -- Text1, Text2 .... Text 4000
Spalte B -- Text1, Text2 .... Text 4000
Spalte C -- Zahl1, Zahl2 .... Zahl 4000
Zeile 1 -- die Suchbegriffe, also z.B. Text 2, Text7,...
28.12.2009 18:32:43
Thread-ID: 1126094
3 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge

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
2
6
7
7
6
2
1
2
5
3
10
3
3
2
8
2
4
4
13
4
9
4
8
4