Suchfunktion im Excel
lima-city → Forum → Programmiersprachen → Basic
bestimmten eintrag
cell
eintrag
existiert gru
fehler
prozedur
spalten
test
vielen dank
vorgesehen
zusammen
-
Hallo zusammen
Ich bin gerade daran ein Makro f?r das Excel zu schreiben. Nun habe ich folgendes Problem.
Das Makro durchsucht ein Excelsheet nach einem Bestimmten eintrag. Wird der Eintrag gefunden ist alles okey, wird er nicht gefunden gibt er mir einen ?Fehler zur?ck.
Was kann ich dagegen tun?
Sub test()
If Cells.Find(What:="A10 1", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate Then
Range("H6").Select
ActiveCell.FormulaR1C1 = "A10 1"
If Cells.Find(What:="A10 4", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate Then
Range("H9").Select
ActiveCell.FormulaR1C1 = "A10 4"
If Cells.Find(What:="A77 1", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate Then
Range("H10").Select
ActiveCell.FormulaR1C1 = "A77 1"
End If
End If
End If
End If
End If
End Sub
Vielen Dank im Voraus
Hurim -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Du hast keine Else-Prozedur vorgesehen... Vielleicht liegts daran. Ansonsten vielleicht mal alles per F8 durchgehen.
-
Hallo
Also die Idee mit dem "Else" ist zwar gut, es geht jedoch trotzdem nicht.
Das problem Lieg in dieser Spalte:
If Cells.Find(What:="A10 4", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate Then
Weil dieser Eintrag nicht existiert.
Gruss Hurim
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage