Schleifen Pbm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleifen Pbm

26.07.2005 22:04:15

Matthias

AW: Schleifen Pbm

26.07.2005 22:30:42

Stan

AW: Schleifen Pbm

26.07.2005 22:42:43

Matthias

AW: Schleifen Pbm

26.07.2005 22:54:10

stan

AW: Schleifen Pbm

26.07.2005 22:59:38

Matthias

AW: Schleifen Pbm

26.07.2005 23:12:48

stan

Noch OFFEN

26.07.2005 23:40:21

Matthias

AW: Schleifen Pbm

26.07.2005 22:08:28

Berber

AW: Schleifen Pbm

27.07.2005 13:32:04

ede

Hallo Stan,
also in deinem dein seltsamerweise als .doc-Anhang geposteten Code finde ich diese Zeile nicht, überhaupt scheint alles "nass" zu sein:


Sub Stan()
Ltzeile = ThisWorkbook.Worksheets("AbsatzZwischenprod").[b65536].End(xlUp).Row
For zeile = 1 To Ltzeile
If InStr((ThisWorkbook.Worksheets("AbsatzZwischenprod").Cells(zeile, 2)), "MinAbsatz von Nassware") > 0 Then
zeile = zeile + 1
For r = 1 To AnzAbsatzregion
For a = 1 To Anzzwprod
l = 1
For j = 0 To AnzJahre - 1
For k = 0 To 11
If ErloesZwprodnass(a, r) = "" Then
MengeMinAbsZPnass(r, a, l) = ""
Else
If ThisWorkbook.Worksheets("AbsatzZwischenprod").Cells(zeile, l + 2) > 0 Then
MengeMinAbsZPnass(r, a, l) = ThisWorkbook.Worksheets("AbsatzZwischenprod").Cells(zeile, l + 2)
MsgBox ("Menge= " & MengeMinAbsZPnass(r, a, l) & "region" & r & "Zwprod" & a & " zeile= " & zeile & " spalte= " & l + 2)
l = l + 1
End If
End If
Next k
Next j
zeile = zeile + 1
Next a
Next r
End If
Next zeile
End Sub

Oder habe ich ein Pbm m. d. Agn? ;-)
Gruß Matthias

Hi Matthias,
sorry das war
If ErloesZwprodnass(a, r) = "" Then
MengeMinAbsZPnass(r, a, l) = ""
aber mit der Excel Datei ist es vielleicht klarer!! https://www.herber.de/bbs/user/25025.xls
ich möchte allen Daten in die Variable MengeMinAbsZPnass(r, a, l)
mein Pbm hier es gibt insgesamt 12 Zwischenprodukte aber nicht alle werden in diese Tabelle eingetragen nur diejenige die einen Erlös haben.
an sich läuft das Programm nur er springt immer eine Zeile weiter egal ob er die If Bedingung oder die Else Bedingung erfüllt. und ich will daß er in zur nächste (Excel)Zeile springt wenn er die ELSE Bedingung erfüllt hat.
als Beispiel er fängt zeile=2 und Spalte =3 und geht bis ans Ende der Zeile (k=12 Monate mal j Jahre) und dann soll er zur nächste Zeile Springen wenn die Else Bedingung erfüllt ist d.h. ErloesZwprodnass(a, r) enthält Daten.
hoffentlich war es klarer
Gruß
stan

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread