Supportnet / Forum / Tabellenkalkulation

hallo, ein "nicht-so-excel-versierter" fragt: ich möchte eine tabelle erstellen, aus der die alters- und beschäftigungsstruktur von mitarbeiterin ersichtlich wird. will sagen: eine spalte "name des mitarbeiters" eine spalte mit "geburtsdatum" eine spalte mit "errechnetem alter in jahren" eine spalte mit "wer ist weiblich bzw. männlich" eine spalte mit "wer ist in voll- bzw. teilzeit beschäftigt" und summen-feldern wie "anzahl der beschäftigten" "anzahl der beschäftigten in voll- bzw. teilzeit" "durchschnittsalter der weiblichen beschäftigten" "durchschnittsalter der männlichen beschäftigten" ich möchte gerne in die spalte neben einem weiblichen bzw. neben einem männlichen namen ein symbol "xyz" setzen. dieses symbol soll für "weiblich bzw. männlich" stehen. unten möchte ich die anzahl der symbole "addieren". oder: ich möchte bestimte felder farbig markieren, unten soll dann die anzahl der farbig markierten felder addiert werden. kann excel die anzahl von symbolen/markierungen/farben oder änhlichem errechnen oder müssen es immer "zahlen" sein? besten dank für hinweise und tipps.

Moin reinerhb,

was meinst Du mit Symbole? Wenn Du z.B. eine Raute (#) als Symbol meinst, funktioniert das ganze mit der Formel

=ZÄHLENWENN(A:A;"#")

Das Zählen der Zellenfarbe funktioniert mit dem folgenden Code. Kopiere ihn in das VBA Projekt der Tabelle, in der die farben gezählt werden sollen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zähler As Integer, Zelle As Range
For Each Zelle In Range("A1:A5000")
If Zelle.Interior.ColorIndex = 3 Then
Zähler = Zähler + 1
End If
Next
Range("A1").Value = Zähler
End Sub

Dieser Code zählt, wieviele rote Zellen vorhanden sind und gibt die Zahl in A1 aus. Soll eine andere Hintergrundfarbe gezählt werden, muss die ´Farbindexzahl in der Zeile

If Zelle.Interior.ColorIndex = 3 Then


geändert werden. An die Zahlen kommst Du, wenn Du nachfolgendes Makro in einem leeren Tabellenblatt durchlaufen lässt.

Sub Farbauswahl()
  Dim x As Byte
  For x = 1 To 56
    If x < 29 Then
      Cells(x, 1) = x
      Cells(x, 3) = x
      Cells(x, 4) = x
      Cells(x, 2).Interior.ColorIndex = x
      Cells(x, 3).Font.ColorIndex = x
      Cells(x, 4).Font.ColorIndex = x
    Else
      Cells(x - 28, 6) = x
      Cells(x - 28, 8) = x
      Cells(x - 28, 9) = x
      Cells(x - 28, 7).Interior.ColorIndex = x
      Cells(x - 28, 8).Font.ColorIndex = x
      Cells(x - 28, 9).Font.ColorIndex = x
    End If
  Next x
End Sub

Da ich nicht weiß, ob Du Dich mit VBA (Visual Basic) auskennst, kommt hier eine kurze Anweisung, wie Du den Code in Deine Tabelle bekommst.

1. Markiere die Anweisung aus diesem Beitrag und Kopiere (Strg c) diesen.

2. Klicke in Deiner Exceldatei in der Menüleiste nacheinander auf Extras => Makro => Visual Basic Editor oder drücke die Tastenkombination Alt F11

3. In dem neu geöffneten Fenster suche auf der linken Seite nach dem Eintrag VBA Projekt(Hier der Name Deiner Tabelle)

4. Klicke danach in dem linken Fenster auf den Eintrag Tabelle1(Dein Tabellenname) oder Tabelle2(Dein Tabellenname),bzw die Tabelle, in dem der Code wirken soll.

5. Füge nun die vorher kopierte Anweisung in das rechte leere Fenster ein.

Du solltest zum Abschluss noch die Sicherheitseinstellung, die beim Öffnen der Datei abgefragt wird, kontrollieren. Klicke dazu nacheinander in der Menüleiste wieder auf

Das Makro bekommst Du nach folgender Anleitung in Deine Tabelle.

1. Markiere die Anweisung aus diesem Beitrag und Kopiere (Strg c) diesen.

2. Klicke in Deiner Exceldatei in der Menüleiste nacheinander auf Extras => Makro => Visual Basic Editor oder drücke die Tastenkombination Alt F11

3. In dem neu geöffneten Fenster suche auf der linken Seite nach dem Eintrag VBA Projekt(Hier der Name Deiner Tabelle) und klicke doppelt auf diesen Eintrag

4. Klicke danach nacheinander in der Menüleiste auf Einfügen => Modul.

5. Füge nun die vorher kopierte Anweisung in das rechte leere Fenster ein.

Zum Aufrufen des Makros gehe in der Menüleiste auf Extras => Makro => Makros... und klicke das an. In dem Fenster suche den Eintrag "Farbauswahl" und klicke doppelt darauf. Das Makro sollte dann ausgeführt werden.

Du solltest zum Abschluss noch die Sicherheitseinstellung, die beim Öffnen der Datei abgefragt wird, kontrollieren. Klicke dazu nacheinander in der Menüleiste wieder auf Extras => Makro und dann auf Sicherheit.... Gehe, falls nicht schon angezeigt, auf die Registerkarte Sicherheitsstufe und schaue dort nach, ob die Einstellung Mittel aktiviert ist. Wenn nicht, aktiviere diese Einstellung, da sonst der Code nicht ausgeführt werden kann. Beim nächsten Öffnen Deiner Datei kommt eine Abfrage, ob Makros aktiviert oder deaktiviert werden sollen. Klicke auf aktivieren und der Code wird ausgeführt.

Ich hoffe, Du kommst klar. Bei Fragen oder Problemen melde Dich noch mal.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Rainer,

du könntest die Symbole z.B. auch mit folgender Formel zählen lassen, wenn du sie mit einer Schriftart erzeugst:

=ZÄHLENWENN($A$1:$A$100;ZEICHEN(74))

Diese Formel zählt z.B. fröhliche Smileys (mit Wingdings erzeugt).

So müßte es klappen. Wenn es ein Symbol sein soll, das nicht durch eine Schriftart erzeugt wiord, wüßte ich momentan nicht, wie das gehen sollte.

Alterntiv bleibt ja immer noch die pragmatische Möglichkeit, ganz einfach mit den Kürzeln m und w zu arbeiten ;-)

CU
want2cu

hallo,

allerbesten dank! auch für die erklärung, die für mich tatsächlich hilfreich ist.

ich arbeite noch dran, kann also noch nichts zum ergebnis sagen.

bis dann

• Excel 03 - rechnen mit Zahlen und buchstaben
• Addieren von Werten verschiedener Datein, ist das möglich??
• Gerundete Werte addieren
• Excel 2002 Dateien in Excel 2007 für MS Vista Home Premium
• Namen in Spalte A addieren