Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeichenfolge per vba vertauschen

zeichenfolge per vba vertauschen
25.04.2005 13:02:43
josef
hallo zusammen,
ich möchte die in einer zelle stehenden zeichen nach folgendem prinzip "durcheinander" bringen:
erstes und letztes zeichen sollen beibehalten werden. die zeichen dazwischen sollen nach zufallsprinzip durcheinander geschrieben werden.
mal als beispiel: von "josef" soll lediglich als erstes zeichen "j" und als letztes zeichen "f" an richtiger stelle stehen. die buchstaben "o,s,e" sollen bunt gemischt durcheinander stehen. die länge der zeichenfolge ist dabei immer unterschiedlich.
ich weiß, meine frage scheint blödsinn oder unfug zu sein. ist es aber keineswegs !
und für eure bemühungen bedanke ich mich schon mal vorab !!!
schönen tag noch, gruß aus regensburg
josef

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeichenfolge per vba vertauschen
25.04.2005 14:28:03
Reinhard
Hallo Josef,
habe es probiert, kriege es aber nicht hin, da die Variable pos immer den Wert 1 hat, was ich nicht vertsehe:-(
Aus "abcdef" wird immer "abdddf"
Naja, vielleicht nützt dir der Ansatz was, oder jmd hier kann ihn umbasteln dass er klappt.
Gruß
Reinhard

Sub tt()
Range("A1") = "abcdef"
wort = Mid(Range("A1"), 2, Len(Range("A1")) - 2)
Range("A1") = Left(Range("A1"), 1) & Right(Range("A1"), 1)
'MsgBox wort
For n = Len(wort) To 1 Step -1
Randomize
pos = Int(Rnd(n)) + 1
MsgBox pos
zwort = zwort & Mid(wort, pos, 1)
wort = Left(wort, pos - 1) & Right(wort, pos + 1)
'MsgBox zwort
Next n
'MsgBox zwort
Range("A1") = Left(Range("A1"), 1) & zwort & Right(Range("A1"), 1)
End Sub

Anzeige
AW: zeichenfolge per vba vertauschen
25.04.2005 14:33:37
Reinhard
Hallo Josef,
probier das nachfolgende mal
Viele Grüße
Reinhard

Sub tt()
Range("A1") = "abcdef"
wort = Mid(Range("A1"), 2, Len(Range("A1")) - 2)
Range("A1") = Left(Range("A1"), 1) & Right(Range("A1"), 1)
'MsgBox wort
For n = Len(wort) To 1 Step -1
Randomize
pos = Int(n * Rnd()) + 1
'MsgBox pos
zwort = zwort & Mid(wort, pos, 1)
wort = Left(wort, pos - 1) & Mid(wort, pos + 1)
'MsgBox zwort
Next n
'MsgBox zwort
Range("A1") = Left(Range("A1"), 1) & zwort & Right(Range("A1"), 1)
End Sub

AW: zeichenfolge per vba vertauschen
25.04.2005 15:07:24
josef
hallo reinhard,
erstmal vielen dank für deine antwort !
sag nur soviel: genau was ich gebraucht habe.
danke !
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige