Feldinhalte erweitern

Forumthread: Feldinhalte erweitern
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Feldinhalte erweitern

02.03.2006 12:28:36

frambach

hallo allerseits,
ich möchte excelfelder, besser die inhalte dahingehend erweitern 8über ein makro, da bes ne echt lange liste ist), das ich aus beispielsweise 900.30 ein 900.030 oder aus 090.20 ein 090.020 mache also eine stelle mehr haben möchte. bin für jeden ratschlag dankbar.
gruß
jan

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Feldinhalte erweitern

02.03.2006 12:54:28

volker
AW: Feldinhalte erweitern

02.03.2006 13:05:48

Reinhard

AW: Feldinhalte erweitern

02.03.2006 12:54:28

volker

hallo jan
probiere es mal so:
=WECHSELN(A1;".";".0")
gruß volker

AW: Feldinhalte erweitern

02.03.2006 13:05:48

Reinhard

Hi Jan,
Option Explicit


Sub tt()
Dim zei As Long, teil
Columns("A:A").NumberFormat = "@"
For zei = 1 To Range("A65536").End(xlUp).Row             ' A anpassen
teil = Split(CStr(Cells(zei, 1)), ".")               ' (zei, 1) anpassen, A=1, B=2, C=3 usw
Cells(zei, 1) = CStr(teil(0)) & ".0" & CStr(teil(1)) ' (zei, 1) anpassen, A=1, B=2, C=3 usw
Next zei
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..