Spezielles Range objekt
25.11.2002 11:49:49
Florian Keller
ich habe ein großes Problem: Ich habe in zwei Sheets geöffnet. Ein Schlüsselfeld des ersten Sheets soll im zweiten gefunden werden. wenn der Schlüssel nicht gefunden wird, dann gehe zurück in das erste Blatt und nimm den nächsten Schlüssel. Ich habe eine For Schleife dafür verwendet. Problem:
Dim Bereich as Range
Dim Schlüssel as String
Dim i as Integer, nz as Integer
nz = Columns(1).Find("").Row
For i = 2 to nz -1
Worksheets("A").Select
Schlüssel = Cells(i,1).Value
Worksheets("B").Select
Set bereich = Columns(3).Find(Schlüssel).Row ***Zeigt hier Fehler an???
If bereich is nothing then goto Zeile1
j = Columns(3).Find(schlüssel).Row
Cells(j,4).Value = " Gefunden"
Zeile1:
next i