VBA - Split
27.07.2021 16:18:54
excelliebe
ich erhalte bei folgendem Code einen Laufzeitfehler bei
Ich suche dabei zunächst nach der Spalte mit der Überschrift "Bezeichnung". In der nächsten freien Spalte sollen dann die ersten 11 Buchstaben des Values in der Spalte Bezeichnung stehen. Im Anschluss möchte ich diese trennen nach dem Bindestrich "Trennzeichen", sodass aus einer Spalte drei werden.
Sub TextInSpalten()
Application.ScreenUpdating = False
'Dimensionen
Dim letzteZeile As Range
Dim letzteSpalte As Long
Dim SpalteBez As Range
Dim lastrow As Long
Dim Trennen() As String
'Variablen definieren
letztZeile = Sheets("Name").Cells(Rows.Count, "A").End(xlUp).Row
letzteSpalte = Sheets("Name").Cells(1, Sheets("Name").Columns.Count).End(xlToLeft).Column
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Formel LINKS & TextInSpalten
With Worksheets("Name")
Set SpalteBez = .Rows(1).Find(what:="Bezeichnung", LookIn:=xlValues, lookat:=xlWhole)
Set rng1 = .Range(.Cells(2, letzteSpalte), .Cells(letztZeile, letzteSpalte))
Dim i As Long
For i = 1 To lastrow
Cells(i, letzteSpalte + 1).Value = Left(Cells(i, SpalteBez.Column).Value, 11)
Next
Dim j As Integer
Dim Text As String
Text = Cells(i, letzteSpalte).Value
Trennen = Split("Text", "-")
For j = 1 To lastrow
Cells(2, letzteSpalte + 1) = Trennen(i)
Next
End With
Application.ScreenUpdating = True
End Sub
Kann jemand helfen?