Avatar billede folj Forsker
06. juli 2015 - 10:31 Der er 4 kommentarer og
1 løsning

Gennemløbe range, VBA

Hej Eksperter !


Jeg har en liste i et excel-ark jeg gerne vil løbe igennem, og hvis der står et bestemt råvarenavn i kolonne 5, så vil jeg gerne indskrive en bemærkningstekst i kolonne 8.

Jeg har lavet nedenstående forsøg selv, men den fejler på "Object variable og With block variable not set" på linien 'DeliveriesRange = ActiveSheet.Range("A3:H25")'.


Sub SkrivBemaerkningRawWare()

Dim DeliveriesRange As Range
Dim ReminderText As String

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

  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


Nogen der kan hjælpe med, hvad gør jeg forkert?
Avatar billede Mads Larsen Nybegynder
06. juli 2015 - 11:19 #1
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
Avatar billede supertekst Ekspert
06. juli 2015 - 11:22 #2
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
Avatar billede supertekst Ekspert
06. juli 2015 - 11:22 #3
Too late
Avatar billede folj Forsker
06. juli 2015 - 12:48 #4
@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".
Avatar billede Mads Larsen Nybegynder
06. juli 2015 - 13:19 #5
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 :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Centrica Energy

Senior BI Developer

Cognizant Technology Solutions Denmark ApS

Sr. Test Analyst

MAN Energy Solutions

Department Manager Edge Platform

Cognizant Technology Solutions Denmark ApS

Data Architect