Suchen, Integer finden und verringern, Ersetzen (mit VBA)

[schauan]

Hallöchen,

im Prinzip geht das so. Ich habe hier mit Suchen & Ersetzen alle Treffer in Spalte A ersetzt und anschließend den Wert in B1 um 1 reduziert.

Code:

Sub Makro1()
   Columns("A:A").Select
   Selection.Replace What:=Cells(1, 2), Replacement:=Left(Cells(1, 2), 1) & Cells(1, 2), LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
   Cells(1, 2) = Left(Cells(1, 2), 1) & Right(Cells(1, 2), 2) - 1
End Sub

Ausgangszustand:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	A23	A23
2	BA24
3	KA23

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Das Ergebnis sieht dann so aus:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	AA23	A22
2	BA24
3	KAA23

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Jetzt müsste man noch eine Schleife Drumherum bauen, damit alle Einträge in Spalte B verarbeitet werden.