Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1340to1344
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
Inhaltsverzeichnis

VBA : logische Abfrage bei Auswahlmöglichkeiten

VBA : logische Abfrage bei Auswahlmöglichkeiten
01.12.2013 09:34:54
Peter
Hallo liebe Excel Experten,
ich möchte gerne eine Abfrage und Auflistung von Auswahlmöglichkeiten mittels VBA automatisieren.
Leider kenne ich mich mit VBA nicht so gut aus.
Könnt ihr mir vielleicht bei meinem Problem helfen:
Aufgabenstellung:
Eine Liste von Ergebnissen erstellen aus die aus allen möglichen Kombinationsmöglichkeiten erzeugt werden.
gegeben:
4 Haupt-Auswahl Möglichkeiten mit je 4 Unter-Auswahlmöglichkeiten, diese bestehen wiederum
je aus folgenden 3 Zellen:
oberste Zelle: Eingabefeld Wert: "x"
darunterliegende mittlere Zelle: Werte 1 oder 0
darunterliegende Zelle: Auswahlwert: variabel
zuerst muss es eine Abfrage geben ob es eine "1" in der mittleren Zeile gibt, wenn ja dann muss in der darüberlegenden Zelle ein "x" eingetragen werden.
Durch eine Formel wird dann der Wert aus der darunterliegenden Zelle für eine Verkettung hergenommen.
danach müsste das Ergebnis aus der Verkettung in ein Zeile eingetragen werden.
danach in die Zelle darunter. u.s.w.
danach dann das "x" wieder löschen und dann die nächste "1" abfragen, dies Spalte für Spalte und Zeile für Zeile u.s.w.
Anbei nochmal eine Beispieldatei zur Verdeutlichung. Da es mir doch schwer fällt das Problem genauer in Worten zu fassen :-)
https://www.herber.de/bbs/user/88330.xlsx
Bei dem Beispiel gibt es wie gesagt 4 Haupt-Auswahl Möglichkeiten mit je 4 Unter-Auswahlmöglichkeiten, das ergibt eine theoretisch mögliche Anzahl an 4^4 also 256 Kombinationsmöglichkeiten. und somit 256 Zeilen von Ergebnissen.
Per Handeingabe würde das doch sehr dauern.
(für die reale Anwendung später geht es um 10 x 10 Auswahlmöglichkeiten!!!)
Ich hoffe ihr könnt mir helfen und habt dafür eine einfache logische Lösung dies zu automatisieren.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA : logische Abfrage bei Auswahlmöglichkeiten
02.12.2013 03:30:21
Mustafa
Hallo Peter,
für das 4x4 Problem würde das zB so gehen :
Option Explicit
Sub Kombinieren()
Dim Arr1, Arr2, Arr3, Arr4
Dim IntX As Integer
Dim IntArr1 As Integer, IntArr2 As Integer
Dim IntArr3 As Integer, IntArr4 As Integer
Dim Zähler1 As Integer, Zähler2 As Integer
Dim Zähler3 As Integer, Zähler4 As Integer
ReDim Arr1(1 To 4)
ReDim Arr2(1 To 4)
ReDim Arr3(1 To 4)
ReDim Arr4(1 To 4)
IntArr1 = 1
IntArr2 = 1
IntArr3 = 1
IntArr4 = 1
For IntX = 4 To 7
If Cells(4, IntX) = 1 Then
Arr1(IntArr1) = Cells(5, IntX)
IntArr1 = IntArr1 + 1
End If
If Cells(9, IntX) = 1 Then
Arr2(IntArr2) = Cells(10, IntX)
IntArr2 = IntArr2 + 1
End If
If Cells(14, IntX) = 1 Then
Arr3(IntArr3) = Cells(15, IntX)
IntArr3 = IntArr3 + 1
End If
If Cells(19, IntX) = 1 Then
Arr4(IntArr4) = Cells(20, IntX)
IntArr4 = IntArr4 + 1
End If
Next
IntX = 1
For Zähler1 = 1 To IntArr1 - 1
For Zähler2 = 1 To IntArr2 - 1
For Zähler3 = 1 To IntArr3 - 1
For Zähler4 = 1 To IntArr4 - 1
Cells(IntX, 24) = Arr1(Zähler1) & Arr2(Zähler2) & Arr3(Zähler3) & Arr4(Zähler4)
IntX = IntX + 1
Next
Next
Next
Next
End Sub
Geht bestimmt auch eleganter aber meine Kenntnisse reichen nur soweit.
Rückmeldung obs hilft wäre nett.
Gruß aus der Domstadt Köln.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige