Suchen und Ersetzen mit variablen Inhalt
05.01.2018 12:54:51
dove
ich habe ein kleines Problem und hoffe ihr könnt mir helfen.
Ich würde gerne mit folgendem Code nach einer bestimmten Spalte "SNDCMPS" suchen und in dieser Spalte nach einer Versionsnummer suchen und diese ersetzen / löschen.
DIe Versionsnummer ist folgendermaßen aufgabaut: [VXX]
Die XX stehen für Zahlen die beliebig sein können.
Ich steh grad auf dem Schlauch, was ich eingeben muss, damit er die beliebige Zahl nach dem V mitlöscht.
Sub DeleteVersionNumber()
Dim ColName As Range
Set ColName = ThisWorkbook.Worksheets(wbkZiel.Sheets.Count).Rows(1).Find(what:=SNDCMPS, lookat:= _
_xlWhole)
If ColName Is Nothing Then
MsgBox "Spalte konnte nicht gefunden werden!"
Else
ColName.EntireColumn.Select
Selection.Replace what:=" ", Replacement:=" ", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
End Sub