17. januar 2009 - 06:39Der 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 ---- ---------- ------ --- ---- ---
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
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.