Vollständige Version anzeigen: [suche] :)
-ERLEDIGT-
wieviel daten-kombinationen können denn vorkommen und welcher art sind sie?
ähm.. neues tabellenblatt, da n button rein und mit diesem ne fkn ausführen:
daten spaltenweise in worksheet 1 (bsp: 5 spalten)
das was gefunden werden soll in worksheet 2 in der ersten zeile in der entsprechendne spalte, wenn se leer sind ist das ne wildcard
ergebnisse werden in worksheet 2 ab zeile 3 eingetragen (vor dem ausführen löschen!)
code ohne test und compiler geschrieben, sollte als noch debuggt und getestet werden... (keine garantie für datenverluste, mach ne sicherung!)
Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
Dim spalte As Integer
Dim findzeile As Integer
Dim ergzeile As Integer
Dim match As Boolean
findzeile = 1
ergzeile = 3
While Worksheets(1).Cells(zeile, 1) <> Enpty
match = true
For spalte = 1 To 5
If (Worksheets(2).Cells(1, spalte) <> Empty) and (Worksheets(1).Cells(findzeile, spalte) <> Worksheets(2).Cells(1, spalte)) Then
match = false
End If
next
if match then
For spalte = 1 To 5
Worksheets(2).Cells(ergzeile, spalte) = Worksheets(2).Cells(findzeile, spalte)
next
ergzeile = ergzeile +1
End If
Wend
CommandButton1.Enabled = True
End Sub
daten spaltenweise in worksheet 1 (bsp: 5 spalten)
das was gefunden werden soll in worksheet 2 in der ersten zeile in der entsprechendne spalte, wenn se leer sind ist das ne wildcard
ergebnisse werden in worksheet 2 ab zeile 3 eingetragen (vor dem ausführen löschen!)
code ohne test und compiler geschrieben, sollte als noch debuggt und getestet werden... (keine garantie für datenverluste, mach ne sicherung!)
CODE
Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
Dim spalte As Integer
Dim findzeile As Integer
Dim ergzeile As Integer
Dim match As Boolean
findzeile = 1
ergzeile = 3
While Worksheets(1).Cells(zeile, 1) <> Enpty
match = true
For spalte = 1 To 5
If (Worksheets(2).Cells(1, spalte) <> Empty) and (Worksheets(1).Cells(findzeile, spalte) <> Worksheets(2).Cells(1, spalte)) Then
match = false
End If
next
if match then
For spalte = 1 To 5
Worksheets(2).Cells(ergzeile, spalte) = Worksheets(2).Cells(findzeile, spalte)
next
ergzeile = ergzeile +1
End If
Wend
CommandButton1.Enabled = True
End Sub
Ok ich sollte dazu sagen dass ich sowat noch nie jemacht hab und demzufolge -sagen wir mal - wenig Plan von habe 
mit stths eine-welt-formel wirst du sicher auch kein stück weiter kommen.. 
Zitat(yocheckit @ 28 May 2007, 18:02)
mit stths eine-welt-formel wirst du sicher auch kein stück weiter kommen..
ich sag mal so: Die Formulierung der Fragestellung lässt auch stth's Vorschlag als Teilmenge zu.
@stella: (falls Du nicht schon hinreichend pm's hast)
* beschreib doch mal wie die Anordnung der Ausgangsdaten und wie das Ergebnis aussehen soll
* Makro ist Pflicht? den sowas wie o.g. Code macht auch schon ne clevere Formelkombination
VBA !
ich habe mich der ganzen Sache mal angenommen, ich hoffe, dass die - mir zugesandten - Daten der Realität entsprechen. Mittlerweile habe ich auch ein korrekt arbeitetendes Makro (hoffentlich passt es Stella auch) ...
Allerdings ist die ganze Sache wenig performant, falls mal ein Informatiker der Code optimieren will, dann darf er sich gerne melden
Bei mir dauert die Auswetung für etwa 75k Werte gut 1Minute, ich war halt zu faul die ganze Sache geschickt zu machen
Bei der ganzen Aktion habe ich mal wieder bemerkt wie gering die Performance bei VBA ist!
eine anders geartete Anwendung mit 150k Integer-Werten und optimierten Schleifendurchläufen unter Visual Basic (=!VBA) braucht für die Auswertung nur 0,2Sekunden ;D
mfg
bartman
PS: Allerdings habe ich langsam die Befürchtung, dass es sich um Daten aus einem MySQL-Export handelt. Sollte es wirklich das wirklich der Fall sein, so kann man die ganze Sache erheblich einfacher und schneller lösen.
Allerdings ist die ganze Sache wenig performant, falls mal ein Informatiker der Code optimieren will, dann darf er sich gerne melden
Bei mir dauert die Auswetung für etwa 75k Werte gut 1Minute, ich war halt zu faul die ganze Sache geschickt zu machen
Bei der ganzen Aktion habe ich mal wieder bemerkt wie gering die Performance bei VBA ist!
eine anders geartete Anwendung mit 150k Integer-Werten und optimierten Schleifendurchläufen unter Visual Basic (=!VBA) braucht für die Auswertung nur 0,2Sekunden ;D
mfg
bartman
PS: Allerdings habe ich langsam die Befürchtung, dass es sich um Daten aus einem MySQL-Export handelt. Sollte es wirklich das wirklich der Fall sein, so kann man die ganze Sache erheblich einfacher und schneller lösen.