Office: VBA: Werte aus Zellen mit Zeilenumbruch auslesen

Jones17723 · 26. Juli 2014

Hallo zusammen,
ich benötige Hilfe. Ich möchte aus der Spalte A, die Werte vor dem Zeilenumbruch auslesen und in Spalte B schreiben. Für eine Abfrage einer einzelnen Zelle habe ich bereits die Formel erstellt, jedoch bekomme ich eine automatisierte Abfrage über die Spalte A nicht hin. Hier der Code:

Sub Teilen()
Dim X As Variant
X = Split(Range("A2"), Chr(10))
Range("B2").Value = X(0)
End Sub

Ich würde mich über Hilfe freuen, wie ich diese Abfrage für alle Zellen der Spalte A in Spalte B schreiben kann.

Beste Grüße

:)

BCoder · 27. Juli 2014

Hallo Jones17723,

muss es unbedingt eine VBA Lösung sein?

Könntest so wie ich das verstanden habe, die Spalte einfach über die Funktion "Text in Spalte" im Menü "Daten" trennen...

Grüße
BCoder

amicro2000 · 27. Juli 2014

Hallo Jones,

Probiere es mal so:

Code:

Sub Teilen()
Dim X As Variant, rng As Range

For Each rng In Range("A2:A10")
X = Split(Range("A2"), Chr(10))
rng.Offset(0, 1) = X(0)
Next rng
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

es wird von A2 bis A10 gemacht.

Scorefun · 27. Juli 2014

Mach eine Schleife draus, mit F5 ausführen

Code:

Sub Teilen()
Dim r as long
Dim X As Variant

for r = 2 to 100 'Von Zeile 2 bis 100
X = Split(Range("A" & r), Chr(10))
Range("B" & r).Value = X(0)
next r
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jones17723 · 27. Juli 2014

Hallo zusammen,
vielen Dank für die schnelle Antwort. Es klappt perfekt!!!!

Text in Spalten hat leider nicht mit Umbrüchen funktioniert.

Beste Grüße

BCoder · 27. Juli 2014

Doch geht *tongue.gif*

Text in Spalten -> getrennt -> andere -> ALT 010 (Nummernblock) -> fertigstellen...

Jones17723 · 27. Juli 2014

Tatsache *wink.gif*

Danke!!

Office: VBA: Werte aus Zellen mit Zeilenumbruch auslesen

VBA: Werte aus Zellen mit Zeilenumbruch auslesen

VBA: Werte aus Zellen mit Zeilenumbruch auslesen

VBA: Werte aus Zellen mit Zeilenumbruch auslesen

VBA: Werte aus Zellen mit Zeilenumbruch auslesen - Similar Threads - VBA Werte Zellen

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

Sperren von Zellen basierend auf Werten in einer anderen Zelle

Excel mit VBA ganze Zeile nach einem Wert in Zelle löschen

VBA Zelle mit bestimmten Werten kopieren

Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln

Excel-VBA Werte addieren und in nächste freie Zelle eintragen

über vba nur den Wert einer Zelle, ohne Formel und Formatierung übernehmen