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

Excel-Zellen bei Klick mit Wert füllen

Forumthread: Excel-Zellen bei Klick mit Wert füllen

Excel-Zellen bei Klick mit Wert füllen
03.02.2005 19:29:47
Peter
Hallo Leute,
Was muß ich anstellen, damit bei einem Mausklick ein Wert bzw. Buchstabe in
die jeweilige Zelle eingetragen wird. Z.B. Ich klicke einmal auf die Zelle A5 un dann soll dort ein x eingetragen werden. Dies sollte bei allen Zellen in denen es gewünscht wird so funktionieren. Hat jemand hierfür eine Lösung?
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-Zellen bei Klick mit Wert füllen
03.02.2005 19:33:30
Josef
Hallo Peter!
Nicht mt Klick, aber mit Doppelklick!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:D15")) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then Target = "x" Else Target = ""
End If
End Sub

Kopiere den Code in das Modul der Tabelle!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Excel-Zellen bei Klick mit Wert füllen


Schritt-für-Schritt-Anleitung

Um eine Excel-Zelle mit einem Wert (z.B. "x") auszufüllen, wenn du darauf klickst, kannst du einen VBA-Code verwenden. Hier ist eine einfache Anleitung:

  1. Öffne deine Excel-Datei.

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

  3. Im Projektfenster auf der linken Seite suche das Arbeitsblatt, in dem du die Funktion anwenden möchtest.

  4. Doppelklicke auf das gewünschte Arbeitsblatt, um das Codefenster zu öffnen.

  5. Kopiere folgenden Code und füge ihn in das Codefenster ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       If Not Intersect(Target, Range("A1:D15")) Is Nothing Then
           Cancel = True
           If IsEmpty(Target) Then
               Target = "x"
           Else
               Target = ""
           End If
       End If
    End Sub
  6. Schließe den VBA-Editor und kehre zu Excel zurück.

  7. Teste die Funktion, indem du auf eine Zelle in dem Bereich A1:D15 doppelklickst.

Dieser Code sorgt dafür, dass bei einem Doppelklick auf eine Zelle innerhalb des definierten Bereichs ein "x" eingetragen wird, wenn die Zelle leer ist. Ein weiterer Doppelklick entfernt das "x".


Häufige Fehler und Lösungen

  • Fehler: Der Code funktioniert nicht nach dem Einfügen.

    • Lösung: Stelle sicher, dass du den Code im richtigen Arbeitsblatt-Modul eingefügt hast und dass Makros in deinem Excel aktiviert sind.
  • Fehler: Das "x" wird nicht eingetragen.

    • Lösung: Überprüfe, ob der Bereich im Code korrekt definiert ist (z.B. Range("A1:D15")).

Alternative Methoden

Falls VBA keine Option für dich ist, kannst du auch die Funktion "Datenüberprüfung" nutzen, um Dropdown-Listen zu erstellen, aus denen du Werte auswählen kannst. Allerdings ist dies weniger dynamisch als das Ausfüllen mit einem Klick.


Praktische Beispiele

Angenommen, du möchtest in den Zellen A1 bis D15 ein "x" ausfüllen, wenn du darauf klickst. Der oben genannte VBA-Code erfüllt genau dieses Szenario. Wenn du jedoch eine größere Auswahl oder andere Buchstaben verwenden möchtest, passe einfach den Code an:

Target = "dein_wert"

Ersetze "dein_wert" mit dem gewünschten Wert, den du einfüllen möchtest.


Tipps für Profis

  • Nutze Conditional Formatting, um die Zellen visuell hervorzuheben, die ein "x" enthalten.
  • Erweitere den VBA-Code, um verschiedene Werte je nach Zelle oder nach vorherigem Inhalt einzufügen.
  • Um die Benutzerfreundlichkeit zu steigern, füge Hinweise oder Anleitungen in die Excel-Datei ein, damit andere Nutzer wissen, dass sie Doppelklick verwenden müssen.

FAQ: Häufige Fragen

1. Kann ich den Code anpassen, um andere Buchstaben oder Werte einzufügen? Ja, du kannst im VBA-Code den Text, der in die Zelle eingefügt wird, einfach ändern, indem du den Wert von Target anpasst.

2. Funktioniert dieser Code in allen Excel-Versionen? Der VBA-Code sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren. Stelle sicher, dass du Makros aktivierst.

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