Schleife / Sub nicht verlassen
09.02.2004 00:59:15
Erich M.
habe heute (gestern) von Hajo einen Code zum anpassen erhalten; mir fehlt
aber noch eine Kleinigkeit (vermute ich). Es geht darum, dass in einer Matrix
ein Wert gesucht wird und dann der Wert aus der Folgespalte in eine Zelle
übertragen wird. Nun funktioniert das soweit, bis die Werte gefunden werden,
wenn der Wert nicht gefunden wird, heisst es "Exit Sub"!
Leider schaffe ich es nicht den Code so umzubauen, dass er trotzdem weitermacht
und in diesem Fall einfach "" in die betroffene Zelle neben dem nicht gefundenen
Wert schreibt:
Sub aaTesthajo2()
' erstellt von Hajo.Ziplies@web.de 12.04.03
' geändert Erich M. 8.2.04
Dim Found As Range, i As Integer
Dim LoLetzte As Long
Dim sSearch As String
' sSearch = InputBox("Suchbegriff:", , "Bau")
' If sSearch = "" Then Exit Sub
LoLetzte = 65536
For i = 2 To 200
sSearch = Sheets("Tabelle2").Cells(i, 1)
If Sheets("Status").Range("A65536") = "" Then LoLetzte = Sheets("Status").Range("A65536").End(xlUp).Row
Set Found = Sheets("Status").Range("A1:A" & LoLetzte).Find(sSearch, Sheets("Status").Range("A" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird Sub verlassen
' Range(Found.Address).Select
Sheets("Tabelle2").Cells(i, 7) = Sheets("Status").Range(Found.Address).Cells(1, 2)
Sheets("Tabelle2").Cells(i, 8) = Sheets("Status").Range(Found.Address).Cells(1, 3)
Next
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich