Hallo Ihr Lieben,
ich suche nach möglichen Lösung für mein Problem. Ich möchte nach einen Wort suchen. Mit "find" lässt sich es aber nur in eine Richtung suchen. Ich möchte herausfinden ob bei dem Wort in Zelle daneben ein Wert steht. Die Suche wird sowohl oberhalb und unterhalb aktiven Zelle ausgeführt. Wenn das Wort gefunden wird, prüft die Schleife ob daneben ein Wert steht, wenn ja wird MsgBox ausgegeben mit Meldung. Wenn nein, wird ein Wert eingegeben. Es soll aber wirklich nach dem erstem Wort von der aktiven Zelle gesucht werden. Nicht weiter suchen.
Mit "find" komme ich nicht weiter.
If MsgBox("Abrechnung erfolgt?" _
, vbYesNo + vbExclamation) = vbYes Then
Cells.Find(what:="Abrechnunh", LookIn:=xlFormulas, lookat _
:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(, -1).Value = "3"
End If
Mein Gedanke:
Von der aktiven Zelle aus - suche in Spalte C nach erstem Wort "abgerechnet" , wenn gefunden prüfen ob Zelle links daneben leer ist (Spalte B), wenn ja Wert "3 " eintragen, wenn Wert schon vorhanden dann MsgBox("Bereits vorhanden!") ausgeben.
Für jegliche Kommentare oder Tipps werde ich sehr dankbar.
Inka |