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
Blau Dein Code / Mein Code
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
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:
22.04.2014 16:22:33
Views:
1040
Rating: Antwort:
  Ja
Thema:
Dein Code / Mein Code
Option Explicit

Sub DeinCode()
 Dim o As Integer
 Dim x As Integer   'Zählvariable

For o = 2004 To 3 Step -1
If [Sheets("OverviewX").Cells(o, 1)] >= [Sheets("Calculus").Cells(49,3)] Then
Sheets("OverviewX").Cells(6, 4).Value = Sheets("Calculus").Cells(o, 6).Value
Sheets("OverviewX").Cells(6, 9).Value = Sheets("Calculus").Cells(60, 3).Value
Sheets("OverviewX").Cells(6, 12).Value = "0" - Sheets("Calculus").Cells(49, 3)
x = x + 1
End If
'Exit For = Murks - egal wo es steht, die Schleife wird beendet !
Next
MsgBox "Anzahl Bedingung erfüllt = " & CStr(x) & "mal"
End Sub

Sub MeinCode()
 Dim o As Integer
 Dim x As Integer   'Zählvariable

For o = 2004 To 3 Step -1
Rem **************************************************************************
'If [Sheets("OverviewX").Cells(o, 1)] >= [Sheets("Calculus").Cells(49,3)] Then
Rem Denn - was sollen die [ ] Brackets ?
Rem die evaluieren und die Bedingung ist immer erfüllt
Rem **************************************************************************
If Sheets("OverviewX").Cells(o, 1) >= Sheets("Calculus").Cells(49, 3) Then
Sheets("OverviewX").Cells(6, 4).Value = Sheets("Calculus").Cells(o, 6).Value
Sheets("OverviewX").Cells(6, 9).Value = Sheets("Calculus").Cells(60, 3).Value
Sheets("OverviewX").Cells(6, 12).Value = "0" - Sheets("Calculus").Cells(49, 3)
x = x + 1
End If
'Exit For = Murks - egal wo es steht, die Schleife wird beendet !
Next
MsgBox "Anzahl Bedingung erfüllt = " & CStr(x) & "mal"
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
Blau Dein Code / Mein Code
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
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