VBA - Code For Schleife wird nicht richtig ausgeführt

[ngassanov]

Hallo Zusammen,

ich habe den folgenden Code geschrieben, tut aber nicht das wofür er vorgesehen ist. In der For-Schleife wird die If-Bedingung nicht ausgeführt.

Sub EURUSD()

Dim r1 As Range
Dim r2 As Range
Dim r3 As Range
Dim r4 As Range
Dim tr As Long

Set r1 = Worksheets("EURUSD=").Range("priceEUR")
Set r2 = Worksheets("EURUSD=").Range("dateEUR")
Set r3 = Worksheets("DPFC_EUR").Range("A11:A2232")
Set r4 = Worksheets("DPFC_EUR").Range("B11:B2232")

With Application
    .StatusBar = "Wait"
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

Worksheets("DPFC_EUR").Range("B11:B2232").ClearContents

For tr = 1 To r3.Rows.Count
  If r3.Cells(tr, 1).Value = r2.Cells(tr, 1).Value Then
  r4.Cells(tr, 1).Value = r1.Cells(tr, 1).Value
 
  End If
 
Next tr

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    .CutCopyMode = False
    .StatusBar = ""
End With

End Sub

Bereits jetzt vielen Dank im Voraus!

Viele Grüße

Nazim

[BoskoBiati]

Hi,

hast Du den Code im Debug-Modus durchlaufen lassen?
Welcher Fehler tritt auf?

[schauan]

Hallöchen,

sind die benannten Bereiche genau so lang wie die unbenannten?
übrigens, r4.ClearContents sollte auch gehen ...

[RPP63]

Moin!
Nur ein dezenter Hinweis.
Es ist zwar nicht "verboten", aber zumindest verwirrend, Variablennamen zu wählen, die bereits indirekt belegt sind.

Code:

Sub Wirrwar()
Dim h4 As Range
Set h4 = Range("b2")
h4.Select
Range("h4").Select
Range(h4).Select 'läuft in LZF
End Sub

So wie ich Deinen Code deute, würde ich hier doch eher eine Formel wählen?
Zeigst Du mal die Datei?

Gruß Ralf