Tabellenkalkulation

Teile eines Strings löschen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, ich möchte über ein Makro bei einer Zeichenkette von 17 zeichen immer die ersten 14 Zeichen löschen. Es steht in z.B. A12 [b]Motorleistung:134[/b] A13 [b]Motorleistung:145[/b] u.s.w Es soll am Ende nur noch [b]134[/b] oder [b]145[/b] in den Feldern verbleiben. Der Bereich ist von A12 bis A22 Bitte um Hilfe

Antwort 1 von jasper

das geht doch auch ohne makro: teil(a12;14;3)
formel dann nach unten kopieren

Antwort 2 von Fisch22

Danke ersteinmal, aber es soll auf mehrere Tabellen angewendet werden, desshalb benötige ich es als Makro.

Antwort 3 von Fukal

Stringbearbeitungsfunktion MID:
neu=mid(alt,15,3)

Antwort 4 von rainberg

Hallo Fisch,

probier mal das

Option Explicit

Sub last_3()
    Dim rngZelle As Range, intI As Integer
    For intI = 1 To ActiveWorkbook.Worksheets.Count
        For Each rngZelle In Sheets(intI).Range("A12:A22")
            rngZelle = Right(rngZelle, 3)
        Next rngZelle
    Next intI
End Sub

Antwort 5 von Fisch22

Ich danke Euch, es funktioniert.

Mit freundlichen Grüssen