Office: Werte aus Schleife nacheinander verkettet in eine Zelle schreiben

chrissuperstar · 2. August 2011

Hallo zusammen,

ich versuche gerade eine Logik aufzubauen, die in einer Do While Schleife zwei Zellen pro Zeile - jeweils Zahlen - ausliest, diese in einen String packt und in eine andere Zelle wieder zurückschreibt. Jetzt soll aber dieser String pro Zeile immer erweitert werden.
Diese Erweiterung will bei mir irgendwie nicht so recht funktionieren, da er das bisherige Ergebnis immer überschreibt.

Für nen fortgeschrittenen User wahrscheinlich kein Problem.
Hier mal mein bisheriger Ansatz:

Code:

sub stringerstellen()

Dim i as byte
Dim erstellterStr as String

i =2

Do While Cells(i, 1) < 100
erstellterStr = cells(i,5).value & "-" & cells(i,8).value & ","
i = i+1
Loop
Cells(2,10) = erstellterStr

end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie muss ich erweitern, damit der Wert nicht immer mit denen aus der neuen Zeile überschrieben wird, sondern alles hintereinander geschrieben wird.

So soll es in der Zielzelle aussehen: 5-8,6-7,1-2 usw.

Bin für jede Idee dankbar.
Vielen Dank im Voraus.

:)

EarlFred · 3. August 2011

Hallo ?,

meinst Du so?
Code:

Option Explicit
Sub stringerstellen()

Dim i As Long
Dim erstellterStr As String

i = 2
Do While Cells(i, 1) < 100
erstellterStr = erstellterStr & "," & Cells(i, 5).Value & "-" & Cells(i, 8).Value
i = i + 1
Loop

Cells(2, 10) = Replace( _
Expression:=erstellterStr, _
Find:=",", _
Replace:=vbNullString, _
Count:=1)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

chrissuperstar · 3. August 2011

hi Earl,

vielen Dank für deine Antwort.
Ich habe deinen Ansatz ausprobiert - das Eregbnis ist dann "nur" die zusammengesetzte Zahlenkombination aus Zeile 99, da hier durch dann durch die Bedingung der Schleife abgebrochen wird.

Vielleicht nochmal ein kleines Beispiel mit folgender Situation:

Zeile 2: 3 5
Zeile 3: 5 7
Zeile 4: 8 9

Dann möchte ich in meiner Zielzelle folgendes stehen haben:

3-5,5-7,8-9

Viele Grüße.

EarlFred · 3. August 2011

Hallo ?????,

Zeile 2: 3 5
Zeile 3: 5 7
Zeile 4: 8 9

Dann möchte ich in meiner Zielzelle folgendes stehen haben:

3-5,5-7,8-9
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das genau macht mein Code. Bist Du Dir sicher, dass Du ihn überhaupt ausprobiert hast?

Grüße
EarlFred

chrissuperstar · 3. August 2011

Hi Earl,

Schande über mein Haupt - richtig, der Code tut genau das was er soll!
Ich hatte in der Schleife, die Anpassung der Variablen vergessen!
Vielen Dank!

Gruß,
chrissuperstar

Office: Werte aus Schleife nacheinander verkettet in eine Zelle schreiben

Werte aus Schleife nacheinander verkettet in eine Zelle schreiben

Werte aus Schleife nacheinander verkettet in eine Zelle schreiben

Werte aus Schleife nacheinander verkettet in eine Zelle schreiben

Werte aus Schleife nacheinander verkettet in eine Zelle schreiben - Similar Threads - Werte Schleife nacheinander

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

VBA Loop : Werte suchen und löschen

VBA For Schleife: Werte in EXCEL zwischen Speichern

Makro: Ersetze die ersten 10 Werte zwischen 50 und 100

For Each Schleife mehrmals nach gleichem Wert suchen

for ... Next Schleife -- Werte aus Tabelle einlesen und in Tabelle wieder ausgeben

VBA For Schleife Wert in Verbundene Zelle