Array Splitten Transponse Ausgabe in 2 Spalten
23.04.2009 10:44:32
chris
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
Anzeige