Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zelleninhalt mappeA in spalte mappeB suchen

zelleninhalt mappeA in spalte mappeB suchen
15.07.2003 11:48:43
manfred
hi leute,
möchte mittels vba den gleichen inhalt(oder wert) der zelle A3 aus mappeA, blatt1
in spalteA(A1:A200),mappeB,blatt1 oder blatt2 suchen und markieren.
In der spalteA sind keine doppelten werte vorhanden.
sollte die forderung blatt1 oder blatt2 zu aufwendig sein, reicht auch blatt1.
gruß an alle...manfred

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ich wünsche mir zu Weihnachten
15.07.2003 16:00:55
Andreas Walter
ein Glaskügel,
damit ich alle diese halbbeschriebene Probleme lösen kann.
Bitte post mal Deinen GENAUEN CODE
ABER VORHER
versuche es zu vereinfachen bzw. testen
Wenn Du z.B. hast
if workbooks("mappeA").worksheets("blatt1").cells(1,3).value=workbooks("mappeB").worksheets("blatt2").cells(i,1).value then
schreib mal folgendes vorher
msgbox workbooks("mappeA").name
msgbox workbooks("mappeA").worksheets("blatt1").name
msgbox workbooks("mappeA").worksheets("blatt1").cells(1,3).name
(Ich tippe darauf, dass es nicht
workbooks("mappeA")
sondern
workbooks("mappeA.xls")
heissen soll. Probier mal
msgbox workbooks(1).name

Anzeige
jetzt klappts endlich
16.07.2003 11:34:55
manfred
hallo andreas, hoffe du siehst noch mal rein; hab deinen ansatz passend
hingebogen:

Sub index()
For i = 1 To 200
If Workbooks("mappeA.xls").Worksheets("blatt1").Range("a3").Value = Workbooks("mappeB.xls").Worksheets("blatt1").Cells(i, 1).Value Then
Windows("mappeB.xls").Activate
Sheets("blatt1").Activate
Cells(i, 1).Select
Exit Sub
End If
Next i
For i = 1 To 200
If Workbooks("mappeA.xls").Worksheets("blatt1").Range("a3").Value = Workbooks("mappeB").Worksheets("blatt2").Cells(i, 1).Value Then
Workbooks("mappeB.xls").Activate
Sheets("blatt2").Activate
Cells(i, 1).Select
Exit Sub
End If
Next i
MsgBox "Gibt es nicht"
End Sub

vielen dank aber für deine geduld

Anzeige
Sehr schön aber...
16.07.2003 14:28:06
Andreas Walter
du hast es nicht ausreichend getestet, da du einmal
Workbooks("mappeB.xls").
und einmal
Workbooks("mappeB").
hast
Ferner hast Du einmal
Windows("mappeB.xls").Activate
und einmal
Workbooks("mappeB.xls").Activate
Danke für Feedback

AW: Ich wünsche mir zu Weihnachten
15.07.2003 16:24:43
manfred
hi andreas, hab deinen 1.ansatz trocken getestet,also mit zwei neuen
einfachen arbeitsmappe, diesmal immerhin schon bis zur fehlermeldung:"
die select-methode des range-objektes ist fehlerhaft.
ok statt ner glaskugel, klär ich dich kurz über das gesamte vorhaben auf:
1.in mappeA markiere und kopiere ich einen bereich
2.öffnen der mappeB
3.(jetzt käme dein einsatz)suche in spalteA von MappeB den gleichen wert wie
in zelleA3 von mappeA,wenn gefunden,markieren
4.einfügen
für einen einmaligen gebrauch wäre der aufwand unsinnig, aber die werte in mappe
A ändern sich wöchentlich sowie die stelle in mappeB.
auf die schreibweise mappeA.xls habe ich geachtet
falls ich heute nicht mehr antworte, muß um 17.00 uhr arbeiten
gruß aus bremen

Anzeige
AW: zelleninhalt mappeA in spalte mappeB suchen
15.07.2003 12:57:43
Andreas Walter
Ansatz - nicht getestet
For i=1 to 200
if workbooks("mappeA").worksheets("blatt1").cells(1,3).value=workbooks("mappeB").worksheets("blatt1").cells(i,1).value then
workbooks("mappeB").worksheets("blatt1").cells(i,1). select
exit sub
end if
next i
For i=1 to 200
if workbooks("mappeA").worksheets("blatt1").cells(1,3).value=workbooks("mappeB").worksheets("blatt2").cells(i,1).value then
workbooks("mappeB").worksheets("blatt2").cells(i,1). select
exit sub
end if
next i
msgbox "Gibt es nicht"
end sub

AW: zelleninhalt mappeA in spalte mappeB suchen
15.07.2003 15:34:33
manfred
hallo andreas, danke für deinen ansatz,kann ihn leider nicht durchtesten,
weil wieder die fehlermeldung, die ich schon bei meinen versuchen hatte,erscheint,
nämlich. "index außerhalb eines gültigen bereichs", wobei die zeile mit mappeA
gelb gekennzeichnet ist; bei meinen versuchen war es immer die mappeB,weiß nicht worin der
bock liegt...
gruß manfred

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige