Gennemløbe range, VBA

Hej folj

Hvis du sætter "Set" foran DeliveriesRange så virker det.

Sub SkrivBemaerkningRawWare()

Dim DeliveriesRange As Range
Dim ReminderText As String

  ReminderText = "Husk at bla, bla..."

  Set DeliveriesRange = ActiveSheet.Range("A3:H25")
 
  For i = 1 To DeliveriesRange.Rows.Count
    If DeliveriesRange(i, 5) = "My Rawware" Then
      DeliveriesRange(i, 8) = ReminderText
    End If
   
  Next i
 
End Sub

Sub SkrivBemaerkningRawWare_1()

Dim DeliveriesRange As Range
Dim ReminderText As String

  ReminderText = "Husk at bla, bla..."

  Set DeliveriesRange = ActiveSheet.Range("A3:H25")  '<---
   
  For i = 1 To DeliveriesRange.Rows.Count
    If DeliveriesRange(i, 5) = "My Rawware" Then
      DeliveriesRange(i, 8) = ReminderText
    End If
     
  Next i
   
End Sub

Too late

@IT-GuFFe
Kender du typen der læser noget bagfra - eksempelvis et ugeblad eller en avis, eller som her de indlæg der var kommet.
Derfor fik jeg uheldigvis læst indlæget fra Supertekst som det første, og det var jo god hjælp, så uagtet at du også havde leveret det rigtige svar, så fik jeg accepteret svaret fra Supertekst.
Først efterfølgende lænede jeg mig tilfreds tilbage, for lige at læse hvad der ellers var af bud...

Derfor var jeg ikke opmærksom på at du som den første havde leveret de efterspugte "Guldkorn".

Haha ja sådan kan det jo gå ;-)

Point er jo ret lige gyldigt, det vigtigste er at du er kommet videre fra dit problem :)