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 ---- ---------- ------ --- ---- ---
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