Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kombination finden

Kombination finden
08.10.2006 14:45:36
Thomas
Hallo,
hier mein Problem:
 
 ABCDEFGH
1WannMA1MA2MA3MA4   
2So1234   
3Mo5678   
4Di3456   
5Mi7812   
6Do1357   
7Fr3468   
8Sa1278   
9        
10        
11Das ist meine Beispieltabelle.
12über eine UF gebe ich in 4 textboxen werte ein.
13TB1= 3 TB2= 4 TB3= 5 TB4= 6
14nun möchte ich in tabelle1 ab A1 aufgelistet bekommen ob es diese kombination gibt und wenn ja wann
15ausserdem die kombination runterbrechen auf 2 der 4 möglichkeiten. Z.b. so das ergebnis:
16 ABCDE  
171So34    
182Mo56    
193Di3456  
204Do35    
215Fr346   
22        
23        
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Gruss Thomas
(Rückmeldung wäre schön)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kombination finden
08.10.2006 15:31:50
Beni
Hallo Thomas,
Gruss Beni
Private Sub CommandButton1_Click() Dim lz, lr, s, z As Integer lz = Cells(Rows.Count, 1).End(xlUp).Row For z = 2 To lz lr = Cells(Rows.Count, 1).End(xlUp).Row + 1 For tb = 1 To 4 For s = 2 To 5 If Controls("TextBox" & CStr(tb)) <> "" Then Wert = Controls("TextBox" & CStr(tb)) If Cells(z, s) = CInt(Controls("TextBox" & CStr(tb))) Then Cells(lr, 1) = Cells(z, 1) ls = Cells(lr, 256).End(xlToLeft).Column + 1 Cells(lr, ls) = Cells(z, s) End If End If Next s Next tb Next z End Sub
Danke Beni. o.t.
08.10.2006 15:49:51
Thomas
Gruss Thomas
(Rückmeldung wäre schön)
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige