Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen ersetzen VBA Excel

suchen ersetzen VBA Excel
10.11.2005 15:43:38
Kicki
Ich schon wieder.... man möge mir verzeihen ;-).
1. Zelle B5 Inhalt kopieren
2. Wechsel zu anderer Arbeitsmappe, nach kopiertem Inhalt in Spalte E suchen.
3. Wenn Wert gefunden, den Wert der Spalte F in der selben Zeile (wo Wert
gefunden wurde) in kopieren.
4. Wechseln zu anderem offenen Arbeitsmappe und Wert in Zelle B5 eintragen.
Wie geht das?
Ganz liebe Grüße,
Kicki

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen ersetzen VBA Excel
11.11.2005 04:09:48
Hilbman
Hallo Kicki,
Versuche folgenden Code

Sub suchen_und_ersetzen()
Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Set wb1 = Workbooks("Mappe1")
Set wb2 = Workbooks("Mappe2")
Set ws1 = wb1.Worksheets("Tabelle1")
Set ws2 = wb2.Worksheets("Tabelle2")
For i = 1 To ws2.Rows.Count
If ws1.Cells(5, 2) = ws2.Cells(i, 5) Then
ws1.Cells(5, 2) = ws2.Cells(i, 6)
Exit For
End If
Next
End Sub

Folgende Annahmen wurden gemacht:
1. Beide Mappen sind geöffnet
2. Der zu suchende Wert steht in Mappe1 -Tabelle1 auf Zelle B5
3. Der neue Wert steht in Mappe2 - Tabelle2 in Spalte E
Gruß Hilbman
Anzeige
AW: suchen ersetzen VBA Excel
11.11.2005 11:57:56
Kicki
Hallo Hilbmann,
danke für den Tip. Jetzt habe ich nur noch ein Problem:
Set wb1 = Workbooks("Mappe1") - Mappe1 änder ich in den Namen der Mappe (ist beständig)
Set wb2 = Workbooks("Mappe2") - Der Name der jeweils geöffneten Datei ändert sich aber,
allerdings beginne alle mit Time_ . Nur was dahinter
kommt ist jedesmal verschieden. Kann ich irgendwie an-
geben, dass er immer die offene Datei nimmt, die mit
Time_ beginnt?
Liebe Grüße,
Kicki
AW: suchen ersetzen VBA Excel
13.11.2005 13:05:33
Hilbman
Hallo Kicki,
Sorry, daß ich erst jetzt auf deine neue Frage eingehen kann.
Ich war beruflich und Privat die letzten beiden Tage "verhindert"
Jetzt zu deiner Frage.
Natürlich kann man eine teilqualifizierte Abfrage der Namen der geöffneten Mappen erreichen :

Sub suchen_und_ersetzen()
Dim wb1 As Workbook, wb2 As Workbook, wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Set wb1 = Workbooks("zwei Mappen")
'Namen aller geöffneten Mappen feststellen
For Each wb In Excel.Workbooks
'Nach der Mappe suchen, die im Namen "Time" beinhaltet und wb2 zuweisen
If InStr(1, wb.Name, "Time") <> 0 Then
Set wb2 = Workbooks(wb.Name)
End If
Next
Set ws1 = wb1.Worksheets("Tabelle1")
Set ws2 = wb2.Worksheets("Tabelle2")
For i = 1 To ws2.Rows.Count
If ws1.Cells(5, 2) = ws2.Cells(i, 5) Then
ws1.Cells(5, 2) = ws2.Cells(i, 6)
Exit For
End If
Next
End Sub

Der Code funktioniert allerdings nur dann fehlerfrei, wenn nur eine Mappe mit dem Namen "Time ..." geöffnet ist !!!
Sollten mehrere Mappen mit "Time ..." geöffnet sein, so müsste man sich weitere Regeln überlegen, die dann immer die richtige Mappe für die Zuweisung zu wb2 selectiert. Dazu kenne ich aber deine Anwendung zu wenig, um hier konkrete Tips geben zu können.
Gruß Hilbman
Anzeige

299 Forumthreads zu ähnlichen Themen

Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Anzeige
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Anzeige
Zelle suchen und ausgeben per VBA
Lutz

Hallo,
ich habe eine Mehrdfachoperation, bei der ich mehrere Parameter gegeneinander auswerte. Dabei benutze ich immer eine %-Änderung der Parameter. Ich würde gerne neben den Ergebnissen der Mehrfachoperation aber auch die absoluten Werte der Parameter ausgeben. Da ich mehr als 7 Parameter...
10.02.2009 20:42:00
Thread-ID: 1049308
8 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
bedingte Formatierung suchen u. ersetzen durch VBA
Peter

Guten Tag
Ich habe in einer Tabelle an verchiedenen Orten immer die gleiche bedingte Formatierung (Bedingung ist eine Formel). Nun möchte ich diese überall durch eine andere bedingte Formatierung ersetzen.
Ist dies möglich, mit Hilfe von VBA? Wenn ja, wie?
Danke für eine Antwort.
19.03.2009 06:55:03
Thread-ID: 1061661
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
16
2
2
5
1
7
1
3
18
7
2
2
6
2
4
7
10
6
4
5
5
2
5
5
1