Automatisches Füllen einer Tabelle :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Access 2002] Automatisches Füllen einer Tabelle

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Access Hilfe

Autor

Nachricht

Hello100
Newbie
Newbie

Anmeldedatum: 22.08.2008
Beiträge: 1

Verfasst am: 22.08.2008, 11:29

Hallo,

ich habe folgendes Problem:

Meine Tabelle besteht aus 6 Spalten und ist momentan noch leer.

Ich suche nun eine Formel, die mir diese Tabelle füllt unter folgenden Voraussetzungen:

- jede Zelle soll nur Zahlen enthalten
- die Summe aus allen Spalten soll in jeder Zeile 100 ergeben
- die Zahlen sollen nur die Werte "0", "10", "20" usw. bis "100" haben
- es sollen alle möglichen verschiedenen Kombinationen eingetragen werden die es unter diesen Voraussetzungen gibt

Hier ein Beispiel:

Spalte 1: 40
Spalte 2: 0
Spalte 3: 10
Spalte 4: 20
Spalte 5: 30
Spalte 6: 0

Vielen Dank!

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 461
Wohnort: Kiel

Verfasst am: 25.08.2008, 08:38

Hello100 hat Folgendes geschrieben:

Ich suche nun eine Formel, die mir diese Tabelle füllt unter folgenden Voraussetzungen:

Eine "Formel" würde mir dazu nicht einfallen, aber ein Algorithmus "brute force" errechnet mir 3003 Möglichkeiten.

Ich habe den mal in eine Excel-Tabelle gepackt, aber ein Umbau für Access ist kein Riesen-Aufwand:

Code:

Private Sub B_Einhundert_Click()

Dim s1 As Worksheet
Dim y1, x1 As Long
Dim m, n, o, p, q, r As Long
Dim z As Long

Set s1 = ActiveSheet

y1 = 1: x1 = 1
s1.Range("a2:h65536").ClearContents

For m = 0 To 10
For n = 0 To 10
For o = 0 To 10
For p = 0 To 10
For q = 0 To 10
For r = 0 To 10

z = (m * 10) + (n * 10) + (o * 10) + (p * 10) + (q * 10) + (r * 10)
If (z = 100) Then
y1 = y1 + 1
's1.Cells(y1, x1).Activate
s1.Cells(y1, x1).Value = y1 - 1
s1.Cells(y1, x1 + 1).Value = m * 10
s1.Cells(y1, x1 + 2).Value = n * 10
s1.Cells(y1, x1 + 3).Value = o * 10
s1.Cells(y1, x1 + 4).Value = p * 10
s1.Cells(y1, x1 + 5).Value = q * 10
s1.Cells(y1, x1 + 6).Value = r * 10
s1.Cells(y1, x1 + 7).Value = z
End If

Next r
Next q
Next p
Next o
Next n
Next m

End Sub

Falls Du die Routine hinter einen Button in Access packen möchtest, sind einige Anpassungen sinnvoll:
a) set --> dbopenrecordset
b) clearcontents --> Tabelle löschen
c) cells.value=wert --> addnew

Dann macht das Ding in Access das gleiche wie in Excel. Alternativ kannst du natürlich auch die berechnete Tabelle aus Excel in Access importieren... Wink

Dein Beispiel ist übrigens Möglichkeit Nr. 2584... Wink

Gruß, Michael

einhundert.xls

Beschreibung:

Download

Dateiname:

einhundert.xls

Dateigröße:

27 KB

Heruntergeladen:

20 mal

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Access Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Probleme beim Druck von zwei A5 Seite...	bigi01	Microsoft Word Hilfe	0	30.11.2008, 10:53
	[Excel 2003] erstellen einer suche / ...	Bob87	Microsoft Excel Hilfe	5	25.11.2008, 15:59
	Scrollen in einer Combobox	makko3b	Microsoft Word Hilfe	0	25.11.2008, 13:46
	fussball-tabelle	Christiano41	Microsoft Excel Hilfe	3	21.11.2008, 17:17
	Excel Tabelle in Word	lizzi	Microsoft Word Hilfe	0	20.11.2008, 14:17

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht 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 posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de