Avatar billede rabitjosph Juniormester
17. januar 2009 - 06:39 Der er 2 kommentarer og
1 løsning

Fjerne streger i ark

Hej

Hvordan kan jeg få min makro til at finde liniere 3 4 5 og så fjerne alle streger i arket de har forskellige længde,jeg ved ikke på forhånd hvor de er i regnearket.

De kommer når jeg importer mine tekstfiler og kan ikke undgå dem


    A      B        C        D        E    F
1  6801  801481  37520A  #NAVN?  2100  1
2  9993  801481  37520A  #NAVN?  2100  1
3  ----  ----------  ------  ---  ----  ---
4  ----  ----------  ------  ---  ----  ---
5  ----  ----------  ------  ---  ----  ---
Avatar billede oleelo Nybegynder
17. januar 2009 - 10:33 #1
Hej
Det er lidt uklart hvornår og hvad du vil fjerne
Denne mackro fjerner alle "-" i dit områder ( aktive ark )
Du kan altid rette betingelserne eller det der skal fjernes

Sub Erstat()
Dim cel As Range
Dim TestVerid As String
Dim Omrode As Range '
Set Omrode = ActiveSheet.UsedRange

For Each cel In Omrode

TestVerid = cel.Value
  If InStr(1, TestVerid, "-") > 0 Then
  cel.Value = Replace(TestVerid, "-", "")
End If

Next

End Sub
Avatar billede rabitjosph Juniormester
18. januar 2009 - 14:36 #2
Svar mange tak
Avatar billede oleelo Nybegynder
18. januar 2009 - 15:18 #3
Mange tak
oleelo
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
Kurser inden for grundlæggende programmering

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