foutmelding in macro

[jantje1]

Excell amateur, 'k zou dit nog graag in voorgaande code willen zetten maar krijg dit helaas niet klaargespeeld.
Kan jij mij hierbij helpen?

Dim str1 As String, str2 As String

    Dim nieuwestr As String

    Dim rng As Range, cel As Range

    Dim z As Integer

    Set rng = Sheets("blad1").Range("A1", Sheets("blad1").Range("A65536").End(xlUp))

        For Each cel In rng

     

        If InStr(cel, "NMSG") > 0 Then          'NMSG kan woord naar eigen keuze worden

            z = InStr(cel, "NMSG")                     'z retourneert steeds de beginpositie

            

            str1 = Left(cel, z - 1)

            str2 = Mid(cel, z + 1, Len(cel))

            nieuwestr = str1 & str2

            cel.Offset(0, 1) = nieuwestr

 

        ElseIf InStr(cel, "N MSG") > 0 Then

            z = InStr(cel, "N MSG")

            str1 = Left(cel, z - 1)

            str2 = Mid(cel, z + 1, Len(cel))

            nieuwestr = str1 & str2

            cel.Offset(0, 1) = nieuwestr

        End If

     

    Next

End Sub

 

[OctaFish]

Kun je de code een beetje opschonen, en opmaken met de CODE knop (knop #) Dat houdt e.e.a. wat leesbaarder. En al die lege regels ertussen hoeven wat mij betreft ook niet

 

[ExcelAmateur]

jantje1,

Ik zat op de camping, dus ben wat laat met reageren.

Bedenk wel dat ik geen programeur ben dus heb ik het waarschijnlijk niet prof. op gelost maar denk wel dat het werkt.

Onderaan het blad heb ik "NMSG en N MSG" toegevoegd om te testen.
Ik zie wel wat je er van vind.

 

[jantje1]

Bedankt maar helaas werkt het hier bij mij niette,als er namelijk N MSG staat in het program en laat het hernummeren verwijderd hij deze regel ipv MSG te zetten op die regel.
Alvast bedankt...

 

[ExcelAmateur]

De file die ik gisteren geplaatst heb werkt die wel bij je?

Ik denk dat ik het gevonden heb, hoor / zie het wel.

 

[jantje1]

De regel blijft nu wel degelijk staan maar krijg nog wel een bloknummer hiervoor.

N NMSG wordt na het hernummeren N5 NMSG en zou gewoon NMSG moeten worden. Heb zelf al geprobeerd maar krijg steeds een fout.

Vriendelijke groeten ...

 

[ExcelAmateur]

Volgens mij werkt hij nu zoals je wil.

Pretige Pasen.

 

[jantje1]

Bij mij werkt dit niet er wordt nog steeds een nummer voorgezet voor N NMSG.
$G17-H300-B001-E1.MIN%
N20
N25 NMSG (NMSG zou hier moeten komen te staan en niet N25 NMSG)
N30 VC77=0
N35 VZOFX[2]=-1741 VZOFY[2]=750 VZOFZ[2]=-215.000 (M198)
Er wordt nu voor NMSG nog een nummer gezet zoals hierboven op regel N25 en dit zou gewoon NMSG moeten worden.
Als het van machien komt staat er N NMSG en zou na hernummeren NMSG moeten komen te staan en geen N25 voor die NMSG.
Prettig Pasen en alvast bedankt.

 

[ExcelAmateur]

jantje1,

Hier is nog een poging.
Als je vandaag voor 5:00 uur niet gereageerd heb, zie ik het volgende week woensdag wel.

 

[jantje1]

Bedankt voor de reactie maar helaas werkt het niet, heb ondertussen nog iets bij ingezet een tot hier toe werkt het hier bij .
7
If InStr(cel, "N NMSG") > 0 Then
z5 = InStr(cel, "N NMSG")
str1 = Left(cel, 1)
str2 = Right(cel, 3)
nieuwwaarde5 = str1 & str2
cel.Offset(0, 9) = nieuwwaarde5
GoTo 8
End If


Vriendelijke groeten...