Excel: Zeilen in einzelene Zellen

TheNilo · 18.01.2006

Hallo Zusammen ich hoffe mir kann jemand helfen.

Mein Problem:

Es betrifft Excel

Ich habe eine Zelle in welcher ein Text steht dieser hat Zeilenumbrüche (Alt+Enter) drin. Ich möchte nun mit einen VBA Script jede einzelne Zeile in der Zelle, auf eine eigene Zelle setzten. Dieses Scrpit sollte wenn möglich unabhängig sein.

Ich habe es bereits geschafft, indem ich mal ein Makro aufgenommen hatte und folgendes gemacht habe:
Zelle A1 auswählen, F2 drücken (Zelle wird aktiviert und man kann sie bearbeiten), mit Ctrl+Shift+Home alles auswählen, Ctrl+C kopieren, Enter drücken und auf Zelle A2 einfügen.
Das Problem: Das Script speichert den Text den ich kopieren will und wird damit nicht unabhängig.

Wie kann ich das Lösen???

Billy · 18.01.2006

Hi

Ich bin gerade an einem Makro, dass die Zelle ausliest und ein split befehl der die einzelnen Zeilen ausgibt.

Die Frage ist nun, WOHIN du diese Zeilen haben willst....?

also wenn in A1 Steht:
Hallo
dies
ist
ein
test

wohin kommt die erste zeile, die zweite, usw...?

mfg Billy

TheNilo · 18.01.2006

Bei deinem Beispiel:
Vorher:

A1
Hallo
dies
ist
ein
test

Nachher:

A1
Hallo
A2
dies
A3
ist
A4
ein
A5
test

Kommst du draus?

Billy · 18.01.2006

TheNilo schrieb:
Kommst du draus?

japs

bin drann

wenns gut geht hast du es heute abend *gg*

TheNilo · 18.01.2006

Danke

freu mich schon

mfg
Nilo

Billy · 18.01.2006

TheNilo schrieb:
freu mich schon

dann freu dich mal dich auf dies hier

Code:

Option Explicit
Sub blabla()
'Definiert Ziel Zelle
Const c_zelle = A1

'Split Variabel festlegen + zellenwert Variabel mit Text setzen
Dim splitet() As String, value As String, zellenwert As String
zellenwert = Range(c_zelle).value

'Der Text wird nun nach jedem ALT + Enter Befehl gesplitet
splitet = split(zellenwert, Chr(10))

'während zielreihe kleiner ist als total, wird in A1, A2 jede einzelne
'Zeile ausgegeben
Dim total, zielreihe As Double, var As Long
total = UBound(splitet): zielreihe = 1: var = 0

'Whie schlaufe die immer wieder neuen Wert in A1... schreibt
Do While var &lt;= total
 Cells(zielreihe, 1).value = splitet(var)
 var = var + 1: zielreihe = zielreihe + 1
Loop

End Sub

du kannnt es auch durch etwas anderes umbennen. Und am besten in das Tabellensheet einfügen wo es auch funktionieren sollte

mfg billy

TheNilo · 18.01.2006

Krass

Dieses Script funktioniert sogar.

Danke Billy

.::Billy Rulez::.

Billy · 18.01.2006

TheNilo schrieb:
Krass
Dieses Script funktioniert sogar.

???

soll dass etwa heissen dass sonst gar nichts geht oder wie?

TheNilo · 18.01.2006

Nein, das soll es nicht heissen
ich war zuerst skeptisch ob es funktioniert, da ich es so lange probiert habe ein Skript zu erstellen.
Aber es funktioniert vorzüglich
Nochmals Danke

mfg
Nilo

Billy · 18.01.2006

bitte

Excel: Zeilen in einzelene Zellen

TheNilo

Billy

TheNilo

Billy

TheNilo

Billy

TheNilo

Billy

TheNilo

Billy

Excel: Zeilen in einzelene Zellen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums