Hilfe zu Makro Text und Zahlen trennen
16.07.2008 09:25:23
Michael
ich habe folgendes Makro, welche mir i.d.R Text und Zahlen trennt. Allerdings habe ich jetzt eine Datei, in welcher´in der zu trennenden Spalte auch immer mal mehrere = stehen. Hier bleibt das Makro dann regelmäßig hängen. Kann man das Makro so anpassen, dass die = als Text interpretiert werden?
Sub trennen()
Dim lZeile As Long
Dim iPosit As Integer
Dim sEingabe As String
Dim sZeichen As String
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
For lZeile = 1 To Range("A65536").End(xlUp).Row
sEingabe = Trim(Range("A" & lZeile).Value)
For iPosit = 1 To Len(sEingabe)
sZeichen = Mid(sEingabe, iPosit, 1)
If sZeichen " " Then
If IsNumeric(sZeichen) Then
Range("B" & lZeile).Value = Range("B" & lZeile).Value & sZeichen
Else
Range("C" & lZeile).Value = _
Mid(sEingabe, iPosit, Len(sEingabe) - (iPosit - 1))
Exit For
End If
End If
Next iPosit
Next lZeile
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.NumberFormat = "General"
Columns("B:B").Select
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="="
Range("A1:B1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A1:M124").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Font.Bold = False
Selection.Font.Bold = True
Selection.AutoFilter Field:=1
End Sub
Anzeige