Auto Ausfüllen nach Vorgabe

Forumthread: Auto Ausfüllen nach Vorgabe

Thomas

Hallo Forum,
ich habe eine Frage.
Wie kann ich zum Beispiel eine Spalte mit vorher definierten Kriterien ausfüllen lassen?
Ich meine nicht die klassische Ausfüllmethode mit Maus ziehen, sondern das Programm sollte dies selbstständig machen.
Z.B.
Ich habe eine Toleranzuntergrenze von z.B 5, und eine Obergrenze von 15.
Ich will jetzt dass das Programm nach einer vorgegebenen Schrittzahl von z.B. 0,5 autmatisch eine Spalte erzeugt mit den Werten 5, 5.5, 6, 6.5,..usw bis zur oberen Grenze
Wenn ich die Die Vorgaben stehen in einem Zellbezug, und wenn ich die Werte ändere sollen sich Spaltenwerte automatisch anpassen.
Geht das?
Ich hoffe ich habe mein Problem verständlich ausgedrückt, und bedanke mich vorab für eure Info.
Lg
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Auto Ausfüllen nach Vorgabe

27.07.2012 11:50:24

Eugen

Hallo Thomas,
schau Dir das mal an
https://www.herber.de/bbs/user/81176.xlsm
mfg
wd

AW: Auto Ausfüllen nach Vorgabe

27.07.2012 14:33:39

Thomas

Hallo Eugen !
Danke für die schnelle Antwort, wies aussieht ist das mit VBA umgesetzt worden, oder?
Grund mehr mich mit VBA auseinanderzusetzen!
GLG und schönes Wochenende!
Thomas

AW: Auto Ausfüllen nach Vorgabe

27.07.2012 12:01:23

Uwe

Hallo Thomas,
meinst Du das so:
Tabelle1

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X
1	Schrittweite:	5	5,5	6	6,5	7	7,5	8	8,5	9	9,5	10	10,5	11	11,5	12	12,5	13	13,5	14	14,5	15
2	0,5
3	Untergrenze:
4	5
5	Obergrenze:
6	15

Formeln der Tabelle

Zelle	Formel
B1	=A4
C1	=WENN(ISTZAHL(B1); WENN(B1+$A$2<=$A$6;B1+$A$2;""); "")
D1	=WENN(ISTZAHL(C1); WENN(C1+$A$2<=$A$6;C1+$A$2;""); "")
E1	=WENN(ISTZAHL(D1); WENN(D1+$A$2<=$A$6;D1+$A$2;""); "")
F1	=WENN(ISTZAHL(E1); WENN(E1+$A$2<=$A$6;E1+$A$2;""); "")
G1	=WENN(ISTZAHL(F1); WENN(F1+$A$2<=$A$6;F1+$A$2;""); "")
H1	=WENN(ISTZAHL(G1); WENN(G1+$A$2<=$A$6;G1+$A$2;""); "")
I1	=WENN(ISTZAHL(H1); WENN(H1+$A$2<=$A$6;H1+$A$2;""); "")
J1	=WENN(ISTZAHL(I1); WENN(I1+$A$2<=$A$6;I1+$A$2;""); "")
K1	=WENN(ISTZAHL(J1); WENN(J1+$A$2<=$A$6;J1+$A$2;""); "")
L1	=WENN(ISTZAHL(K1); WENN(K1+$A$2<=$A$6;K1+$A$2;""); "")
M1	=WENN(ISTZAHL(L1); WENN(L1+$A$2<=$A$6;L1+$A$2;""); "")
N1	=WENN(ISTZAHL(M1); WENN(M1+$A$2<=$A$6;M1+$A$2;""); "")
O1	=WENN(ISTZAHL(N1); WENN(N1+$A$2<=$A$6;N1+$A$2;""); "")
P1	=WENN(ISTZAHL(O1); WENN(O1+$A$2<=$A$6;O1+$A$2;""); "")
Q1	=WENN(ISTZAHL(P1); WENN(P1+$A$2<=$A$6;P1+$A$2;""); "")
R1	=WENN(ISTZAHL(Q1); WENN(Q1+$A$2<=$A$6;Q1+$A$2;""); "")
S1	=WENN(ISTZAHL(R1); WENN(R1+$A$2<=$A$6;R1+$A$2;""); "")
T1	=WENN(ISTZAHL(S1); WENN(S1+$A$2<=$A$6;S1+$A$2;""); "")
U1	=WENN(ISTZAHL(T1); WENN(T1+$A$2<=$A$6;T1+$A$2;""); "")
V1	=WENN(ISTZAHL(U1); WENN(U1+$A$2<=$A$6;U1+$A$2;""); "")
W1	=WENN(ISTZAHL(V1); WENN(V1+$A$2<=$A$6;V1+$A$2;""); "")
X1	=WENN(ISTZAHL(W1); WENN(W1+$A$2<=$A$6;W1+$A$2;""); "")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß
Uwe
(:o)

AW: Auto Ausfüllen nach Vorgabe

27.07.2012 14:37:33

Thomas

Servus Uwe ,
danke für deine schnelle Antwort, ich werde mich mit deinem Vorschlag am WE gleich mal spielen !
Für weitere Fragen hoffe ich dass ich euch weiter belästigen darf :-)
GLG und schönes Wochenende!
Thomas

Beliebteste Forumthreads (12 Monate)

Forumthread: Auto Ausfüllen nach Vorgabe

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread