Syntaxfrage zu Replace

Sub NamenÄndern() Dim nm As Name Dim nmAlt As Name Dim nmNeu As Name Application.ScreenUpdating = False Application.Calculation = xlCalculationManual nmAlt = InputBox("?", "Alter Name oder Namensteil") nmNeu = InputBox("?", "Neuer Name oder Namensteil") If Len(nmAlt) Len(nmNeu) Then MsgBox "bubu" Else For Each nm In ActiveWorkbook.Names If Left(nm, Len(nmAlt)) = nmAlt Then Application.WorksheetFunction.Replace(nmalt, 1, len(nmalt), nmneu) End If Next nm End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub NamenÄndern() Dim nm As Name Dim nmAlt As Name Dim nmNeu As Name nmAlt = InputBox("?", "Alter Name oder Namensteil") nmNeu = InputBox("?", "Neuer Name oder Namensteil") If Len(nmAlt) Len(nmNeu) Then MsgBox "bubu" Else For Each nm In ActiveWorkbook.Names nm.Name = Replace(nm.Name, nmAlt, nmNeu) End If Next nm End If End Sub

Sub NamenÄndern() Dim nm As Name Dim nmAlt As String Dim nmNeu As String nmAlt = InputBox("?", "Alter Name oder Namensteil") nmNeu = InputBox("?", "Neuer Name oder Namensteil") If Len(nmAlt) Len(nmNeu) Then MsgBox "bubu" Else For Each nm In ActiveWorkbook.Names nm.Name = Replace(nm.Name, nmAlt, nmNeu) Next nm End If End Sub

hatte das Beispiel aus der Hilfe als Vorlage genommen - da steht auch was von Gleichheitszeichen
jetzt sieht das so aus - kein Fehler, aber macht auch keine Änderung:

Sub NamenÄndern()
'ändert Bereichsnamen
Dim nm As Name
Dim nmAlt As String
Dim nmNeu As String
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
nmAlt = InputBox("Neuer Name oder Namensteil", "Namen ändern")
nmNeu = InputBox("Neuer Name oder Namensteil", "Namen ändern")
If Len(nmAlt)  Len(nmNeu) Then MsgBox "bubu"
For Each nm In ActiveWorkbook.Names
If Left(nm, Len(nmAlt)) = nmAlt Then
nm.Name = Application.WorksheetFunction.Replace(nmAlt, 1, Len(nmAlt), nmNeu)
End If
Next nm
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Sub changeNamesName() Dim objName As Name Dim strFind As String, strReplace As String strFind = "Meier" strReplace = "Muhu" For Each objName In ThisWorkbook.Names If LCase(objName.Name) Like "*" & LCase(strFind) & "*" Then objName.Name = Replace(objName.Name, strFind, strReplace, Compare:=vbTextCompare) End If Next End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Syntaxfrage zu Replace

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread