Forums Neueste Beiträge
 

Tabellenspalte auslesen und zu StringAusdrücken der Form "s(i) = &H02BC:" machen

07/12/2008 - 20:17 von Ernst Tremel | Report spam
Hallo,

ich habe eine Tabellenspalte mit Unicodes (Hex-Zahlen) der Form
02BC
0410
0430


Und möchte, dass sie umgewandelt werden in
s(1) = &H02BC:
s(2) = &H0410:
s(3) = &H0430:

Doch das Makro

Sub tausch()
Dim i as Integer
i = 0
Dim oCll As Cell
For Each oCll In Selection.Cells
With oCll.Range.Characters
i = i +1
.First.InsertBefore "s(";i;") = &H"
.Last.InsertBefore ":"
End With
Next
End Sub

funktioniert nicht.
Es werden immer Laufzeitfehler gemeldet.

Gruß
Ernst
 

Lesen sie die antworten

#1 Christian Freßdorf
08/12/2008 - 07:31 | Warnen spam
Hallo Ernst,

und was für Fehlermeldungen?

.First.InsertBefore "s(";i;") = &H"



zum Verbinden von String muss das "&" verwendet werden.

.First.InsertBefore "s(" & i & ") = &H"

Gruß Christian

Ähnliche fragen