Suchen/Ersetzen usw.; bitte nochmal helfen
11.11.2005 13:04:28
Kicki
1. Workbook2 Zelle B5 Inhalt kopieren
2. Wechsel zu Workbook1, 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 Workbook2 und Wert in B5 eintragen
Soweit wurde mir schon geholfen, aber unter der Annahme, dass
1. Der zu suchende Wert steht in Mappe1 -Tabelle1 auf Zelle B5
2. Der neue Wert steht in Mappe2 - Tabelle2 in Spalte E
Muß aber sein wie oben angegeben.
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
Und dann bliebe mir noch mein größtes Problem....
bei Set bw1 = Workboos ("Mappe1") - ist es leicht für mich, den Namen der Datei anzugeben, denn der bleibt konstant.
aber bei Set ws2 = Workbooks (Mappe") - ändert sich dauernd der Name der Arbeitsmappe (da nacheinander 2000 aufgerufen werden). Einzige Gemeinsamkeit ist, dass alle Mappen mit Time_ beginnen. Wie kann ich bewerkstelligen, dass er als Workbook2 immer die offene Datei mit Namensbeginn Time_ als Workbook2 ansieht?
Kicki