Office: Inhalte mehrere Zellen zusammenführen

Hallo zusammen,

ich bin gerade dabei, die Werte aus vier Zellen in einer einzelnen zusammen zu führen.

Hier soweit mein Code
Code:

Bei der vierten Spalte habe ich jedoch ein Problem:

Die Zellen beinhalten meistens unterschiedlich lange Zahlenwerte.
Diese Zahlen sollen angefügt werden, jedoch sollen vorher so viele Nullen eingefügt werden, damit diese Zahl insgesammt aus 18 Stellen besteht.

Beispiel: Zelleninhalt: 1234567
Angefügt werden soll: 000000000001234567

Des Weiteren müssen nicht zwingend Zahlen in der Zelle stehen, sondern der Inhalt der Zelle kann auch mit einem Buchstaben beginnen.
Bsp. D1234567

Dann soll einfach nur dieser Wert, inklusive des Buchstabens, angefügt werden.

Kann mir jemand dabei helfen?
Ich weiß leider nicht wie ich das in VBA hinbekommen soll.


Danke und viele Grüße
Imke

:)

 

Hallo Imke,

mach es so: Code:

Gruß von Luschi
aus klein-Paris

PS: Es werden in Deinem Code aber nur 3 Zellen zusammengefaßt, nicht 4!

 

Hallo Luschi,

Danke erstmal für deine Hilfe!

Leider funktioniert es noch nicht ganz.


Es sollen in meinem Code die Spalte B mit C, A und D (in der Reihenfolge) in der Spalte Q zusammengefasst werden.

In der Spalte D stehen die unterschiedlich langen Zahlen, die auch manchmal Buchstaben enthalten könnnen.

Gruß Imke

 

Ist es wichtig zu sagen, dass die Spalte D als "Text" formatiert ist?

Gruß
Imke

 

Ok, es ist wichtig, dass die Zahlen als Text formatiert sind.

Wenn ich eine Zahl manuell in eine Zahl umwandel, funktioniert der Code.

Das ist bei 10000 Datensätzen aber ziemlich umständlich.

Weiß jemand, wie ich das per VBA hinbekomme?

NumberFormat = "0.00" und NumberFormat = "General" funktioniert nicht...

Viele Grüße
Imke

 

Hallo Imke,

dann versuch es so: Code:

Gruß von Luschi
aus klein-Paris

 

Hallo,

funktioniert! Danke *Smilie