If-Schleife mit 3 Bedingungen

[pepo1943]

Hallo Freunde,
ich habe folgendes Problem und hofedass mir einer helfen kann.
Das nachstehende Makro soll in Form einer if-Schleife die Zellen 1.10 un 1.11 abfragen und wenn beide den Wert >1 enthalten UND in der Zelle 1.18 kein Wert steht in diese Zelle den Wert von AB1 schreiben. Leider funktioniert es aber nicht, keine Fehlermeldung und kein Erfolg.

Sub AktualisierenReferenzkunden()

Application.ScreenUpdating = False

    Dim rngData As Range
    Dim intZeile As Variant
   
ActiveSheet.Unprotect Password:="a1b2c3"
ThisWorkbook.Sheets("Buchhaltung").Unprotect Password:="a1b2c3"
Sheets("Buchhaltung").Select
   
   
    Range("A1").Activate
    For intZeile = 5 To 3490

    Set rngData = Selection

    If rngData.Cells(1, 10).Value > 0 And rngData.Cells(1, 11).Value > 0 And rngData.Cells(1, 18).Value > 0 Then
        rngData.Cells(1, 18).Value = Range("AB1").Value
    End If
    ActiveCell.Offset(1, 0).Select
    Next intZeile
   
    Range("AB1").Value = Range("AB1").Value + 1
   
End Sub


Vielen Dank

Peter

[Beverly]

Hi Pter,

versuche es mal so:

Code: [Auswählen]

Sub AktualisierenReferenzkunden()
   Dim lngZeile As Long
   With Worksheets("Buchhaltung")
      .Unprotect Password:="a1b2c3"
      For lngZeile = 5 To 3490
         If .Cells(lngZeile, 10).Value > 0 And .Cells(lngZeile, 11).Value > 0 _
            And .Cells(lngZeile, 18).Value > 0 Then _
            .Cells(lngZeile, 18).Value = .Range("AB1").Value
      Next lngZeile
      .Range("AB1").Value = .Range("AB1").Value + 1
      .Protect Password:="a1b2c3"
   End With
End Sub
Bis später,
Karin

[pepo1943]

Hallo Karin,
vielen Dank, es funktioniert!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Beste Grüße
Peter