Zelle aus Range entspricht "Wert"

Sub () iRowL = Cells(Rows.Count, 1).End(xlUp).Row For iRow = 1 To iRowL If Application.Count(Range(Cells(iRow, 1), Cells(iRow, SpalteEins))) > 0 _ And Range(Cells(iRow, 1), Cells(iRow, SpalteZwei)).vlaue = "Print" Then Cells(iRow, SpalteDrei) = Cells(iRow, SpalteEins) * Faktor End If Next iRow End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub () Dim iRow As Integer '( oder lRow As Long), iRowL As Integer ' oder Long Dim Faktor As Double ' ? Dim s As String Faktor = '? was ist den der Faktor iRowL = Cells(Rows.Count, 1).End(xlUp).Row For iRow = 1 To iRowL s = Cells(iRow,1).Value If IsNumeric(s) Then ' Abfrage, ob Zahl If Cells(iRow, 1).Value > 0 And Cells(iRow, 2).Vlaue = "Print" Then Cells(iRow, 3) = Cells(iRow, 1) * Faktor End If End if Next iRow End Sub

Sub () Dim iRow As Integer '( oder lRow As Long), iRowL As Integer ' oder Long Dim Faktor As Double ' ? Dim s As String Faktor = '? was ist den der Faktor iRowL = Cells(Rows.Count, 1).End(xlUp).Row For iRow = 1 To iRowL s = Cells(iRow,1).Value If IsNumeric(s) Then ' Abfrage, ob Zahl If Cells(iRow, 1).Value > 0 And Cells(iRow, 2).Value = "Print" Then Cells(iRow, 3) = Cells(iRow, 1) * Faktor End If End if Next iRow End Sub

Sub x() Const Faktor = 0.5 Dim rc As Range For Each rc In ActiveSheet.Range(Cells(1, 2), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2)) If rc.Value = "Print" Then rc.Offset(0, 1) = rc.Offset(0, -1) * Faktor Next End Sub

Sub x() Const Faktor = 0.5 Dim rc As Range For Each rc In Range(Cells(1, 2), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2)) If rc.Value = "Print" And rc.Offset(0, -1) > 0 Then _ rc.Offset(0, 1) = rc.Offset(0, -1) * Faktor Next End Sub

Sub x() Dim iRow As Integer, iRowL As Long, Faktor As Integer Faktor = 5 iRowL = Cells(Rows.Count, 1).End(xlUp).Row For iRow = 1 To iRowL If Cells(iRow, 1).Value > 0 And Cells(iRow, 2).Value = "Print" Then Cells(iRow, 3) = Cells(iRow, 1) * Faktor End If Next iRow End Sub

Es geht ja wieder mal richtig ab hier!
Supervielen Dank für die Überflutung von Antworten.
ich habe zuerst ULF's version versucht (für mich am Einfachsten zu verstehen)
das hat aber nicht geklappt:


Sub SalesTeamFieldSalesLagerFix_V2()
Dim iRowL As Integer, iRow As Integer
Dim SpalteEins As Integer
Dim SpalteZwei As Integer
Dim SpalteDrei As Integer
Dim Faktor As Single
SpalteEins = 53 ' Faktor 1
SpalteZwei = 54 ' Spalte Produkt
SpalteDrei = 5  ' Spalte für Bereichsüberprüfung
Faktor = Worksheets("int Leistungsverrechnung").Range("B93")
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Cells(iRow, SpalteEins).Value > 0 And Cells(iRow, SpalteDrei).Value = "Print" Then
Cells(iRow, SpalteZwei) = Cells(iRow, 1) * Faktor
End If
Next iRow
End Sub

Dann habe ich Chaos's Version genommen und die geht jetzt.


Sub SalesTeamFieldSalesLagerFix_V3()
Dim iRowL As Integer, iRow As Integer
Dim SpalteEins As Integer
Dim SpalteZwei As Integer
Dim SpalteDrei As Integer
Dim Faktor As Single
Dim s As String
SpalteEins = 53 ' Faktor 1
SpalteZwei = 54 ' Spalte Produkt
SpalteDrei = 5  ' Spalte für Bereichsüberprüfung
Faktor = Worksheets("int Leistungsverrechnung").Range("B93")
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
s = Cells(iRow, SpalteEins).Value
If IsNumeric(s) Then ' Abfrage, ob Zahl
If Cells(iRow, SpalteEins).Value > 0 And Cells(iRow, SpalteDrei).Value = "Print" Then
Cells(iRow, SpalteZwei) = Cells(iRow, SpalteEins) * Faktor
End If
End If
Next iRow
End Sub

Deine Version Renee ist wohl die eleganteste, aber für mich auch die schwierigste zum verstehen, da ich noch nicht so das gross Know how habe.
Danke nochmals an alle! :-)

Beliebteste Forumthreads (12 Monate)

Zelle aus Range entspricht "Wert"

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle aus Range entspricht "Wert"

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread