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

"X" per Doppelklick einfügen

Forumthread: Re: "X" per Doppelklick einfügen

Re: "X" per Doppelklick einfügen
14.04.2002 22:36:59
Peter

Mike,

da bleiben dir wohl nur mehrere IF - Then Abfragen.

Mit Target.Row läßt sich die Zeile auslesen und mit Target.Column die Spalte.

Peter

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: "X" per Doppelklick einfügen
14.04.2002 22:39:54
Hajo

Hallo Mike

Gruß Hajo

Re: "X" per Doppelklick einfügen
14.04.2002 22:41:46
Mike

Hallo Peter,
leider bin ich darin versiert genug, um sowas selbst zu basteln.
Vielleicht könntest du mir dabei behilflich sein.
Gruß
Mike

Re: "X" per Doppelklick einfügen
14.04.2002 22:46:48
Hajo

Hallo Mike

der code ist ein wenig lang Doppelklick kann ja nur auf einer Zelle sein darum

Gruß Hajo

Anzeige
Re: "X" per Doppelklick einfügen
15.04.2002 00:02:34
Peter

Hallo Mike,

schau doch mal, was Hajo Dir geantwortet hat. :)

Peter

Hab's selbst hinbekommen.Danke
15.04.2002 01:44:27
Mike

Hallo Hajo,

habe im Archiv gesucht und ein passendes Makro von Hans gefunden. Habe es für meinen Bedarf abgeändert und in "Diese Arbeitsmappe" eingefügt. Es funktioniert.
Das Makro lautet:

Private Sub Workbook_Open()
With Worksheets(1).Range("M2")
.Value = .Value + 1
End With
End Sub

Gruß Mike


Anzeige
Hab's selbst hinbekommen. Dank
15.04.2002 01:45:47
Mike

Hallo Hajo,

habe im Archiv gesucht und ein passendes Makro von Hans gefunden. Habe es für meinen Bedarf abgeändert und in "Diese Arbeitsmappe" eingefügt. Es funktioniert.
Das Makro lautet:

Private Sub Workbook_Open()
With Worksheets(1).Range("M2")
.Value = .Value + 1
End With
End Sub

Gruß Mike

Anzeige
Re: Hab's selbst hinbekommen.Danke
15.04.2002 06:15:18
Hajo

Hallo Mike

wo wird hier das X eingefügt???

und wo ist hier der von Dir gewünschte Bereich ???


Gruß Hajo

Re: Hab's selbst hinbekommen.Danke
15.04.2002 09:32:16
Mike

Hallo Hajo,
das mit dem X einfügen ist soweit erledigt. Habe dein erstes Makro verwendet.
Hierbei geht es um den 2.Teil meiner Frage bezüglich der fortlaufenden Rechnungsnummer, das ich mit diesem Makro so gelöst habe.

Gruß Mike

Anzeige
"X" per Doppelklick einfügen
14.04.2002 22:30:17
Mike
Hallo alle zusammen,
habe ein kleines Makro, das auf Doppelklick in einer Zelle der Spalte E ein "X" einfügt. Es funktioniert auch.
Jetzt möchte ich das so abändern und erweitern, dass dies nur für die beiden Zellen "E2" und "E4" und die Zellbereiche "C23:C34" und "D23:D34" möglich ist.
Das kleine Makro, das ich im Moment nutze, lautet:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
Target.Offset(0, 0).Value = "X"
End Sub

Danke im Voraus.
Gruß
Mike


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Infobox / Tutorial

"X" per Doppelklick einfügen in Excel


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und die Arbeitsmappe, in der Du das Makro verwenden möchtest.

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

  3. Wähle im Projektfenster die Arbeitsmappe aus, in der Du das Makro einfügen möchtest.

  4. Klicke mit der rechten Maustaste auf das entsprechende Arbeitsblatt und wähle "Code anzeigen".

  5. Füge den folgenden Code in das Code-Fenster ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       If Not Intersect(Target, Me.Range("E2,E4,C23:C34,D23:D34")) Is Nothing Then
           Target.Value = "X"
           Cancel = True
       End If
    End Sub
  6. Schließe den VBA-Editor und gehe zurück zu Excel.

  7. Teste das Makro, indem Du auf die Zellen E2, E4, C23:C34 oder D23:D34 doppelt klickst. Ein "X" sollte nun eingefügt werden.


Häufige Fehler und Lösungen

  • Fehler: Das "X" wird nicht eingefügt.

    • Lösung: Stelle sicher, dass Du das Makro im richtigen Arbeitsblatt eingefügt hast und dass Du auf die korrekten Zellen doppelt klickst.
  • Fehler: Der Doppelklick funktioniert nicht.

    • Lösung: Prüfe, ob das Makro aktiviert ist. Gehe zu Datei > Optionen > Trust Center und aktiviere die Makros.

Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die folgenden Methoden ausprobieren:

  • Benutze Excel-Formeln, um bestimmte Bedingungen zu überprüfen und ein "X" automatisch einzufügen. Dies erfordert jedoch eine andere Herangehensweise und möglicherweise eine umfassendere Formel.

  • Verwende einen Excel-Doppelklick auf Zelle Shortcut, um eine bestehende Funktion zu triggern, die das "X" einfügt.


Praktische Beispiele

Hier ist ein einfaches Beispiel, wie Du das Makro anpassen kannst:

  • Wenn Du möchtest, dass das "X" nur in die Zelle E2 eingefügt wird, kannst Du die Zeile im Code so ändern:

    If Not Intersect(Target, Me.Range("E2")) Is Nothing Then
  • Um stattdessen eine andere Zelle zu verwenden, ersetze einfach "E2" durch die gewünschte Zellreferenz.


Tipps für Profis

  • Nutze die Application.EnableEvents = False und Application.EnableEvents = True Befehle, um sicherzustellen, dass andere Makros nicht während der Ausführung stören.

  • Experimentiere mit anderen Zellbereichen, um die Flexibilität Deines Doppelklick-Makros zu erhöhen.

  • Erstelle eine Sicherungskopie Deiner Datei, bevor Du Änderungen im VBA-Editor vornimmst.


FAQ: Häufige Fragen

1. Wie kann ich das Makro für andere Zellen anpassen?
Du kannst die Zellreferenzen im Intersect-Befehl anpassen, um das Makro für beliebige Zellen zu erweitern.

2. Was tun, wenn das Makro nicht funktioniert?
Überprüfe, ob Du das Makro im richtigen Arbeitsblatt und in der richtigen Arbeitsmappe gespeichert hast. Stelle sicher, dass Makros in den Excel-Optionen aktiviert sind.

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