Wert aus einer Zelle in 2 Zellen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Wert aus einer Zelle in 2 Zellen
von: Joachim S
Geschrieben am: 18.06.2002 - 09:47:20

Guten Morgen

Ich habe folgende Tabelle

MS Excel von Joachim S
 ABCDEFGH
1i:9  f:6  g:7  e:5
2c:3  d:4  b:2  a:1
3h:8  l:12  j:10  k:11


die beginnt bei f5 und geht bis z25.
Nun bräuchte ich ein Makro das diese Zellen dursucht und wenn ein Wert durch doppelpunkt getrennt ist, der Wert rechts vom Doppelpunkt in die Zeile rechts daneben verschoben wird.
Also an dem Beispiel
i:9 das in Zelle F5 steht soll dann
in F5 i stehen und
in F5 9

Ich hoffe ich habs einigermaßen erklärt
heisse Grüße vom Bodensee
Josi

nach oben   nach unten

Re: Wert aus einer Zelle in 2 Zellen
von: Martin
Geschrieben am: 18.06.2002 - 10:49:36

Hallo Josi,
das folgende Makro funktioniert nur, wenn deine Tabelle immer so aufgebaut ist, wie du sie dargestellt hast. D.h. die aufzuteilenden Daten sind immer in Spalte 1, 3, 5, bzw. A, C, E, usw.

Sub Aufteilen()
Dim Spalte As Integer
On Error Resume Next
For Spalte = 1 To 25 Step 2
Columns(Spalte).TextToColumns Destination:=Cells(1, Spalte), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
Other:=True, OtherChar:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Next Spalte
End Sub

ebenfalls heisse Grüße aus Italien
Martin

nach oben   nach unten

Re: Wert aus einer Zelle in 2 Zellen
von: Joachim
Geschrieben am: 18.06.2002 - 11:08:44

Vielen Dank

Und weiter frohes schwitzen
ich hoffe am Meer


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Wert aus einer Zelle in 2 Zellen"