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

[BookShelf1130]

Einen schönen Tag alle miteinander,

da dies mein erster Beitrag ist, hoffe ich, dass meine Frage im richtigen Abschnitt dieses Forums gelandet ist - andernfalls weist mich gerne darauf hin.

In meiner Excel-Datei befinden sich im Bereich ("A1:A2000") die verschiedensten Texte. Im Bereich ("B1:B5") befinden sich Buchstaben-/Textkombinationen nach
immer der gleichen Struktur ((1x Buchstabe / 2x Zahl)  z.B. "A23").
Meine Frage lautet nun, ob es möglich ist, die Spalte "A" (wobei diese Kombination immer als Teil eines Größeren vorliegt) nach dieser Kombination zu durchsuchen,
den String vom Integer trennen, den Integer um den Wert 1 zu verringern und anschließend mit dem davor stehenden String den ursprünglichen Text überschreiben.

Hoffentlich, ist mein Anliegen einigermaßen verständlich geschrieben.

Vielen Dank für eure Mühen im Voraus.

Mit freundlichem Gruß

BookShelf1130

[Ego]

Hallo  b...,

Antwort: Ja

Mehr nur wenn du eine Beispieldatei hochlädst.

[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.