Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich Bedingung2 erfolgen.
Autor: Coffee
Datum: 25.10.15 11:48
. . For y = 1 To Rnumber 'Bedingung1 If Cells(y, 1) = "Purchases" Then For p = 1 To Column3 If Cells(1, p) = "Par Amount " Then colPA = p end if If Cells(1, p) = "Price" Then colPP = p End If Next p 'Bedingung2 If Cells(y, 1) = "Sales" Then For p = 1 To Column3 If Cells(1, p) = "Par Amount " Then colSA = p End If If Cells(1, p) = "Price " Then colSP = p End If Next p End If If Cells(y, 1) = "Purchases" Or Cells(y, 1) = "Sales" Then Nrows = Cells(y, 1).End(xlDown).Row Workbooks(fname).Activate Rnumber1 = Cells(Rows.Count, 2).End(xlUp).Row + 1 For b = y + 1 To Nrows If Workbooks(wbOpen.Name).Sheets(1).Range("A" & b) <> "" Then '+ 1 Range("B" & Rnumber1 + b - y - 1) = Workbooks(wbOpen.Name).Sheets(1).Range("A" & b) '+ 1 'Bedingung1 If Workbooks(wbOpen.Name).Sheets(1).Cells(y, 1) = "Purchases" Then Range("A" & Rnumber1 + b - y - 1) = Workbooks(wbOpen.Name).Sheets(1).Cells(b, 3) '+ 1 Range("C" & Rnumber1 + b - y - 1) = "Purchase" Range("D" & Rnumber1 + b - y - 1) = Workbooks(wbOpen.Name).Sheets(1).Cells(b, colPA) '+ 1 If Workbooks(wbOpen.Name).Sheets(1).Cells(b, colPP) > 2 Then '+ 1 Range("E" & Rnumber1 + b - y - 1) = Workbooks(wbOpen.Name).Sheets(1).Cells(b, colPP) / 100 '+ 1 Else Range("E" & Rnumber1 + b - y - 1) = Workbooks(wbOpen.Name).Sheets(1).Cells(b, colPP) '+ 1 End If' n ' Range("F" & Rnumber1 + b - y - 1) = Range("D" & Rnumber1 + b - y - 1) - Range("D" & Rnumber1 + b - y - 1) * Range("E" & Rnumber1 + b - y - 1) End If 'Bedingung2 If Workbooks(wbOpen.Name).Sheets(1).Cells(y, 1) = "Sales" Then Range("C" & Rnumber1 + b - y - 1) = "Sale" Range("D" & Rnumber1 + b - y - 1) = Workbooks(wbOpen.Name).Sheets(1).Cells(b, colSA) If Workbooks(wbOpen.Name).Sheets(1).Cells(b, colSP) > 2 Then Range("E" & Rnumber1 + b - y - 1) = Workbooks(wbOpen.Name).Sheets(1).Cells(b, colSP) / 100 Else Range("E" & Rnumber1 + b - y - 1) = Workbooks(wbOpen.Name).Sheets(1).Cells(b, colSP) End If If Range("D" & Rnumber1 + b - y - 1) < 0 Then Range("F" & Rnumber1 + b - y - 1) = Range("D" & Rnumber1 + b - y - 1) - Range("D" & Rnumber1 + b - y - 1) * Range("E" & Rnumber1 + b - y - 1) Else Range("F" & Rnumber1 + b - y - 1) = -(Range("D" & Rnumber1 + b - y - 1) - Range("D" & Rnumber1 + b - y - 1) * Range("E" & Rnumber1 + b - y - 1)) End If End If End If Next b End If End If Next y . . .

wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich Bed...	1.501	Coffee	25.10.15 04:38
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	862	Manfred X	25.10.15 09:21
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	909	Coffee	25.10.15 11:48
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	818	Coffee	25.10.15 11:50
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	796	Manfred X	25.10.15 13:48
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	852	Coffee	25.10.15 14:06
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	810	Manfred X	25.10.15 14:22
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	800	Coffee	25.10.15 14:45
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	843	Manfred X	25.10.15 15:03
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	834	Coffee	25.10.15 15:10
Re: wenn Bedingung1 erfüllt ist soll unter Bedingung1 gleich...	768	Coffee	26.10.15 18:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen