Thema Datum  Von Nutzer Rating
Antwort
22.04.2014 12:49:36 Ole
NotSolved
22.04.2014 13:27:01 Gast59773
NotSolved
22.04.2014 13:44:35 Ole
NotSolved
22.04.2014 16:22:33 gabi
NotSolved
22.04.2014 18:15:48 Ole
NotSolved
22.04.2014 18:43:46 gabi
NotSolved
23.04.2014 08:38:45 Gast55403
NotSolved
Blau Dein Code / Mein Code
 23.04.2014 09:11:20 gabi
Solved
23.04.2014 09:14:59 gabi
NotSolved
23.04.2014 13:12:22 Gast9795
NotSolved
23.04.2014 08:14:12 Ole
NotSolved

Ansicht des Beitrags:
Von:
gabi		 Datum:
23.04.2014 09:11:20		 Views:
926		 Rating:
     
Antwort:
 Nein
Thema:
Dein Code / Mein Code		 
Sub NachErstemTreffer()
Dim o As Integer
For o = 2004 To 3 Step -1
  If Sheets("OverviewX").Cells(o, 1) >= Sheets("Calculus").Cells(49, 3) Then
  'die Bedingung ist erfüllt
  'hier die Anweisungen wo abgearbeitet werden
  '
  '
  'wurden beim ersten Treffer von unten nach oben erledigt
  'jetzt
  Exit Sub
  'denn die Prozedur hat nix mehr zu tun !
  End If
Next o
End Sub

Sub NachmehrTreffern()
'z.B. Nur die ersten unteren 3 Treffer
Const intMax As Integer = 3
Dim o As Integer
Dim Zähler As Integer


Zähler = 1
For o = 2004 To 3 Step -1
  If Sheets("OverviewX").Cells(o, 1) >= Sheets("Calculus").Cells(49, 3) Then
  'die Bedingung ist erfüllt
  'hier die Anweisungen wo abgearbeitet werden
  '
  '
  'wurden beim  Treffer von unten nach oben erledigt
  'jetzt
  If Zähler = intMax Then Exit Sub
  'denn die Prozedur hat bei erreichen von 3 nix mehr zu tun !
  Zähler = Zähler + 1
  End If
Next o
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
22.04.2014 12:49:36 Ole
NotSolved
22.04.2014 13:27:01 Gast59773
NotSolved
22.04.2014 13:44:35 Ole
NotSolved
22.04.2014 16:22:33 gabi
NotSolved
22.04.2014 18:15:48 Ole
NotSolved
22.04.2014 18:43:46 gabi
NotSolved
23.04.2014 08:38:45 Gast55403
NotSolved
Blau Dein Code / Mein Code
 23.04.2014 09:11:20 gabi
Solved
23.04.2014 09:14:59 gabi
NotSolved
23.04.2014 13:12:22 Gast9795
NotSolved
23.04.2014 08:14:12 Ole
NotSolved