Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Beim Anklicken sollte ein Kreuz erscheinen

Forumthread: Beim Anklicken sollte ein Kreuz erscheinen

Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 06:16:38
Caroline
Hallo zusammen

Habe ein Problem in einem Formular. Möchte dass wenn man ein Feld
anklickt, dass dort gleich ein Kreuz erscheint. (Muss bei mehreren Feldern
sein!)
Habe das Feld mit dem Häckchen gefunden, ist aber in unserem Formular
nicht brauchbar, da es viel zu klein ist.
Kann mir da jemand helfen. Ist dies überhaupt machbar.

Besten Dank zum Voraus für Eure Hilfe.

Gruss Caroline
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 06:51:30
AndreasS
Hallo,
meinst du eine Zelle?
Gruß
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 07:10:23
Caroline
Hallo Andreas

Also ich habe eine Zelle eingerahm als Vierreck. Und bei
diesen eingerahmten Zellen sollte ich ein Makro zuweisen können, damit
wenn dort jemand anklickt automatisch ein Kreuz erschein.
(Grund ist ein sehr grosses Formular mit ca. 50 solcher Felder, und diese
Felder muss dann ein Mitarbeiter jeweils mit einem Kreuz JA oder NEIN ausfüllen.)
Daher möchte ich den Aufwand verringern indem man diese Felder nur
anzuklicken braucht.

Gruss Caroline
Anzeige
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 07:16:40
AndreasS
Hallo,
diese Makro gehört zum Tabellenblatt, wo das "X" erscheinen soll:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = "X"
Cancel = True
End Sub


Gruß
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 07:34:32
AndreasS
Hallo,
wenn deine Felder alle in einer Spalte stehen(Bsp. für Spalte C):


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Target = "X"
Cancel = True
Else
Exit Sub
End If
End Sub


Gruß
Andreas
Anzeige
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 08:12:40
Caroline
Hallo Andreas

Kann ich dieses Makro kopieren und ganz normal als Makro in
dem Tabellenblatt als Makro einfügen wo ich es brauche.
Habe es nämlich probiert und dann einem Feld zugewiesen, aber
es funktioniert nicht.
Muss ich noch etwas abändern am Makro?

Besten Dank im Voraus für Deine Hilfe
Gruss Caroline
Anzeige
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 08:28:50
Carsten
Hallo Caroline,

entschuldige wenn ich mich einmische.

Der Code gehört in die Tabelle (Rechtsklick auf Tabellenregister => Code anzeigen und dann im rechten Fenster einfügen).
Wenn Du das gemacht hast, erscheint in jeder Zelle des Blattes in die Du einen Doppelklick machst ein "X". Beim zweiten Code den Andreas gepostet hat ist der Bereich in dem das "X" bei einem Doppelklick erscheint auf Spalte C beschränkt.

Anbei noch ein Makro von Hajo. Hier ist pro Zeile nur ein "x" möglich, d.h. es kann nicht vorkommen, dass ja und nein gleichzeitig gewählt werden.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim BoVorhanden As Boolean
ActiveSheet.Unprotect
If Target.Column < 5 And Target.Column > 3 And Target.Row < 20 And Target.Row > 5 Then
BoVorhanden = Target.Value = "x"
Cancel = True
Range("D" & Target.Row & ":AC" & Target.Row).Cells = ""
If BoVorhanden = False Then Target.Cells = "x"
ActiveSheet.Protect
End If
End Sub


Den Klick-Bereich mußt Du natürlich noch anpassen.

Gruß
Carsten
Anzeige
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 08:37:54
Caroline
Hallo Carsten

Vielen Dank. Jetzt habe ich es "gecheckt".
Wusste gar nicht dass mann einen Code auf eine Tabelle bezogen hinterlegen kann.
Daher bin ich nicht nach gekommen.
Habe nun wieder was gelernt.

Vielen Dank für Eure Hilfe.

Caroline
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 08:34:15
AndreasS
Hallo,
rechtsklick auf den Tabellennamen, dann Code anzeigen auswählen. Hier den Code reinkopieren.
In welche Zellen soll denn das "X" eingetragen werden? Könnte dir dann ein Bsp. geben...
Gruß
Anzeige
AW: Beim Anklicken sollte ein Kreuz erscheinen
07.01.2004 08:23:56
Hajo_Zi
Hallo Caroline

schaue mal auf meine Homepage da ist ein Beispiel, auf der Seite VBA (Kreuz in Zelle).

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Kreuz in Excel: So füllst du Zellen per Klick


Schritt-für-Schritt-Anleitung

Um in Excel ein Kreuz in einer Zelle erscheinen zu lassen, wenn du die Zelle anklickst, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne das Excel-Dokument, in dem du das Makro implementieren möchtest.

  2. Klicke mit der rechten Maustaste auf den Tabellennamen unten und wähle "Code anzeigen".

  3. Füge den folgenden Code in das rechte Fenster ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       Target = "X"
       Cancel = True
    End Sub
  4. Schließe den VBA-Editor und teste das Makro, indem du doppelt auf eine Zelle klickst. Ein "X" sollte erscheinen.

Wenn du nur in bestimmten Spalten ein Kreuz einfügen möchtest, verwende diesen Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 3 Then ' Hier kannst du die Spaltennummer anpassen
        Target = "X"
        Cancel = True
    Else
        Exit Sub
    End If
End Sub

Häufige Fehler und Lösungen

  • Makro funktioniert nicht: Stelle sicher, dass du den Code im richtigen Arbeitsblatt eingefügt hast. Der Code muss in das Modul des jeweiligen Tabellenblatts eingefügt werden.

  • Kreuz erscheint nicht: Überprüfe, ob du das richtige Ereignis (Doppelklick) verwendet hast. Stelle sicher, dass der Excel-Schutz nicht aktiv ist.


Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die Funktion "Häkchen" verwenden. Diese ist jedoch weniger flexibel und visuell:

  1. Gehe zu "Entwicklertools" und füge ein Kontrollkästchen hinzu.
  2. Stelle die Größe des Kontrollkästchens so ein, dass es in deine Zelle passt.

Diese Methode eignet sich jedoch nur für einzelne Zellen und nicht für große Formulare.


Praktische Beispiele

Angenommen, du hast ein Formular mit vielen Ja/Nein-Feldern. Du kannst das oben genannte Makro anpassen, um nur in bestimmten Zellen ein Kreuz einzufügen. Zum Beispiel:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row < 20 Then
        Target = "X"
        Cancel = True
    End If
End Sub

Hier wird das Kreuz nur in den ersten 20 Zeilen angezeigt. Du kannst es nach deinen Bedürfnissen anpassen.


Tipps für Profis

  • Code anpassen: Du kannst den Code so anpassen, dass nur ein Kreuz in einer Zeile ausgefüllt werden kann, indem du vorherige Einträge löscht.

  • Schutz verwenden: Schütze dein Arbeitsblatt nach der Eingabe des Codes, um ungewollte Änderungen zu verhindern.

  • Verwendung von Formeln: In Kombination mit dem Makro kannst du auch Formeln verwenden, um die Berechnungen basierend auf den Kreuzungen in den Zellen durchzuführen.


FAQ: Häufige Fragen

1. Kann ich das Makro in mehreren Tabellen verwenden?
Ja, du musst den Code jedoch für jedes Tabellenblatt separat einfügen.

2. Funktioniert das auch in Excel Online?
Nein, VBA-Makros sind nur in der Desktop-Version von Excel verfügbar.

3. Wie kann ich das Kreuz wieder entfernen?
Du kannst das "X" einfach durch einen Doppelklick auf die Zelle löschen oder einen weiteren Code hinzufügen, der das X entfernt.

4. Was passiert, wenn ich auf eine andere Zelle klicke?
Das Makro wird nur aktiv, wenn du doppelt auf die Zelle klickst, die du im Code definiert hast.

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