VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
gabi

Datum:
22.04.2014 16:22:33

Views:
970

Rating:

Antwort:

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
Quasi Lookup	22.04.2014 12:49:36	Ole
Quasi Lookup	22.04.2014 13:27:01	Gast59773
Quasi Lookup	22.04.2014 13:44:35	Ole
Dein Code / Mein Code	22.04.2014 16:22:33	gabi
Dein Code / Mein Code	22.04.2014 18:15:48	Ole
Dein Code / Mein Code	22.04.2014 18:43:46	gabi
Dein Code / Mein Code	23.04.2014 08:38:45	Gast55403
Dein Code / Mein Code	23.04.2014 09:11:20	gabi
und wenn	23.04.2014 09:14:59	gabi
und wenn	23.04.2014 13:12:22	Gast9795
Dein Code / Mein Code	23.04.2014 08:14:12	Ole