|
Hallo zusammen,
ich habe folgendes Problem:
Für einige Tabellen die Ergebnisse einiger statistischer Tests zeigen, möchte ich möglichst mit Hilfe eines Makros die Buchstaben für die Signifikanzen von den Mittelwerten lösen.
Anstatt in einer Zelle bspw. [1,7 AB] soll danach [1,7] in der einen und rechts davon in der Zelle das [AB] zu finden sein.
Im einzelnen geht das gut über den Text in Spalten Befehl. Da ich dies aber nicht für alle Tabellen und darüber hinaus alle Spalten händisch machen möchte, suche ich ein Makro.
Das Suchen der Zeilen in denen jeweils die Mittelwerte zu finden sind, ist auch gut möglich. Nur an der Durchführung der Trennung in den Zellen daneben hängt es.
Mein momentaner Stand sieht wie folgt aus:
Sub Trennen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, "A") = "Mittelwert)" Then
Cells(i, "B").Select
Selection.TextToColumns Destination:=Range(i, "B"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End If
Next
Application.ScreenUpdating = False
End Sub
Problem ist, dass dies erstens nicht funktioniert und ich darüber hinaus zusätzlich auch noch die Werte in Spalte D,F,H,J und L trennen wollen würde.
Ist dies möglich?
Beste Grüße
Linus
|