Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kombinatorik mehrerer Zeilen

Kombinatorik mehrerer Zeilen
26.11.2005 21:40:52
Karo
Hallo,
habe eine Xls tabelle, in der infos vermischt werden müssen.
Aufbau:
Spalte A: Modell
Spalte B: Nr.
Spalte C: Farbe 1
Spalte D: Farbe 2
Bsp. wenn in der Spalte B1 eine "2 " steht, dann soll in einer anderen Tabelle die Farbe 1 und Farbe 2 eingetragen werden.. wenn in der Zelle B2 auch "2" steht, dann muss in der neuen Tabellen: in der weiteren Spalte die Farbe 1 und Farbe 2 von der zelle B2 eingetragen werden.
siehe tabelle.
https://www.herber.de/bbs/user/28742.xls
die wiederholung der Nr. kann bis zu 6 zeilen auftauchen.
Danke
Gruss

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

Betreff
Datum
Anwender
Anzeige
AW: Kombinatorik mehrerer Zeilen
26.11.2005 21:46:42
Matthias
Hallo Karo,
die wiederholung der Nr. kann bis zu 6 zeilen auftauchen.
Was bedeutet das?
Gruß Matthias
AW: Kombinatorik mehrerer Zeilen
26.11.2005 22:23:29
Karo
Dass die Nr. 2 zum Beispiel in bis zu 6 zeilen auftauchen kann..
in zeile 2, 3, 4, 6, 7, 8, 9
Dass die Ergebnisspalten bis ca. 12 spalten sein müssen.
Gruss
karo
AW: Kombinatorik mehrerer Zeilen
27.11.2005 01:30:45
Matthias
Hallo Karo,
hier mal ein Ansatz:

Option Explicit
Const Tabellenstart = "Tabelle1!B22" 'unter deiner Beispieltabelle
Sub Tabelle()
Dim z As Long
Range(Tabellenstart) = "Nr."
For z = 2 To 7 'zeilen
NeuerEintrag Cells(z, 2), Cells(z, 3)
NeuerEintrag Cells(z, 2), Cells(z, 4)
Next z
End Sub
Sub NeuerEintrag(Nr As Integer, Farbe As String)
Dim z As Range, suchZ As Range, suchS As Range
Set z = Range(Tabellenstart)
'Spalte nach Nr durchsuchen
Set suchZ = Range(z, z.Offset(1000, 0)).Find(What:=Nr, LookAt:=xlWhole)
'wenn nicht gefunden, anlegen
If suchZ Is Nothing Then
Set suchZ = z.Offset(1000, 0).End(xlUp).Offset(1, 0)
suchZ.Value = Nr
End If
'Zeile nach Farbe durchsuchen
Set suchS = Range(suchZ, suchZ.Offset(0, 20)).Find(What:=Farbe, LookAt:=xlWhole)
If suchS Is Nothing Then
Set suchS = suchZ.Offset(0, 21).End(xlToLeft).Offset(0, 1)
suchS.Value = Farbe
End If
End Sub

Inwiefern die Formen (Rund/Gerade) eine Rolle spielen, hab ich noch nicht erfasst.
Gruß Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige