Aktuellen Stand speichern

[schauan]

Hallöchen,

hier mal noch mein VBA-freier Ansatz.

Das eine Blatt ist das Dokument was Du vielleicht noch ausdrucken willst. Die Daten für die Wochen (Teilnehmer, km) trägst Du auf dem zweiten Blatt ein. Über das Auswahlfeld in C3 auf dem ersten Blatt kannst Du die gewünschte KW auswählen. Ich gehe dabei erst mal davon aus, dass jeder die km schafft. Wenn nicht, dann könnte man statt der x auch die km auf Tabelle2 eintragen.

Die 0 statt der x beim Ergebnis ließe sich auch noch unterdrücken. Ebenso könnte man statt der doch für den ungeübten etwas schwerer verständlichen INDEX- und VERGLEICH-Funktionen auch SVERWEIS nehmen.

Ich habe jetzt in die Auswahl die ersten 3 KW genommen, geht aber im Prinzip genau so mit dem Datum und lässt sich natürlich nach rechts für weitere Daten erweitern.

Vorteil: Du hast alles übersichtlich auf 2 Tabellen und nicht am Jahresende 52 oder 104 oder wieviel auch immer, je nachdem, wie oft Ihr unterwegs seid. Und mit den Daten auf Tabelle 2 kann man auch einfacher "Jahresendauswertungen" erstellen wie Gesamt-km, Anzahl Teilnahmen einzelner Mitfahrer oder Teilnahmen insgesamt usw.



  Radler_Schauan.xlsx (Größe: 12,83 KB / Downloads: 7)

[klausthaler]

Hallo

Wie könnte ich denn zB. in Zeile C dauerhaft den Durchschnitt für jeden Fahrer anzeigen lassen(Formel dafür habe ich), so das die Touren die durch deine Super Vorlage Automatisch Eingefügt werden nach rechts wandern.
Ich habe da noch so ein oder zwei Sachen die eventuell noch einfügen möchte.

Gruß
Rolf

[klausthaler]

Hallo

Habe in die  Datei "Mitradler" von Georg ein neues Macro erstellt.  Bei der Ausführung aber erhalte ich die Fehlermeldung:
(Laufzeitfehler '1004' Die Name Eigenschaften des Font-Objekts kann nicht festgelegt werden.) Nachdem ich diese Meldung schließe wird das Macro aber denn noch richtig ausgeführt. Was besagt diese Fehlermeldung und wie kann ich sie berichtigen.
Wenn ich das Wort "Font" für mich ableite hat es eventuell mit den Schrift Eigenschaften zu tun? 

Vielen Dank im voraus

Rolf

[schauan]

Hallöchen,

ich hab mal auf Tabelle2 diesen Ansatz gewählt. Die Formeln in Zeile 6 eingeben und runter ziehen.

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B	C	D	E	F	G	H
3		km	40	50	60
4			Mitradler
5	Nr.	Name	KW01	KW02	KW03	Summe	Teilnamen	Schnitt
6	1	Name1		x		50	1	50
7	2	Name2		x		50	1	50
8	3	Name3		x		50	1	50
9	4	Name4	x			40	1	40
10	5	Name5	x			40	1	40
11	6	Name6	x			40	1	40
12	7	Name7	x		x	100	2	50
13	8	Name8	X		x	100	2	50
14	9	Name9	X		x	100	2	50
15	10	Name10			x	60	1	60
16	11	Name11				0	0	0
17	12	Name12				0	0	0
18	13	Name13	x			40	1	40
19	14	Name14			x	60	1	60
20	15	Name15				0	0	0
21	16	Name16				0	0	0

Zelle	Formel
F6	=SUMMENPRODUKT($C$3:$E$3*(C6:E6="X"))
G6	=ZÄHLENWENN(C6:E6;"X")
H6	=WENNFEHLER(F6/G6;0)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[GeorgH]

Hallo Rolf,

in die Auswertung habe ich jetzt noch die Anzahl der Touren pro Fahrer und den Durchschnitt mit aufgenommen.

Viele Grüße
Georg



  Mitradler2.xlsm (Größe: 41,21 KB / Downloads: 1)

[klausthaler]

  Mitradler2.xlsm (Größe: 34,26 KB / Downloads: 1) Hallo Georg

Die Tabelle funktioniert ja Tadellos. Habe sie in den letzten Wochen versucht zu ändern aber das gelingt mir einfach nicht.
Wenn ich in dem Blatt Vorlage nun auch die Zellen D6-D30 (werden auch mit "x" markiert)mit einbeziehen möchte sollen diese natürlich auch in der Auswertung mit eingetragen werden. Wie kann ich denn diese Spalte mit in das Projekt einfügen?
MfG
Rolf

[schauan]

Hallöchen,

im Code zum Aktualisieren hast Du diese Zeile:

If tmpName.Offset(0, 1).Value = "x" Then

Erweitere sie so:

If tmpName.Offset(0, 1).Value = "x" Or tmpName.Offset(0, 2).Value = "x" Then

Dann werden auch die Gäste einbezogen.

[klausthaler]

Hallo

Vielen Dank, klapp hervorragend. Und wie wird in dem Blatt Auswertung die Spalte Gäste hinzugefügt ?
MfG
klausthaler