Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei Makro (Bitte)

Hilfe bei Makro (Bitte)
01.07.2007 09:26:08
Michael

Hallo liebe Spezialisten.
Ich habe folgende Herausforderung:
In der Zelle "A2" stehen viele, durch Leerzeichen getrennte Wörter.
Ich benötige ein Makro, das diese Wörter in der Zelle "A2" in einer anderen Reihenfolge nach dem Zufallsprinzip sortiert, also komplett durcheinander würfelt.
Ich würde mich über eine Lösung riesig freuen.
Gruß
Michael

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
String mischen
01.07.2007 10:12:17
ransi
Hallo Michael
Füge diesen Code mal in ein Modul ein:
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Public Function Mix_it(zelle) As String
Dim SPL
Dim L As Long
Dim tmp
Dim Z
SPL = Split(zelle, " ")
Randomize
For L = 0 To UBound(SPL)
    Z = Int(UBound(SPL) * Rnd)
    tmp = SPL(Z)
    SPL(Z) = SPL(L)
    SPL(L) = tmp
Next
Mix_it = Join(SPL, (" "))
End Function

Der Aufruf in einer Tabelle geht dann so:
Tabelle1

Anzeige
AW: String mischen
01.07.2007 10:34:40
schauan
Hallo Michael,
Du brauchst dafür kein Makro. Schreibe die Worte untereinander. Gebe in einer Hilfsspalte die Formel Zufallszahl() ein und sortiere danach.
Tabelle1

AW: String mischen
01.07.2007 11:44:25
Gerd L
Hallo Andre,
dies war aber nicht die Fragestellung.
Hallo Michael,
die perfekte Funktion von Ransi berechnet auch neu, wenn man bei
Einstellungen-Optionen -Berechnung --- automatisch
den Cursor im Bearbeitungsfenster hinter die Formel stellt u. Enter drückt
oder
bei obiger Einstellung auf "manuell" die F9-Taste drückt.
Grüße Gerd

AW: String mischen
01.07.2007 20:04:37
schauan
Hallo Gerd,
wäre aber eine brauchbare Alternative.
Hoffe geholfen zu haben Grüße von André aus Gera - Stadt der Buga 2007 - Excel-97-2003


Anzeige
AW: String mischen (1.000 Dank)
01.07.2007 15:13:46
Michael
Hallo Ransi,
Sorry das ich mich erst jetzt zurück melde.
Ich musste noch ein wenig an unserer Bangkirai Terasse arbeiten....sagte meine Frau :-(
Deine Lösung ist Perfekt, funktioniert Prima :-)
1000 Dank dafür!!!
Gruß
Michael
(Danke auch an schauan & Gerd L)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige