Office: Inhalt von Zelle mit neuem Inhalt ergänzen

Hallo zusammen,

habe in meinem Excel-Sheet knapp 500 Zeilen, deren Inhalt ich mittels Makro ändern möchte.

In der Spalte A habe ich knapp 500 Zeilen mit Inhalt gefüllt. Nun möchte ich aber in jeder Zeile vor dem jeweiligen Inhalt eine "0" setzen. Vorher sah die Spalte A wie folgt aus:

und naher soll sie wie folgt aussehen:

Ich dachte mir, ich gehe wie folgt vor:

• Zunächst einmal weise ich die Zelle(A2) mit der ich beginne einer Variablen zu.
• Dann kopiere ich den Inhalt der Zelle und weise den Inhalt einer anderen Variablen zu.
• Nun schreibe ich in die gleiche Zelle meinen neuen Inhalt hinein und springe dann zur nächsten Zelle (A3).

Eventuell hilft mir jemand bei meinem Code, der bisher wie folgt aussieht und zahlreiche Debugger-Meldungen hervorbringt:

Code:

Gruß,

Jean

:)

 

Hallo Jean,

warum so kompliziert?
Das kannst du doch auch mit Format machen.

Benutzerdefiniert 0########

 

Hi Jöke,

Naja, bisher wusste ich nicht, wie ich es anders hinbekommen kann.

Du meinst, ich muss über das Suchen und Ersetzen Feld gehen? Probiere es gleich einmal aus.

Gruß,

Jean

 

Hallo Jean,

nein du musst nichts suchen und ersetzen.

Markiere deinen Bereich A1:A500 => Format => Zelle => Benutzerdefiniert =>
in das Eingabefeld unter "Typ:" gibst du 0######### ein und schließt mit OK ab.

 

Hi Jöki,

danke für den Tipp, jedoch funktioniert das nur, wenn Du in den Zellen Zahlen hast. Ich habe zwar mein Beispiel mit Zahlen ausgeführt, jedoch befindet sich bei mir eben auch Text in den Zellen, denen eine "0" vorgestellt werden muss.

Allgemein also:

Voher: INHALT_ZELLE
Nachhier: 0INHALT_ZELLE

Gruß,

Jean

 

Hallo Jean,

dann doch mit VBA:

Code:

 

Hi Jöke,

vielen Dank für den Code. Wer jetzt erst einmal versuchen zu ergründen, was jeder einzelne Befehl bewirkt.

Gruß,

Jean

 

Hi Jörg,

zunächst einmal möchte ich mich recht herzlich für den Code bedanken. Er macht genau das, was ich wollte. Zum besseren Verständnis jedoch einige Fragen:

Der Code

Code:

erfüllt genau dieselbe Aufgabe, sodass ich mich Frage, welchen Sinn und Zweck die Abfrage
Code:

hat.

Eben hat mir eine Kollegin gezeigt, wie ich mithilfe von Excel und der "VErketten" Funktion dies alles auch ohne Programmierkenntnisse hätte bewerkstelligen können. Ich lerne gerne dazu. Jetzt weiß ich wenigstens, wie es auch mittels Makro geht. *gggggg*

Gruß,

Jean