Clever-Excel-Forum

Hallo VBA-Denksportler,

ich habe folgendes Problem. Ein Sonderzeichen "#" soll nacheinander alle Leerzeichen in einem Satz durchlaufen. Das Ergebnis soll dann folgendermaßen aussehen:

Position 5 : Dies#ist ein Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
Position 9 : Dies ist#ein Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
Position 13 : Dies ist ein#Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
Position 19 : Dies ist ein Satz,#in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
Position 22 : Dies ist ein Satz, in#dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
Position 26 : Dies ist ein Satz, in dem#ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
Position 30 : Dies ist ein Satz, in dem ein#Sonderzeichen nacheinander alle Leerzeichen durchläuft.
Position 44 : Dies ist ein Satz, in dem ein Sonderzeichen#nacheinander alle Leerzeichen durchläuft.
Position 57 : Dies ist ein Satz, in dem ein Sonderzeichen nacheinander#alle Leerzeichen durchläuft.
Position 62 : Dies ist ein Satz, in dem ein Sonderzeichen nacheinander alle#Leerzeichen durchläuft.
Position 74 : Dies ist ein Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen#durchläuft.

Wie kriege ich das auf die Reihe?

Moin

Wozu VBA wenn es mit zwei Formeln erledigt werden kann?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1		Dies ist ein Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
2	5	Dies#ist ein Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
3	9	Dies ist#ein Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
4	13	Dies ist ein#Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
5	19	Dies ist ein Satz,#in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
6	22	Dies ist ein Satz, in#dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
7	26	Dies ist ein Satz, in dem#ein Sonderzeichen nacheinander alle Leerzeichen durchläuft.
8	30	Dies ist ein Satz, in dem ein#Sonderzeichen nacheinander alle Leerzeichen durchläuft.
9	44	Dies ist ein Satz, in dem ein Sonderzeichen#nacheinander alle Leerzeichen durchläuft.
10	57	Dies ist ein Satz, in dem ein Sonderzeichen nacheinander#alle Leerzeichen durchläuft.
11	62	Dies ist ein Satz, in dem ein Sonderzeichen nacheinander alle#Leerzeichen durchläuft.
12	74	Dies ist ein Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen#durchläuft.

Zelle	Formel
A2	=SUCHEN(" ";$B$1;A1+1)
B2	=ERSETZEN(B$1;A2;1;"#")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Hallo,

eigentlich reicht schon das:

Hallo Leute,

also schon mal besten Dank für die beiden Formel-Vorschläge zur Lösung . Aber ich suche doch eine Lösung über VBA Code.

Hi,

(10.02.2016, 15:54)Schülerin schrieb: [ -> ]Aber ich suche doch eine Lösung über VBA Code.

das hattest Du nicht gesagt!

Hallo Ralf,

dann bitte ich vielmals um Entschuldigung. Aber man lernt ja auch aus den Formellösungen.

Hi!
Na, wenn Du daraus lernst, warum wendest Du die Formel von BoskoBiati nicht per VBA an?
Schau mal:

Sub NaDannSo()
Dim strSatz As String, iSpace As Long
strSatz = "Dies ist ein Satz, in dem ein Sonderzeichen nacheinander alle Leerzeichen durchläuft."
iSpace = Ubound(Split(strSatz))
Range("A1") = strSatz
With Range("A2:A" & iSpace + 1)
   .Formula = "=SUBSTITUTE(A$1,"" "",""#"",ROW(A1))"
   .Formula = .Value
   .EntireColumn.AutoFit
End With
End Sub

Gruß Ralf

Hallo Ralf,

schon mal vielen Dank. Aber wie sieht das Ganze aus wenn ich die einzelnen Werte mit Debug.print angeben will.
Ich muss auch zugeben, dass ich mich Excelformeln nun so gar nicht auskenne.

Hallo Schülerin,

hier noch eine Variante, die das Ergebnis mit Debug.Print ausgibt

(10.02.2016, 16:09)Rabe schrieb: [ -> ]Hi,

(10.02.2016, 15:54)Schülerin schrieb: [ -> ]Aber ich suche doch eine Lösung über VBA Code.

das hattest Du nicht gesagt!

Hallo Ralf, hat sie!

Zitat:Hallo VBA-Denksportler,

ich habe folgendes Problem.