Mehrere Blätter zusammen fassen und mehr :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Mehrere Blätter zusammen fassen und mehr

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

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

Christian001
Newbie
Newbie

Anmeldedatum: 29.01.2008
Beiträge: 32

Verfasst am: 30.01.2008, 12:32

Hi!

Ich bin absoluter Excel-Neuling... und hab ein kleines Problem. Embarassed

Ich versuche die angehängte Datei (leider im Original etwas umfangreicher) wie folgt zu bearbeiten:

1. Im Blatt "Gesamt" soll die Anzahl der Kreuze gezählt werden, die zur jeweiligen 'Frage' und 'Note' passt.

2. Wie kann ich ein neues Blatt erstellen, dass vielleicht sogar dann den Namen TN 4 hat? Oder muss man das manuell machen?
Es kann nämlich sein, das es einmal 4 Teilnehmer sind und einmal 30. Die müssen aber jeweils in die Gesamtauswertung - ohne die Formeln jedesmal umzuschreiben.

Es kommen bestimmt noch weitere Nachfrage. Laughing

Aber ich danke schonmal für eure Hilfe.

Gruß vom Christian

beispiel_auswertung.xls

Beschreibung:

Download

Dateiname:

beispiel_auswertung.xls

Dateigröße:

14 KB

Heruntergeladen:

25 mal

MatStorm
Newbie
Newbie

Anmeldedatum: 23.01.2008
Beiträge: 43

Verfasst am: 30.01.2008, 12:52

zu1.) Und wenn du anstatt ein "X" ne "1" machst, dann könntest du diese per Summe zusammenzählen...

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 30.01.2008, 13:08

Hallo!

Die "x" kannst du auch zählen mit
=ZÄHLENWENN(A1:A10;"x")

Um in deiner Mappe automatisch neue Blätter hinzuzufügen, könntest du diesen Code versuchen:

Code:

Sub NeuesBlatt()
Sheets.Add Before:=Sheets(Sheets.Count)
ActiveSheet.Name = "TN " & Sheets.Count - 1
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

Christian001
Newbie
Newbie

Anmeldedatum: 29.01.2008
Beiträge: 32

Verfasst am: 30.01.2008, 13:36

Erstmal schonmal danke für die echt super schnelle Hilfe!!!

Ich hab's jetzt mit

ZÄHLENWENN('TN 1:TN 3'!C8;"x")

probiert. Das klappt noch nicht so!

@Schatzi: Wo und wie füge ich denn einen (diesen) Code ein?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 30.01.2008, 13:43

Hallo nochmal!

Mit dem ZÄHLENWENN habe ich es mir wohl etwas zu einfach gemacht.
(Manchmal hilft genaueres Lesen eben doch...)
Daher würde ich nun auch den Vorschlag von MatStorm favorisieren.

Falls es doch unbedingt ein "x" sein muss, dann wird die Formel etwas komplizierter (siehe Gesamt!C8:E10). Die Teilnehmerzahl (entspricht den Blattnamen) wird in G1 angegeben.

Den Code habe ich dir dem Button zugewiesen.
Du findest ihn so:
Rechtsklick auf den Tabellenreiter "Gesamt" > Code anzeigen

beispiel_auswertung-1.xls

Beschreibung:

Download

Dateiname:

beispiel_auswertung-1.xls

Dateigröße:

28 KB

Heruntergeladen:

25 mal

Christian001
Newbie
Newbie

Anmeldedatum: 29.01.2008
Beiträge: 32

Verfasst am: 30.01.2008, 14:18

Wow, diese Code-Variante ist ja der Hammer!

Vielen, vielen Dank.

Wie muss ich denn den Code ändern, wenn ich in jedes neue Blatt, das ich einfügen will, eine Blanko-Tabelle gleich mit einfügen will?

Dann sollen auch die in jedem neuen (eingefügten) Blatt gemachten Kreuze in "Gesamt" mitgezählt werden. Also von TN 4 und TN 5 usw. - ohne dass ich vorher weiß, wieviele Teilnehmer es werden.

Und wie kommt man denn auf diese doch sehr lange Funktion

=SUMME(N(T(INDIREKT("'TN "&ZEILE(INDIREKT("1:"&$G$1))&"'!"&ADRESSE(ZEILE();SPALTE())))="x"))

???

Ich muss das ja später mal reproduzieren ... Embarassed

In echter Dankbarkeit, Christian

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 30.01.2008, 14:27

Hallo!

Versuch's mal so:

Code:

Private Sub CommandButton1_Click()
Sheets(Sheets.Count - 1).Copy Before:=Sheets(Sheets.Count)
ActiveSheet.Name = "TN " & Sheets.Count - 1
ActiveSheet.Range("C8:E10").ClearContents
Sheets("Gesamt").Range("G1") = Sheets.Count - 1
End Sub

Passt das?

Christian001
Newbie
Newbie

Anmeldedatum: 29.01.2008
Beiträge: 32

Verfasst am: 30.01.2008, 14:58

Jaaaa, super - so klappt's!

Christian001
Newbie
Newbie

Anmeldedatum: 29.01.2008
Beiträge: 32

Verfasst am: 01.02.2008, 14:15

Oh oh, jetzt brauch doch nochmal Hilfe:

Ich möchte jetzt das Makro und die Formel in das Original kopieren - oder halt anlegen. Ich weiß allerdings nicht wie!!!! Embarassed

Nochmals Danke.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 01.02.2008, 14:23

Hallo!

Erstelle in deinem Original einen Button aus der Symbolleiste "Steuerelemente-Toolbox".
Rechtsklicke diesen, wähle "Code anzeigen" und vervollständige den Coderumpf.

Die Formel aus C8 kannst du so übernehmen/kopieren/ausfüllen; achte aber darauf, die Formeleingabe mit Strg+Shift+Enter abzuschließen, da es sich um eine Matrixformel handelt.

Christian001
Newbie
Newbie

Anmeldedatum: 29.01.2008
Beiträge: 32

Verfasst am: 01.02.2008, 16:14

Super, läuft alles soweit.

Leider schaffe ich es nicht dem Code zu sagen, dass er alle meine "x" im neuen Blatt "clearen" soll. Leider überschneiden sich paar Zellen (Überschriften), so dass Excel mit sagt: Laufzeitfehler 1004: Kann Teil einer verbundenen Zelle nicht ändern.
Kann ich auch z.B. C8:D10 und dann wieder C12:D14 usw. schreiben? Also irgendwie nicht zusammen hängende Zellen da rein schreiben?

Und die 4 (bleibt immer bei 4) in G1 bleibt stehen, obwohl ich im Code schon P3 eingegeben habe. Auch in der Formel hab ich's geändert.
In "Gesamt" wird auch nur bis TN 4 gezählt ...

Question

Zuletzt bearbeitet von Christian001 am 01.02.2008, 16:19, insgesamt einmal bearbeitet

Christian001
Newbie
Newbie

Anmeldedatum: 29.01.2008
Beiträge: 32

Verfasst am: 01.02.2008, 16:17

Ach ja! Und wie kann ich den Button "schützen"?

Ich kann auch den Code nur über den Button aufrufen, nicht über den Reiter - da zeigt der mir nur einen leeren Code an.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 01.02.2008, 16:27

Hallo!

Auf verbundene Zellen solltest du prinzipiell verzichten!
Diese machen viel mehr Probleme, als dass sie nützen.
Wenn die Zellen NEBENeinander liegen, kannst du das Gleiche erreichen über
Menü Format > Zellen > Ausrichtung > Horizontal > Über Auswahl zentrieren

Möchtest du dennoch nicht auf verbundene Zellen verzichten, dann kannst du (wie du richtig sagst) die Zellen auch einzeln löschen lassen.

Wenn du die Teilnehmerzahl in P3 anzeigen lässt, dann kannst du G1 auch löschen. (Wozu brauchst du sie noch?)

Dass der Code über den Tabellenreiter angeblich nicht angezeigt werden soll, ist mir schleierhaft...
Vielleicht ist im VBA-Editor noch ein Doppelklick links oben auf "Gesamt" erforderlich, aber auch das wäre merkwürdig.

Christian001
Newbie
Newbie

Anmeldedatum: 29.01.2008
Beiträge: 32

Verfasst am: 01.02.2008, 17:28

So, jetzt läuft tatsächlich (fast) alles.

Habe auf die verbundenen Zellen verzichtet, ist wirklich besser.

Es stimmt tatsächlich: Der Code, der beim Betätigen des Buttons in Aktion tritt, ist nur darüber abrufbar. Anders als bei deinem Beispiel.
Allerdings fällt mir gerade auf, dass ich ja z.Z. mit Excel 2007 arbeite - vielleicht liegt's ja daran?!

Nur noch eine Frage: Was ist ein Array. Der sagt, da können Teile von nicht geändert werden. Und das bei 10 von ungefähr 400 Zellen ...

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 01.02.2008, 17:35

Hallo!

Dann hast du möglicherweise die Matrixformel "falsch" eingegeben.
Diese Meldung kommt, wenn du mehrere Zellen markiert hast und dann eine Formel mit Strg+Shift+Enter eingibst.
Meine Matrixformel brauchst du nur in C8 einzutragen (mit Strg+Shift+Enter) und sie danach am kleinen schwarzen Quadrat in die anderen Zellen ziehen. (Vorher aber das gesamte fehlerverursachende Array löschen!)

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

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel erkennt "Format$" sei...	timi	Microsoft Excel Hilfe	0	21.11.2008, 13:39
	verschickt keine e-mails mehr, seit n...	Moehrchen61	Microsoft Outlook Hilfe	13	20.11.2008, 18:43
	Vierecke Word - Datei nicht mehr lesb...	Limited	Microsoft Word Hilfe	2	20.11.2008, 11:07
	Empfängt/Verschickt keine E-Mails mehr!	RiRoSl	Microsoft Outlook Hilfe	1	19.11.2008, 18:44
	Outlook öffnet keine Hyperlinks mehr	Dariusz	Microsoft Outlook Hilfe	3	17.11.2008, 22:42

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