AW: suchen und ersetzten
09.10.2018 21:28:42
Sepp
Hallo Jens,
wie lautet den die Fehlermeldung?
Bei mir läuft es ohne Probleme, habe nur einen kleinen Excel-Bug "umschifft".
Sub replaceNumbers()
Dim varNumber As Variant
Dim objWS As Worksheet, rng As Range
Dim lngIndex As Long
On Error GoTo ErrorHandler
With Application
.Calculation = xlCalculationManual
.EnableEvents = False
End With
With Sheets("umwandeln")
Set rng = .Cells.Find("*")
varNumber = .Range("A1:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
For Each objWS In ThisWorkbook.Worksheets
If objWS.Name <> "umwandeln" Then
For lngIndex = 1 To Ubound(varNumber, 1)
If IsNumeric(varNumber(lngIndex, 1)) Then
objWS.Cells.Replace What:=varNumber(lngIndex, 1), Replacement:=varNumber(lngIndex, 2), _
LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End If
Next
End If
Next
ErrorHandler:
If Err.Number <> 0 Then MsgBox Err.Description
With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0