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:
1141		 Rating:
     
Antwort:
  Ja
Thema:
Dein Code / Mein Code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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