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 ?!?!?
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
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
'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
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)
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig