Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kreuze setzen (dahinter soll sich Zahl verbergen)

Kreuze setzen (dahinter soll sich Zahl verbergen)
Johannes
Hallo zusammen,
gerade bin ich auf das Forum hier gestoßen und würde mich freuen, wenn mir vielleicht jemand helfen könnte.
Also, ich habe folgendes Problem
Wenn ich auf das Kästchen A1 oder A2 oder A3 Klicke soll ein Kreuz erscheinen. Wenn ich nochmal drauf klicke soll das Kreuz wieder verschwinden. Es darf aber nur ein Kreuz gesetzt werden (z.b. nur bei A1 und nicht noch bei A2).
Das gleiche Spiel dann noch für B1, B2, B3, C1, C2, C3, D1, D2, D3.
Der Benutzer der Arbeitsmappe soll nur das Kreuz sehen, hinter dem Kreuz soll sich aber ein Wert verbergen. Für A1, B1, C1, D1 soll der Wert beim ankreuzen -1 sein. Bei A2, B2, C2, D2 soll der Wert 0 sein. Bei A3, B3, C3, D3 soll der Wert -1 sein. Das Gesamtergebnis soll addiert werden und dann noch mit einer Zahl x (z.b. 2,5) multipliziert werden. Dies stellt dann das Endergebnis dar, welches dann z. B. in E erscheint.
Ich hoffe, dass ich mich einigermaßen verständlich ausgedrückt habe!?
Wäre super wenn mir jemande bei meinem Problem helfen könnte.
Vielen Dank!
Gruß
Johannes
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kreuze setzen (dahinter soll sich Zahl verbergen)
16.07.2009 11:01:40
Johannes
Ups, und schon habe ich einen Fehler gemacht. Bei A3, B3, C3, D3 soll der Wert natürlich +1 sein.
AW: Kreuze setzen (dahinter soll sich Zahl verbergen)
16.07.2009 14:08:11
Rudi
Hallo,
in den Code der Tabelle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:D3")) Is Nothing Then
Target.NumberFormat = """X"";""X"";""X"""
If Target = "" Then
If Application.Count(Range(Cells(1, Target.Column), Cells(3, Target.Column))) = 0 Then
Select Case Target.Row
Case 1: Target = 1
Case 2: Target = 0
Case 3: Target = -1
End Select
End If
Else
Target.ClearContents
End If
End If
End Sub

Gruß
Rudi
Anzeige
AW: Kreuze setzen (dahinter soll sich Zahl verbergen)
16.07.2009 18:30:50
Johannes
Hallo Rudi,
vielen Dank schon einmal für Deine Hilfe.
Leider habe ich noch ein kleines Problem:
Es wäre gut, wenn A1= -1 B1= 0 und C1= +1 wäre. Da habe ich mich vorhin vertan.
Hab zwar schon selber probiert, es aber leider nicht hinbekommen.
Ist es möglich, dass die Summe dann automatisch addiert wird?
Also, dass ich A1, A2, A3, A4 angekreuzt habe und dann in einem extra Kästchen in diesem Beispiel das Ergebnis "-4" steht?
Vielen Dank schon mal für die Hilfe!
Viele Grüße
Johannes
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Kreuze setzen in Excel: Werte hinter Kästchen verbergen


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und wähle die Zellen aus: Markiere die Zellen A1 bis D3, in denen du die Kreuze setzen möchtest.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Neues Modul hinzufügen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Code einfügen: Kopiere den folgenden Code und füge ihn in das Modul ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Not Application.Intersect(Target, Range("A1:D3")) Is Nothing Then
           Target.NumberFormat = """X"";""X"";""X"""
           If Target = "" Then
               If Application.Count(Range(Cells(1, Target.Column), Cells(3, Target.Column))) = 0 Then
                   Select Case Target.Row
                       Case 1: Target = -1
                       Case 2: Target = 0
                       Case 3: Target = 1
                   End Select
               End If
           Else
               Target.ClearContents
           End If
       End If
    End Sub
  5. VBA-Editor schließen: Schließe den VBA-Editor und kehre zu deiner Excel-Datei zurück.

  6. Ergebnis anzeigen lassen: Füge in einer anderen Zelle (z.B. E1) die Formel ein, um die Ergebnisse zu summieren:

    =SUM(A1:A3) * 2.5

    Diese Formel multipliziert die Summe der Werte mit 2,5.


Häufige Fehler und Lösungen

  • Kein Kreuz erscheint: Stelle sicher, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wurde. Der Code sollte in ThisWorkbook und nicht im Modul sein.

  • Kreuze verschwinden nicht: Wenn du ein Kreuz setzen willst, aber das Kreuz nicht bleibt, überprüfe, ob du die Formatierung für die Zelle richtig eingestellt hast.

  • Werte nicht korrekt: Achte darauf, dass die Werte in der Select Case-Anweisung korrekt sind. Du kannst die Werte je nach Bedarf anpassen.


Alternative Methoden

Eine alternative Methode, um Kreuze in Zellen darzustellen, ist die Verwendung von Checkboxen. Du kannst diese unter dem Reiter „Entwicklertools“ hinzufügen:

  1. Aktiviere die Entwicklertools in den Excel-Optionen.
  2. Füge eine Checkbox in die gewünschten Zellen ein.
  3. Verknüpfe die Checkbox mit einer Zelle, um den Wert zu speichern.

So kannst du ebenfalls die SUMME-Funktion verwenden, um die Werte zu addieren.


Praktische Beispiele

  • Beispiel 1: Wenn du in Zelle A1 ein Kreuz setzt, wird der Wert -1 hinterlegt. Setzt du ein Kreuz in A2, bleibt der Wert 0, und in A3 wird 1 hinterlegt.

  • Beispiel 2: Wenn du mehrere Kreuze in den Zellen A1, B1, und C1 setzt, wird die Formel in E1 die Werte addieren und mit 2,5 multiplizieren.

Die Formel für die Summierung könnte dann so aussehen:

=SUM(A1:C1) * 2.5

Tipps für Profis

  • Formatierung anpassen: Du kannst die Formatierung für die Zellen anpassen, um die Kreuze noch deutlicher hervorzuheben, indem du die Hintergrundfarbe änderst.

  • Datenvalidierung nutzen: Verwende die Datenvalidierung, um die Eingabe von nur bestimmten Werten zu erlauben, was die Genauigkeit deiner Daten erhöht.

  • Kombination mit anderen Funktionen: Nutze die Funktion excel a1*b1+a2*b2+a3*b3, um komplexere Berechnungen in deiner Tabelle durchzuführen.


FAQ: Häufige Fragen

1. Wie kann ich ein Kreuz in eine Zelle einfügen?
Du kannst ein Kreuz in eine Zelle einfügen, indem du den oben beschriebenen VBA-Code verwendest.

2. Kann ich die Werte hinter den Kreuzen ändern?
Ja, du kannst die Werte in der Select Case-Anweisung anpassen, um die gewünschten Werte zu erhalten.

3. Wie zähle ich die gesetzten Kreuze?
Verwende die Funktion ZÄHLENWENN, um die Anzahl der Kreuze zu zählen, z.B. =ZÄHLENWENN(A1:D3, "X").

4. Funktioniert dies in allen Excel-Versionen?
Der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige