Thema Datum  Von Nutzer Rating
Antwort
05.03.2014 12:11:52 Inka
NotSolved
05.03.2014 12:38:50 Gast10130
NotSolved
05.03.2014 13:37:31 Inka
NotSolved
Blau Wort suchen von der aktiven Zelle, bei Bedingung Wert eintragen
 05.03.2014 17:35:00 frau
NotSolved

Ansicht des Beitrags:
Von:
frau		 Datum:
05.03.2014 17:35:00		 Views:
777		 Rating:
     
Antwort:
  Ja
Thema:
Wort suchen von der aktiven Zelle, bei Bedingung Wert eintragen

Hi Inka,

wie wär es denn "zu Fuß"  ;)

Option Explicit

Sub PerPedes()
Const SuchWort As String = "abgerechnet"
Const SuchSpalte As Long = 3
Const Wert As Integer = 3
Dim c As Range                            'Standpunkt
Dim la As Long, lr As Long                'akt. Zeile, letzte Blattzeile
Dim x As Long                             'Zähler

Set c = Selection
la = c.Row
lr = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row

Rem  Von der aktiven Zelle aus - suche in Spalte C nach erstem Wort "abgerechnet"
  For x = la To lr
    If Cells(x, SuchSpalte).Value = SuchWort Then
        Set c = Cells(x, SuchSpalte - 1)
        If c.Value = "" Then
          c.Value = Wert
        Else
           MsgBox ("Bereits vorhanden!")
        End If
        Exit Sub
    End If
  Next x
Rem nach unten nicht gefunden
Rem dann eben nach gewünschter Methode die Schleife über
Rem for x = la-1 to 1 step -1
Rem oder
Rem for x = 1 to la -1
End Sub

 

Ihre Antwort
  • 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: Name: Email:



  • 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
05.03.2014 12:11:52 Inka
NotSolved
05.03.2014 12:38:50 Gast10130
NotSolved
05.03.2014 13:37:31 Inka
NotSolved
Blau Wort suchen von der aktiven Zelle, bei Bedingung Wert eintragen
 05.03.2014 17:35:00 frau
NotSolved