Thema Datum  Von Nutzer Rating
Antwort
11.01.2020 16:07:23 Eik87
NotSolved
11.01.2020 16:27:33 Gast7777
NotSolved
11.01.2020 17:08:40 Gast43103
NotSolved
11.01.2020 17:32:21 Gast90717
NotSolved
Rot Prüfung finden
 11.01.2020 18:37:30 xlKing
Solved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
11.01.2020 18:37:30		 Views:
696		 Rating:
     
Antwort:
 Nein
Thema:
Prüfung finden

Hallo Eik,

zu: "Leider funktioniert mein Code nicht."  Doch der funktioniert. Habs grad ausprobiert. Du musst dir allerdings bewusst sein, dass Find immer nur den ersten Treffer findet. Weitere Treffer suchst du mit FindNext. Richtig wäre der Code in etwa so:

Set Bereich = Worksheets("Anwesenheitsliste").Range("R:R").Find(what:=Pause(n))
If Not Bereich Is Nothing Then
  First = Bereich.Address
  Do
    Set Bereich = Worksheets("Anwesenheitsliste").Range("R:R").FindNext(Bereich)
    Bereich.Offset(0, 2).Value = Bereich.Offset(0, 2).Value * -1
  Loop Until Bereich.Address = First
End If

Gruß Mr. K.

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
11.01.2020 16:07:23 Eik87
NotSolved
11.01.2020 16:27:33 Gast7777
NotSolved
11.01.2020 17:08:40 Gast43103
NotSolved
11.01.2020 17:32:21 Gast90717
NotSolved
Rot Prüfung finden
 11.01.2020 18:37:30 xlKing
Solved