Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Buchstaben vertauschen mit allen möglichkeiten

Forumthread: Buchstaben vertauschen mit allen möglichkeiten

Buchstaben vertauschen mit allen möglichkeiten
27.06.2004 18:43:53
chrigi
Hallo zusammen
Ich habe ein Problem ich möchte bei einem Wort die Buchstaben vertauschen
und alle Möglichkeiten anzeigen zu lassen
Danke schon im voraus
Anzeige
AW: Buchstaben vertauschen mit allen möglichkeiten
K.Rola
Hallo,
bis zu welcher Wortlänge stellst du dir das denn vor. Bei einer Länge von 8
Zeichen sind das schonmal 40.320 Kombinationen.
Gruß K.Rola
AW: Buchstaben vertauschen mit allen möglichkeiten
27.06.2004 18:54:42
chrigi
hallo
ich denke bis 5 wäre gut
gruss chrigi
AW: Buchstaben vertauschen mit allen möglichkeiten
K.Rola
Hallo,
kopier den gesamten Code in ein normales(Standard)Modul:
Dim Zeile As Long

Sub Eingabe()
Dim s As String
s = InputBox("Geben Sie einen Text ein(max. 8 Zeichen!", "Zeichenkombinationen", "Test")
If Len(s) < 2 Then
MsgBox "Der Text muss länger als 1 Zeichen sein !         ", 64, "weise hin..."
Exit Sub
ElseIf Len(s) > 8 Then
MsgBox "Der Text darf max. 8 Zeichen haben!         ", 64, "weise hin..."
Exit Sub
End If
ActiveSheet.Columns(1).Clear
Zeile = 1
Call ZeichenKombi("", s)
End Sub



Sub ZeichenKombi(x As String, y As String)
Dim i As Integer, j As Integer
j = Len(y)
If j < 2 Then
Cells(Zeile, 1) = x & y
Zeile = Zeile + 1
Else
For i = 1 To j
Call ZeichenKombi(x + Mid(y, i, 1), _
Left(y, i - 1) + Right(y, j - i))
Next
End If
End Sub

Gruß K.Rola
Anzeige
AW: Buchstaben vertauschen mit allen möglichkeiten
27.06.2004 19:06:32
chrigi
hallo nochmal
es gibt einen Fehler (Anwendungs oder -objekt definirter Fehler)
muss ich irgend wo etwas hinein schreiben?
Danke
chrigi
AW: Buchstaben vertauschen mit allen möglichkeiten
K.Rola
Hallo,
vermute mal, du hast den Code nicht komplett kopiert, hier mal
eine Beispieldatei:
https://www.herber.de/bbs/user/7785.xls
Gruß K.Rola
Anzeige
AW: Buchstaben vertauschen mit allen möglichkeiten
27.06.2004 19:17:17
chrigi
Danke
jetzt funtioniert es es stimmte ich hatte nicht den ganzen code kopiert
chrigi
AW: Buchstaben vertauschen mit allen möglichkeiten
Jörg
Hallo,
schau dir mal die Tabelle Kombinationen.xls an
http://www.lemitec.de/ppt/xlstatistik.htm
und hier das Tabellenblatt Permutationen.
Gruss Jörg
Anzeige
AW: Buchstaben vertauschen mit allen möglichkeiten
27.06.2004 18:57:50
chrigi
merci Jörg
aber Ich schnalle diese Tabelle nicht ganz
chrigi
AW: Buchstaben vertauschen mit allen möglichkeiten
Jörg
Hallo,
einfach auf dem Blatt Permutationen in Zelle A1 deine Zeichenfolge eingeben und dann den Button "Permutationen n!" klicken.
Dann werden in Spalte A alle möglichen Buchstabenkombinationen aufgelistet.
Gruss Jörg
Anzeige
AW: Buchstaben vertauschen mit allen möglichkeiten
27.06.2004 19:20:43
chrigi
hallo
das problem ist gelöst
aber danke für deinen Hilfeversuch
chrigi
;

Forumthreads zu verwandten Themen

Ausblenden aller Mitarbeiter außer den Angewählten
Werner

Hallo und guten Abend
Ich möchte in einem Schichtplan alle Spalten ausblenden außer die angewählte Spalte. Per Schaltfläche aus-bzw. einblenden. Die abgespeckte Testdatei mit Erklärung anbei. Hat einer das Problem schon mal gehabt oder weiß Rat?
https://www.herber.de/bbs/user/57614.xls...
14.12.2008 17:31:00
Thread-ID: 1032808
6 Beiträge
EXCEL-VBA auf Mac mit Parallels Dektop
Peter

Hat jemand (positive oder negative) Erfahrungen mit der Performance umfangreicher VBA-Anwendungen auf McIntosh mit Parallels Desktop?
Ich beobachte auf dem Mac immer wieder Abstürze ("EXCEL-EXE hat einen Fehler verursacht und muss beendet werden ...), während das gleiche Programm auf meinem...
20.01.2009 15:20:35
Thread-ID: 1041860
2 Beiträge
Formatierung aller Blätter mit Macro | Herbers Excel-Forum
Jakob Freitag
Hallo,
wie kann ich folgenden Code auf alle Blätter einer Excel-datei anwenden?
Sub ZeilenSpaltenUeberschriftenAUSGesamt() ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False ActiveWindow.DisplayHeadings = True End Sub
Vielen Dank.
Gruß,
Jakob
23.02.2009 15:59:28
Thread-ID: 1053129
8 Beiträge
Alle Zeilen mit bestimmtem Inhalt löschen
Lutz

Hallo Excel-Profis,
ich habe eine Tabelle die "Liste" heisst und in der Buchungen per Makro eingefügt werden.
Jetzt möchte ich per Makro einen Vorgang der aus mehreren Zeilen bestehen kann löschen.
D.h. ich möchte per Box fragen welcher Beleg (steht in Spalte "E") gelöscht werden so...
13.03.2009 18:53:36
Thread-ID: 1059979
3 Beiträge
alle Arbeitsblätter kopieren mit "Werte einfügen"
Steven

Hallo liebe Excelfreaks,
ich habe ein kleines Problem: ich suche ein Makro, dass mir alle Arbeitsblätter (auch mit je unterschiedlicher Anzahl) einer Arbeitsmappe kopiert und zwar mit "Werte einfügen". Da das "Werte einfügen" aufgrund eines Fremdimportes im Originalblatt selbst nicht funkti...
25.03.2009 20:56:33
Thread-ID: 1063979
5 Beiträge
Alle Möglichkeiten per Algorithmus mit Fakultät
Richard

Hallo Leute,
ich hätt' da mal wieder eine Frage an euch.
Folgendes Problem: Ich habe die Buchstabenreihe A B C D E F G, somit sind es 7 Buchstaben. Die Fakultät der Zahl 7 also 7! ergibt 5040.
Ich weiß somit, dass es insgesamt 5040 verschiedene Möglichkeiten gibt die Buchstaben anei...
01.04.2009 10:35:53
Thread-ID: 1065894
5 Beiträge
Anzeige
Schleife: alle mit Leirzeichen beginnend ..
Mandy

Hi,
ich möchte in der Spalte R alle Einträge mit einer Schleife (10-500) bearbeiten. Und zwar sollen alle Einträge , die mit ZWEI Leerzeichen beginnen, gelöscht werden, also die entsprechende Zellen geleert werde. Alle anderen sollen unberürt bleiben.
Wie mache ich das ?
Danke Mand...
10.09.2009 20:02:04
Thread-ID: 1101845
6 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Alle bis auf ein bestimmtes Blatt mit Schreibschut
Elias_K

Hallo Forum,
ich habe untenstehenden Code im Einsatz, um alle Tabellen einer Mappe mit dem Blattschutz zu versehen.
Das klappt soweit prima, ich möchte jedoch eine bestimmte Tabelle gern auslassen.
Wie geht das?
Grüße
Private Sub Button_Blattschutz_setzen_Click() Dim wks As...
16.09.2009 15:58:28
Thread-ID: 1103263
3 Beiträge
Anzeige
Daten im Listbox mit Sonderfälle
Urmila

Hallo alle zusammen,
ich komme beim Befüllen von Daten in ListBoxen nicht weiter.
Ich habe eine Liste mit Daten, wie ne Buchführung. Im Spalte B steht das Datum der Erfassung, Spalte C die Kostenart und in Spalte H das Fälligkeitsdatum, im Spalte J die Hilfswerte als Status.
Ich wil...
16.10.2009 14:13:50
Thread-ID: 1110072
3 Beiträge
Anzeige
drucken mit Autofilter mit allen Kriterien
Joni

Hi,
hat jemand vielleicht schon einmal ein Makro geschrieben, das mit dem Autofilter den ersten Wert auswählt, dann das Blatt druckt, dann den 2. Wert auswählt, druckt, dann den 3. usw. bis alle Werte im Filter durch sind (inkl. leer aber ohne nicht leer).
Das würde mir den Ablauf etwas...
03.11.2009 12:44:38
Thread-ID: 1114087
3 Beiträge
Autoausfüllen mit Werterhöhung alle 20 Zeilen | Herbers Excel-Forum
philG
Hallo liebe Herber-Gemeinde,
ich möchte gerne eine Zahl z.B. "5560" in der Spalte B runterwärts aufsteigend eintragen lassen, allerdings soll sich diese Zahl alle 20 Zeilen um 1 erhöhen. Also 19 Zellenwerte sollen "5560" betragen, der 20. "5561" usw...
Kann mir jemand weiterhelfen? Viiieele...
04.01.2010 13:08:26
Thread-ID: 1127033
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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