Array Splitten Transponse Ausgabe in 2 Spalten

Hallo VBA experten,
ich habe eine frage und bitte um eure Hilfe.
Ich komme alleine nicht weiter:(
Ich habe eine Tabelle1. In Spalte 1 Stehen z.b Werte untereinander.
27>27
17>17
6>6
17>1
usw...
diese möchte ich gerne in ein Array übernehmen und dann in Tabelle2 ausgeben.
In tabelle 2 sollen die Werte aber nicht in einer spalte ausgegeben werden sondern in 2.
trennzeichen ist ">"
ich habe es schon so versucht aber es klappt nicht und ich weiß nicht weiter.
Option Explicit


Sub diagramm()
Dim lz_erster As Integer
Dim lz_letzter As Integer
Dim Daten_erster
Dim Daten_letzter
Dim cb
lz_erster = Worksheets("Analyse").Cells(Rows.Count, 1).End(xlUp).Row
lz_letzter = Worksheets("Analyse").Cells(Rows.Count, 5).End(xlUp).Row
Daten_erster = WorksheetFunction.Transpose(Range("A4:A" & lz_erster))
End Sub

vielen Dank für eure Hilfe.
gruß Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Splitten() Dim lz_erster As Long ' besser nicht integer Dim lz_letzter As Long Dim zz As Long, pp As Long, arrA, arrB With Worksheets("Tabelle1") ' Lesen in Tab1, Sp. A lz_erster = .Cells(.Rows.Count, 1).End(xlUp).Row arrA = Application.Transpose(.Cells(1, 1).Resize(lz_erster)) End With ReDim arrB(1 To lz_erster, 1 To 2) For zz = 1 To lz_erster pp = InStr(arrA(zz), ">") If pp = 0 Then pp = Len(arrA(zz)) arrB(zz, 1) = Left(arrA(zz), pp - 1) arrB(zz, 2) = Right(arrA(zz), Len(arrA(zz)) - pp) Next zz With Worksheets("Tabelle2") ' Ausgeben in Tab2, Sp. 5+6 lz_letzter = .Cells(.Rows.Count, 5).End(xlUp).Row .Cells(lz_letzter + 1, 5).Resize(lz_erster, 2) = arrB End With End Sub

Sub Splitten2() Dim lz_erster As Long ' besser nicht integer Dim lz_letzter As Long Dim zz As Long, pp As Long, arrA, arrB, arrS With Worksheets("Tabelle1") ' Lesen in Tab1, Sp. A lz_erster = .Cells(.Rows.Count, 1).End(xlUp).Row arrA = Application.Transpose(.Cells(1, 1).Resize(lz_erster)) End With ReDim arrB(1 To lz_erster, 1 To 2) For zz = 1 To lz_erster arrS = Split(arrA(zz), ">") arrB(zz, 1) = arrS(0) If UBound(arrS) > 0 Then arrB(zz, 2) = arrS(1) Next zz With Worksheets("Tabelle2") ' Ausgeben in Tab2, Sp. 5+6 lz_letzter = .Cells(.Rows.Count, 5).End(xlUp).Row .Cells(lz_letzter + 1, 5).Resize(lz_erster, 2) = arrB End With End Sub

Sub SplittenT() Dim lngQ As Long, rngQ As Range With Worksheets("Tabelle1") ' Quellbereich in Tab1, Sp. A lngQ = .Cells(.Rows.Count, 1).End(xlUp).Row Set rngQ = .Cells(1, 1).Resize(lngQ) End With With Worksheets("Tabelle2") With .Cells(.Cells(.Rows.Count, 5).End(xlUp).Row + 1, 5).Resize(lngQ) .Value = rngQ.Value ' Ausgeben in Tab2, Sp. 5, dann aufteilen .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _ Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _ Other:=True, OtherChar:=">", _ FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True End With End With End Sub

Sub splitten() Dim arrTmp, arrSplit, i As Long With Sheets(1) arrTmp = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) End With ReDim arrSplit(1 To UBound(arrTmp), 1 To 2) For i = 1 To UBound(arrTmp) arrSplit(i, 1) = Split(arrTmp(i, 1), ">")(0) arrSplit(i, 2) = Split(arrTmp(i, 1), ">")(1) Next Sheets(2).Cells(1, 1).Resize(UBound(arrTmp), 2) = arrSplit End Sub

Beliebteste Forumthreads (12 Monate)

Array Splitten Transponse Ausgabe in 2 Spalten

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array Splitten Transponse Ausgabe in 2 Spalten

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread