Text entfernen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub textEntfernen() Dim rng As Range Dim strTemp As String Dim intC As Integer For Each rng In Selection For intC = 1 To Len(rng) If IsNumeric(Mid(rng, intC, 1)) Or Mid(rng, intC, 1) = "," Then strTemp = strTemp & Mid(rng, intC, 1) End If Next rng = strTemp * 1 strTemp = "" Next End Sub

Sub textEntfernen() Dim rng As Range, strTemp As Variant, intC As Integer For Each rng In Selection If rng <> "" Then For intC = 1 To Len(rng) If IsNumeric(Mid(rng, intC, 1)) Or Mid(rng, intC, 1) = "," Then strTemp = strTemp & Mid(rng, intC, 1) End If Next rng = strTemp * 1 strTemp = "" End If Next End Sub

Ähm . . . hoffe ich nerve nicht, aber ich hab noch ne Frage:
Mir fällt gerade auf, dass ich die Begriffe "pos" und "neg" ebenfalls nicht löschen möchte.
Ich habe daraufhin deinen Code folgendermaßen geändert:


Sub textEntfernen2()
Dim rng As Range, strTemp As Variant, intC As Integer
For Each rng In Selection
If rng <> "" Then
For intC = 1 To Len(rng)
If IsNumeric(Mid(rng, intC, 1)) Or Mid(rng, intC, 1) = "," Or Mid(rng, intC, 1) = "neg" Or Mid(rng, intC, 1) = "pos" Then
strTemp = strTemp & Mid(rng, intC, 1)
End If
Next
rng = strTemp * 1
strTemp = ""
End If
Next
End Sub

Jetzt bekomme ich aber wieder eine Fehlermeldung.
Kurzum: wie kann ich selbständig selber Begriffe hinzufügen, die NICHT gelöscht werden sollen?
Oh, ihr seid ja echt aktiv hier!
Find ich super! :)
LG
Katja

Hallo Katja,
so geht's:

Sub textEntfernen2()
    Dim rng As Range, strTemp As Variant, intC As Integer
    For Each rng In Selection
        If rng <> "" And rng <> "neg" And rng <> "pos" And rng <> "neg." And rng <> "pos." Then
            For intC = 1 To Len(rng)
                If IsNumeric(Mid(rng, intC, 1)) Or Mid(rng, intC, 1) = "," Or Mid(rng, intC, 1) = "pos" Or Mid(rng, intC, 1) = "neg" Or Mid(rng, intC, 1) = "pos." Or Mid(rng, intC, 1) = "neg." Then
                    strTemp = strTemp & Mid(rng, intC, 1)
                End If
            Next
            If InStr(1, strTemp, ",") Then
                If strTemp = "," Or InStr(InStr(1, strTemp, ",") + 1, strTemp, ",") > 0 Then
                    rng = ""
                    strTemp = ""
                End If
            End If
            If strTemp <> "" Then rng = strTemp * 1 Else rng = ""
            strTemp = ""
        End If
    Next
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread