Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mögliche Kombinationen mit variabler

Forumthread: mögliche Kombinationen mit variabler

mögliche Kombinationen mit variabler
01.08.2002 15:00:58
Uli
Hallo, habe ein Grosses Problem:
ich habe eine Tabelle in etwa der Form

0 1 2 3 4 5 6 n
1..x...x......
2x............
3x............
4..x.....x....
5..........x..x
6x...x.........
7 x
8x

mein Problem ist, jede kombinationsmöglichkeit herauszufinden, wobei die Spaltenanzahl variabel ist (bei Programmstart bekannt),und ich pro Spalte im Extremfall vbis zu 8 Einträge habe....

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: mögliche Kombinationen mit variabler
01.08.2002 16:28:01
L.Vira
willst du nur die Anzahl der Kombinationen wissen oder sollen
die auch irgendwie(wo) ausgegeben werden?
Re: mögliche Kombinationen mit variabler
01.08.2002 16:33:10
Uli
leider reicht die Zahl nicht,
ich muss die Kombinationen in irgend einen Bereich wieder ausgeben...
Re: mögliche Kombinationen mit variabler
01.08.2002 16:43:28
L.Vira
Max. 8 Zahlen, weil das schon 40.000 Kombis sind, sonst umstricken und in der nächsten Spalte weiterrödeln:

Dim Zeile

Sub Eingabe()
Dim s As String
s = InputBox("Geben Sie eine Zahl ein(max. 8 Zeichen!", "Kombinationen", 123)
If Len(s) < 2 Then
MsgBox "Mindestens zwei Zahlen erforderlich ! ", 64, "weise hin..."
Exit Sub
ElseIf Len(s) > 8 Then
MsgBox "Maximal 8 Zahlen möglich! ", 64, "weise hin..."
Exit Sub
End If
ActiveSheet.Columns(1).Clear
Zeile = 1
Call Kombinationen("", s)

End Sub

Sub Kombinationen(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 Kombinationen(x + Mid(y, i, 1), _
Left(y, i - 1) + Right(y, j - i))
Next
End If

End Sub

Geht auch mit Buchstaben



Anzeige
Re: mögliche Kombinationen mit variabler
01.08.2002 16:54:16
Uli
Das kommt der Sache schon recht nahe,

aus dieser Tabelle bekomme ich ein Ergebis, das etwa so aussieht:
2.2.1.3.1.2.2.3 (=jeweils Anzahl der Möglichkeiten
aus dieser Zeichenkette ergeben sich dann Kombinationen, wie:
1.2.1.3.1.2.2.3
1.1.1.3.1.2.2.3
und die sind das, was ich brauche
aus einer 3 kann also auch eine 2 oder 1 werden...

Anzeige
Re: mögliche Kombinationen mit variabler
01.08.2002 17:19:49
Hans W Hofmann
Das ist so eine Sache mit den rekursiven Funktionen, Du mußt quasi erst alle Kombinationen vorlegen. Ich hab mir da mal über legt, das es sowas wie die nächste lexikographische Kombination geben müsste und die dafür notwendigen Funktionen geschrieben.
Bei Bedarf PM...

Gruß HW

;

Forumthreads zu verwandten Themen

Zellinhalte löschen
Jürgen

Hallo Excel Profis,
ich suche eine VBA-Lösung für folgendes Problem:
In einem Tabellenbereich A3:K100 soll das Makro die Spalte I durchsuchen.
Wenn hier ein x steht soll dieses gelöscht werden und gleichzeitig die Inhalte
in den Zellen B, D, E, H links daneben.
Es sollen nur...
08.08.2008 09:32:00
Thread-ID: 1000180
4 Beiträge
Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
ein Sheet "unlöschbar" machen
Daniel

Hallo zusammen!
Hätte mal wieder ne Frage!
kurz zur Info: Ich möchte ein Sheet in einer Arbeitsmappe per Mako unlöschbar, unbeschreibbar etc. machen und das ganze auch wieder aufheben....
Das mit dem unbeschreibbar geht auch ganz gut mit ThisWorkbook.Sheets(2).Protect password:="xx...
13.08.2008 11:11:00
Thread-ID: 1001439
9 Beiträge
Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Doppelte Inhalte löschen
Oliver

Hallo
in einer Liste von Buchungen befinden sich für einzelne Kostenstellen mehrere Buchungen.
Ich möchte nun aus dieser Liste eine Liste erstellen, in welcher alle Kostenstellen nur einmal vorkommen (also die doppelten Einträge löschen).
Mit dieser Liste will ich später dann die Su...
15.08.2008 09:56:06
Thread-ID: 1002057
4 Beiträge
Alle Inhalte in Comboboxen löschen
Frank

Hallo!
Ich habe mehrere Comboboxen in ein Sheet eingebaut. Leider bleibt darin immer die letzte Auswahl stehen. In meiner Userform konnte ich mit "Claer all" alle Eingaben entfernen. gibt es einen solchen Befehl auch für die Comboboxen im Sheet?
Gruß Frank
15.08.2008 11:24:32
Thread-ID: 1002119
2 Beiträge
Löschen von Worksheets zwecks Initialisierung
Worksheets

Hallo,
häufig besteht der Bedarf, ein Worksheet vor Programmstart, bis auf die überschriften zu löschen. Grundsätzliche Bedingung ist - kein Select des Sheets darf nötig sein.
Ich benutze hierfür:
Sheets(ARBEITSBLATT).Range(loeschbereich).ClearContents
Leider hat diese Method...
18.08.2008 12:31:09
Thread-ID: 1002549
6 Beiträge
Grafiken in bestimmten Bereich löschen
otto

Hi,
mit folgendem Code lösche ich Grafiken in einem bestimmten Tabellenblatt.
Dim mydocument As Worksheet, s
Workbooks("ABC.xls").Activate
Set mydocument = Worksheets("Lieferant")
For Each s In mydocument.Shapes
On Error Resume Next
Select Case s.Type
Case msoEmb...
29.08.2008 14:40:24
Thread-ID: 1005842
3 Beiträge
Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Zeilehöhe einstellen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste die in den Bereich A6:AB500 eine Zeilenhöhe von min 30 erzeugen soll. Dazu hat mir Daniel nachfolgendes Marko geschrieben
Sub Update_Zellenhöhe() Dim Zelle As Range With Range("A6:AB500") .EntireRow.AutoFit For Each Zelle In .Cells If .Entire...
03.09.2008 11:33:57
Thread-ID: 1007056
10 Beiträge
Höhe einer Textbox nach Grafik ausrichten
TomTom

Hi,
ich habe eine Frage zur Ausrichtung einer Textbox: Ich habe auf meinem Sheet ein paar Textboxen (untereinender) die je nach Grösse und Inhalt zueinander in Höhe ausgerichtet werden (Makro)
Ganz unten im Sheet habe ich sowas , wie eine Fusszeile eingefügt, eine kleine Grafik (jpg, ei...
04.09.2008 11:19:00
Thread-ID: 1007335
5 Beiträge
Datei öffnen Abfrage nach Dateinamen mit Userform
lisa

Hallo zusammen.
Ich hab die gleiche Frage in einem älteren Thread von mir gerade eben gestellt.
Ich weiß aber nicht ob diesen noch jemand liest, da ich die Frage nicht auf, noch offen gestellt, habe und ihn auch nicht in Beiträge von heute finde.
Also wenn doppelt, bitte nicht böse...
04.09.2008 14:23:00
Thread-ID: 1007419
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige