Programmieren - alles kontrollieren 4.938 Themen, 20.667 Beiträge

Verfolgung starten Optionen

Excel VB6 Makro - Text (Versionsummer) zerlegen

Mic2004 / 3 Antworten / Flachansicht Nickles

Hallo zusammen!

Ich suche mal wieder nach einem Code für ein Excel-Makro. Ich möchte gern eine Versionsnummer aus einer Excel-Tabelle in einzelne Zeichen in mehrere Spalten in eine andere Excel-Tabelle eintragen. Mein Problem ist, wie ich die Versionsnummer per Makro zerlegt bekomme.

Beispiel:
Die Versionsangabe 3.11
Soll zerlegt werden in
Spalte A: 3
Spalte B: 11

Dabei können die Anzahlen der Ziffern variieren (z.B.: 3.1 oder 5.111 oder 100.2 usw.)

Das Makro muss also den Punkt erkennen und dann „davor“ und „danach“ zerlegen.

Verwenden tue ich MS Excel 2003 mit VB6.

Kann mir da einer von euch weiter helfen?

Danke und Grüße,
Mic2004.

bei Antwort benachrichtigen
Dafür brauchst Du kein Makro! das geht mit einfachen ... mawe2
neanderix Mic2004 „Excel VB6 Makro - Text (Versionsummer) zerlegen“
Optionen

Alternativ zu der lösung von mawe:

schau dir mal die VBA-funktion "Split" an.

Lenkst du deren Ausgabe in ein nicht dimensioniertes Array kannst du dessen Inhalt wiederum in einen Range schreiben.

Also der Art:

Public Function Aufteilen(ByVal wert as variant)
Dim arr() as Variant

arr=split(wert,".")

wert=arr

end function

Computers are like airconditioners - they stop working properly when you open Windows Ich bin unschuldig, ich habe sie nicht gewählt!
bei Antwort benachrichtigen
Hallo, diese ganze Funktion habe ich zwar nicht verwendet aber dieser ... Mic2004