Habe ein Problem an dem ich langsam verzweifle!?
Habe folgenden Code: (iRow as Interger; rng as Range; wksA und wksB As Worksheet)
.
.
.
Do Until IsEmpty(wksB.Cells(iRow, 4))
Set rng = wksA.Columns(5).Find(wksB.Cells(iRow, 4))
If Not rng Is Nothing Then
a = 0
Do Until a = 10
If wksA.Columns(7).Rows(rng.Row) = wksB.Cells(iRow, 8) Then
If wksA.Columns(6).Rows(rng.Row).Value = wksB.Cells(iRow, 7) Then
' Nun hier liegt mein Problem, er soll die beiden Zellen Vergleichen und wenn die gleich sind weiter gehen. Aber wenn nun beide Zellen leer sind sind Sie ja auch gleich und soll weiter gehen aber er springt mir aus der If Bedingung raus.
Und ich weiß nicht wie ich das ändern kann??
Idee?
wksB.Cells(iRow, 25).Copy
Paste Destination:=wksA.Columns(27).Rows(rng.Row)
wksA.Columns(28).Rows(rng.Row) = (((wksA.Columns(19).Rows(rng.Row)) / (wksA.Columns(16).Rows(rng.Row))) * wksA.Columns(27).Rows(rng.Row))
End If
End If
Set rng = wksA.Columns(5).FindNext(After:=rng)
a = a + 1
Loop
End If
iRow = iRow + 1
Loop
End
.
.
.
Danke schon mal im vorraus.
MFG
Aleks