Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Feldinhalte erweitern

Feldinhalte erweitern
02.03.2006 11: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
Anzeige
AW: Feldinhalte erweitern
02.03.2006 11:54:28
volker
hallo jan
probiere es mal so:
=WECHSELN(A1;".";".0")
gruß volker
AW: Feldinhalte erweitern
02.03.2006 12: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..
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige