Problem beim Ändern, wenn Blattname gleich...
05.11.2002 10:03:05
Tobias Wutschka
hab wieder ein kleines Problem. Mit dem folgenden Makro will ich Sternchen und anführende Leerzeichen entfernen, wenn der Blattname nicht Vertrieb und nicht Coburg ist, aber irgendwie sagt er, dass die Typen nicht verträglich seien, obwohl doch mein Vergleich auf Strings beruht... Wißt ihr weiter?
Sub Sternchen()
Dim Test3 As String
Dim Test1, Test2 As String
For Each ws In Worksheets
Test3 = ws.Name
Test1 = "Vertrieb"
Test2 = "Coburg"
If Not Test3 = Test1 Or Test3 = Test2 Then
ws.Select
Cells.Replace What:="~*", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
LetzteZeile = ActiveSheet.[A65536].End(xlUp).Row
For I = 4 To LetzteZeile
'Projektstruktur anführende Leerzeichen entfernen
Cells(I, 1).Value = "'" & TrennIt(Cells(I, 1).Value)
Next I
End If
Next
End Sub