Avatar billede tonnym Nybegynder
01. juli 2004 - 09:45 Der er 3 kommentarer og
1 løsning

Variable i macro fra excel

Jeg har et problem med en replace macro jeg har indspillet fra Excel.

Den vil simpelthen ikke erstatte noget når jeg sætter en variable ind :o(

Dim MONTH As String
Dim NewMonth As String
Dim OLDMONTH As String
   
   
    Sheets("BY FORDELING").Select
    Range("A1000").Select
    OLDMONTH = ActiveCell.Value
    Range("A3").Select
   


    MONTH = InputBox("Angiv hvilken måned du ønsker i perioden ( f.eks. jan eller feb )", _
    "Måned :", "Jan")

    NewMonth = MONTH

    Range("A1:Y1").Select
    ActiveCell.Value = MONTH
   
    MONTH = ";" & MONTH

    MsgBox MONTH, vbOKOnly
    MsgBox OLDMONTH, vbOKOnly
    Range("A3:Y46").Select
    Selection.Replace What:=OLDMONTH, Replacement:=MONTH, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False



    Range("A1000").Select
    ActiveCell.Value = MONTH
    Range("A3").Select
   
    MsgBox "Ændring til måneden - " & NewMonth & " - er klar!", vbOKOnly

Jeg har prøvet alt hvad jeg kender til af " & osv. men det hjalp ikke. Hvad er der lige som jeg overser ?!?!?
Avatar billede kabbak Professor
01. juli 2004 - 10:33 #1
Public Sub erstat()
Dim MONTH As String
Dim NewMonth As String
Dim OLDMONTH As String
   
   
    Sheets("BY FORDELING").Select
   
    OLDMONTH = Range("A1000")
   
    MONTH = InputBox("Angiv hvilken måned du ønsker i perioden ( f.eks. jan eller feb )", _
    "Måned :", "Jan")

    NewMonth = MONTH

    Range("A1:Y1").Select

   
    'MONTH = ";" & MONTH , hvad bruger du den til

    MsgBox MONTH, vbOKOnly
    MsgBox OLDMONTH, vbOKOnly
    Range("A3:Y46").Select
   
    Selection.Replace What:=OLDMONTH, Replacement:=MONTH, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
 
    Range("A1000") = NewMonth
      Range("A3").Select
   
    MsgBox "Ændring til måneden - " & NewMonth & " - er klar!", vbOKOnly
End Sub
Avatar billede kabbak Professor
01. juli 2004 - 10:39 #2
'MONTH = ";" & MONTH , hvad bruger du den til
hvis du bruger den til at sætte ";" foran måned, skal du gøre sådan.

Public Sub erstat()
Dim MONTH As String
Dim NewMonth As String
Dim OLDMONTH As String
   
   
    Sheets("BY FORDELING").Select
   
    OLDMONTH = Range("A1000")
   
    MONTH = InputBox("Angiv hvilken måned du ønsker i perioden ( f.eks. jan eller feb )", _
    "Måned :", "Jan")

   
    Range("A1:Y1").Select

   
    MONTH = ";" & MONTH
    MsgBox MONTH, vbOKOnly
    MsgBox OLDMONTH, vbOKOnly
    Range("A3:Y46").Select
   
    Selection.Replace What:=OLDMONTH, Replacement:=MONTH, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
 
    Range("A1000") = MONTH
      Range("A3").Select
   
    MsgBox "Ændring til måneden - " & NewMonth & " - er klar!", vbOKOnly
End Sub
Avatar billede tonnym Nybegynder
01. juli 2004 - 10:41 #3
jeg erstatter i denne formel :
=HVIS(ER.IKKE.TILGÆNGELIG(LOPSLAG("20221";MajS;2;FALSK));0;LOPSLAG("20221";MajS;2;FALSK))

Har blot altid brugt et tegn eller lign. for at sikre mine erstatninger ikke gik ud over andre ting i formlen. Men må indrømme at jeg ikke lige i det her tilfælde kan finde nogle steder der skulle påvirkes af Jan... Dec.

Det virker i hvert fald uden ; ! Så smid et svar :o)
Avatar billede kabbak Professor
01. juli 2004 - 10:44 #4
Ok, et svar
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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