|
Geschrieben von: Marcus Rose
|
|
Samstag, 26. April 2008 um 10:14 Uhr |
nicht erlaubte Zeichen findenDieses Makro zeigt wie man eine Zeichenfolge, mittels Arrays, nach nicht gewünschtes Zeichen durchsuchen kann. | | A | B | | 1 | Eintrag | naßö | | 2 | Nicht erlaubte Zeichen | äßüö |
Option Explicit
Sub vergleich()
Dim bprop(30) As Variant 'erlaubte Anzahl Zeichen in der Zelle B1
Dim bprop2(7) As Variant 'erlaubte Anzahl der verbotenen Zeichen in B2
Dim i As Integer
Dim j As Integer
Dim Tausch As Integer
For i = Len(Range("B1")) To 1 Step -1
bprop(i) = Right(Mid(Range("B1"), i, 1), 1)
Next i
For j = Len(Range("B2")) To 1 Step -1
bprop2(j) = Right(Mid(Range("B2"), j, 1), 1)
Next j
If Len(Range("B1")) >= Len(Range("B2")) Then
Tausch = Len(Range("B1"))
Else
Tausch = Len(Range("B2"))
End If
For i = 1 To Tausch
For j = 1 To Tausch
If bprop(i) = bprop2(j) Then
MsgBox ("Das Zeichen " & bprop(i) & " ist hier nicht erlaubt!")
End If
Next j
Next i
End Sub
|
VBA Makro Beispiele 
