|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Wort suchen von der aktiven Zelle, bei Bedingung Wert eintragen |
05.03.2014 12:11:52 |
Inka |
|
|
|
05.03.2014 12:38:50 |
Gast10130 |
|
|
|
05.03.2014 13:37:31 |
Inka |
|
|
|
05.03.2014 17:35:00 |
frau |
|
|
Von:
Inka |
Datum:
05.03.2014 12:11:52 |
Views:
1608 |
Rating:
|
Antwort:
|
Thema:
Wort suchen von der aktiven Zelle, bei Bedingung Wert eintragen |
|
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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Wort suchen von der aktiven Zelle, bei Bedingung Wert eintragen |
05.03.2014 12:11:52 |
Inka |
|
|
|
05.03.2014 12:38:50 |
Gast10130 |
|
|
|
05.03.2014 13:37:31 |
Inka |
|
|
|
05.03.2014 17:35:00 |
frau |
|
|