Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, ich möchte einen Text in einer Zelle kürzen, komm aber nicht drauf wie ich das machen soll. In einer Zelle steht zum Beispiel: Human Resource (1) Dieser Zelleintrag soll nun so gekürzt werden, dass HR (1) danach drinsteht. Hat jemand einen Idee wie der VBA Code dafür lauten muss? Vielen Dank! Fossi

Hallo,

angenommen in Spalte A stehen diese Texte mit verschiedener Länge. Angenommen zur Trennung der Wörter steht ein Leerzeichen, dann kannst Du folgendes Makro verwenden. Die Ergebnisse stehen dann in Spalte B!

 Option Explicit

Sub test()
 Dim n As Integer
 Dim m As Integer
 Dim BS1 As String
 Dim BS2 As String
 Dim BS3 As String
 
 For m = 1 To Cells(Rows.Count, 1).End(xlUp).Row
 For n = 2 To Len(Cells(m, 1).Text)
   BS1 = Left$(Cells(m, 1), 1)
   If Mid$(Cells(m, 1).Text, n, 1) = " " Then
     BS2 = Mid$(Cells(m, 1).Text, n + 1, 1)
     n = Len(Cells(m, 1).Text)
    End If
 Next

 For n = 2 To Len(Cells(m, 1).Text)
   If Mid$(Cells(m, 1).Text, n, 1) = "(" Then
     BS3 = Mid$(Cells(m, 1).Text, n)
   End If
 Next
 Cells(m, 2).Value = BS1 & BS2 & " " & BS3
 Next
End Sub

Gruß
Günter

Danke Günter,

werd's gleich ausprobieren.

Gruß
Fossi

• Ändern der Symbolleiste im Internet-Explorer
• Fahrradübersetzung verkürzen
• Bootvorgang beschleunigen
• Werte verkürzen
• Text in Zellen formatieren