Profil von corradomiko

corradomiko

07.05.2013, 16:06

Excel Tabelle mit VBA erstellen und füllen

Hallo Zusammen, ich habe eine knifflige Aufgabe zu lösen und bin leider nicht der fitteste in VBA-Makros:

Meine Aufgabenstellung lautet wie folgt.

ich habe eine Zelle in die ein Zahlenwert eingetragen wird. anschließend soll nach Betätigung eines Buttons eine Tabelle mit 2 Spalten und der Zeilenanzahl des Zahlenwertes erzeugt werden. In Spalte 1 soll eine fortlaufende Nummer Zeile für Zeile eingetragen weden bis der Wert aus A1 erreicht ist.

Spalte 2 muss dann wieder mit manuellen Werten gefüllt werden.

Jetzt soll ein weiterer Button eine andere Tabelle erzeugen. die mehrere Spalten hat 6 Spalten hat.

in Spalte1 soll solange der Wert aus Spalte1 der ersten Tabelle stehen bis der Wert aus der ersten Tabelle aus Spalte 2 erreicht ist dann weiter mit nächstem Wert...

z.B.

Zelle A1 steht 4

Button1

C D 1 1 2 2 3 3 4 4

manuelle eingabe in Spalte D C D 1 1 3 2 2 5 3 3 4 4 4 5

Button 2

F G 1 1 1 2 1 2 3 1 3 4 2 1 5 2 2 6 2 3 7 2 4 8 2 5 9 3 1 10 3 2 11 3 3 12 3 4 13 4 1 14 4 2 15 4 3 16 4 4 17 4 5 usw.

kann mir hier jemand vielleicht helfen?

...zum Beitrag

Antwort

von corradomiko

08.05.2013, 11:17

Habe die Lösung selber gefunden ohne dummen Kommentare und Vermutungen von irgenwelchen Pseudo-IT-Fuzzis, nochmal Kompliment an den hervorragenden Support.

Ist zwar nur eine Lösung mit Formeln aber es funktioniert: Jetzt kann ich zum eigentlichen Teil der Problemstellung gehen, aber damit kann man hier ja keinen belasten, weil ja jeder seine "Hausaufgaben" selber machen muss...

für die, die es interesseiert:

s. Screenshot und Formeln...

SpalteB --> WENN(B2="";"";WENN(B2=$A$2;"";B2+1))

SpalteD --> WENN(D2="";"";WENN(D2+WENN(ZEILE()-1<=SUMME($C$2:INDEX(C$2:C$1048576;D2));0;1)>$A$2;"";D2+WENN(ZEILE()-1<=SUMME($C$2:INDEX(C$2:C$1048576;D2));0;1)))

SpalteE --> WENN(D3="";"";WENN(D3=D2;E2+1;1))

...zur Antwort