Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bräuchte einen Tip zum Formeln
zurück: #Wert! Fehler in Verbindung mit Anzeige von Systemuhrzeit weiter: Durchschnitt errechnen auf KW - Basis Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
26. Jan 2010, 20:27
Rufname:

Bräuchte einen Tip zum Formeln - Bräuchte einen Tip zum Formeln

Nach oben
       Version: Office 2003

Ich weiss nicht ob und wie sich das realisieren lässt evtl hat ja jemand einen tip


Ich mach ein beispiel


Werte
Tabelle1
10
20
30
40
50


Tabelle2
1
2
3
4
5

Tabelle 3
15
25
35
45
55


Jetzt habe ich einen Vorgegebenen Wert von sagen wir 70 jetzt soll mir excell die möglichen kombinationen geben wenn von jeder TAbelle nur ein wert genommen werden darf

Also excell müsste mir dann das ergebnis bringen
50
5
15

40
5
25

30
5
35

20
5
45
Heinz Schweigert
.


Verfasst am:
26. Jan 2010, 23:07
Rufname: Heinz


AW: Bräuchte einen Tip zum Formeln - AW: Bräuchte einen Tip zum Formeln

Nach oben
       Version: Office 2003

Hallo Gast

Du hast zwar nach Formel gefragt, aber bei sowas find ich Formeln immer so aufwändig und anstrengend. Wenns ein Makro auchtut, dann:

Zu diesem Tabellenaufbau:

 ABCDEFGHIJK
1ABC Summe:40     
210115     10525
320225     20515
430335        
540445        
650555        
7           


nimm diesen Code in ein Modul:
Code:
Option Explicit
Sub Kombis()
Dim i As Integer, j As Integer, k As Integer
Dim a As Double, b As Double, c As Double
Dim alast As Integer

Range("I2:K" & Cells(Rows.Count, 9).End(xlUp).Row + 1).ClearContents

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    a = Cells(i, 1).Value
    For j = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        b = Cells(j, 2).Value
        For k = 2 To Cells(Rows.Count, 3).End(xlUp).Row
            c = Cells(k, 3).Value
            If a + b + c = Range("F1").Value Then
                alast = Cells(Rows.Count, 9).End(xlUp).Row + 1
                Cells(alast, 9) = a
                Cells(alast, 10) = b
                Cells(alast, 11) = c
            End If
        Next k
    Next j
Next i

End Sub


Da gehts im Handumdrehen, und man muß sich nicht die Haare raufen Razz

Grüße Heinz
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formeln speichern 6 Joerg112 802 15. Okt 2005, 19:45
Joerg112 Formeln speichern
Keine neuen Beiträge Excel Formeln: Fehler bei Eingabe von Formeln 6 slow 3113 08. Sep 2005, 13:43
c0bRa Fehler bei Eingabe von Formeln
Keine neuen Beiträge Excel Formeln: formeln in andere sheets kopieren 2 folter 920 07. Sep 2005, 10:48
fridgenep formeln in andere sheets kopieren
Keine neuen Beiträge Excel Formeln: Formeln zusammenfassen 5 shanghai357 1110 31. Aug 2005, 10:49
c0bRa Formeln zusammenfassen
Keine neuen Beiträge Excel Formeln: Bräuchte mal Hilfe für eine Formel 6 Fiene 578 29. Aug 2005, 21:15
Gast Bräuchte mal Hilfe für eine Formel
Keine neuen Beiträge Excel Formeln: dynamische Formeln ..wie? 7 macom 1184 28. Jul 2005, 14:01
macom dynamische Formeln ..wie?
Keine neuen Beiträge Excel Formeln: Abschalten der Autokorrektur bei Formeln 2 STG-SSC 4114 01. Jul 2005, 14:07
STG-SSC Abschalten der Autokorrektur bei Formeln
Keine neuen Beiträge Excel Formeln: Formeln vor Einsicht schützen? 6 DerGast 1008 20. Mai 2005, 14:16
fl618 Formeln vor Einsicht schützen?
Keine neuen Beiträge Excel Formeln: Formeln für cp und cpk Auswertung 2 Onkel Christoph 8891 12. Mai 2005, 11:22
fridgenep Formeln für cp und cpk Auswertung
Keine neuen Beiträge Excel Formeln: wie kann man statt der Zahl die Formeln anzeigen/ausdrucken 2 Ina-Ina 984 23. Feb 2005, 13:04
Ina-Ina wie kann man statt der Zahl die Formeln anzeigen/ausdrucken
Keine neuen Beiträge Excel Formeln: Formeln werden nicht berechnet 1 Gast 898 11. Feb 2005, 17:45
ae Formeln werden nicht berechnet
Keine neuen Beiträge Excel Formeln: Mit Formeln auf Arbeitsblättern zugreifen... 6 Heurik 897 08. Feb 2005, 07:57
truecolor Mit Formeln auf Arbeitsblättern zugreifen...
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme