Herbers Excel-Forum - das Archiv

Problem bei Fehlerschleife

Bild

Betrifft: Problem bei Fehlerschleife
von: Christian

Geschrieben am: 27.12.2006 10:01:22
Hallo Leute,
ich habe ein kleines Problem bei der folgenden Prozedur.
Manteltresor_Abgang:
With Worksheets("Archiv")
Set gefunden = Worksheets("Manteltresor").Range("H10:H769").Find(Buchungsbelegnummer)
If Not Found Then MsgBox ("Bestand nicht gefunden !"): Exit Sub
gefunden.EntireRow.Cut
.Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).EntireRow.Insert
Set gefunden = Worksheets("Archiv").Range("L11:L769").Find("")
gefunden = Datum
End With
Ich vermute ich habe "If Not Found..." an der falschen stelle eingefügt.
Aber an welcher Stelle der Prozedur gehört es denn?
Bild

Betrifft: AW: Problem bei Fehlerschleife
von: ransi
Geschrieben am: 27.12.2006 10:18:33
HAllo
Versuchs mal so:
(Ungetestet)
If gefunden is nothing then
MsgBox ("Bestand nicht gefunden !")
Exit Sub
end if
gefunden.EntireRow.Cut
.
.
.
ransi
Bild

Betrifft: AW: Problem bei Fehlerschleife
von: Luschi

Geschrieben am: 27.12.2006 10:27:38
Hallo Christian,
die Variable "gefunden" muß vom Typ Range (also Zelle) sein. Hat Excel eine Zelle gefunden, die die gesuchte "Buchungsbelegnummer" enthält, dann entspricht "gefunden" genau dieser Zelle.
Findet Excel keine Zelle mit ...., dann enthält "gefunden den Typ "Nothing", also "nichts".
Deshalb geht's so:
Set gefunden = Worksheets("Manteltresor").Range("H10:H769").Find(Buchungsbelegnummer)
If Not (gefunden Is Nothing) Then
'eine Zelle mit gesuchtem Inhalt gefunden!
Else
'keine Zelle gefunden
End If
Mit "gefunden Is Nothing" wird "True", also "Wahr" zurückgegeben, wenn keine Zelle gefunden wurde. Deshalb muß man die Antwort mit "Not"verneinen, um zu erfahren, ob eine Zelle mit dem gesuchten Inhalt vorhanden ist.
Wie man es macht, wenn noch weitere Zellen den gleichen Inhalt haben sollten, dann siehe in der Vba-Excelhilfe nach. Dort ist ein Beispiel dazu vorhanden.
Gruß von Luschi
aus klein-Paris
Bild

Betrifft: AW: Problem bei Fehlerschleife
von: Christian
Geschrieben am: 27.12.2006 15:49:18
Danke Jungs, das war der Schubser in die richtige Richtung !!
 Bild
Excel-Beispiele zum Thema "Problem bei Fehlerschleife"
Verschnittproblem mit Solver lösen