Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code ändern mit zweiter funktion

Forumthread: Code ändern mit zweiter funktion

Code ändern mit zweiter funktion
21.06.2004 17:25:29
Alex
Hi Excellisten,
kann man den nachstehenden code so Enden das bei einem Klick sich die Zelle verfärbt oder das bei einem doppelklick sich nur die zellfarbe ändert ohne das der Cursor hineinspringt. Das also kein Cursor erscheint. ?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With Target
If .Column > 1 Then Exit Sub
Target.Interior.ColorIndex = IIf(.Interior.ColorIndex = xlNone, 4, xlNone)
End With
'Cancel = True
End Sub

Hoffe ihr habt ein lösung füe mein Problem
Gruß Alex
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Krücke
ChrisL
Hi Alex
Wie es der Titel schon sagt, leider nur eine "Krücke"...
Option Explicit
Public Rng1 As Range
Public Rng2 As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo errorhandler
Target.Interior.ColorIndex = 4
Rng1.Select
errorhandler:
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Rng1 = Rng2
Set Rng2 = Target
End Sub

Gruss
Chris
Anzeige
AW: Krücke
Alex
Hi
Also der Code ist ja nicht schlecht wäre aber gut wenn er bei einem weiteren klick wieder in "keine Füllung" zurück geht ist dies auch noch möglich.
AW: Krücke
ChrisL
Gruss
Chris
Option Explicit
Public Rng1 As Range
Public Rng2 As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo errorhandler
If Target.Interior.ColorIndex = 4 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 4
End If
Rng1.Select
errorhandler:
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Rng1 = Rng2
Set Rng2 = Target
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Suchen in Matrix nach 2 Werten mit einer Funktion
Heix

Hallo zusammen, habe gerade die Gesamt-CD von Herrn Herber erhalten und habe nun auch schon die erste Frage:
Ich möchte in einer Zelle den Wert aus einer Matrix übernehmen lassen und zwar wie folgt:
Matrix:
Lampe Brutto Netto
-------- -------- -------
EGES.....24.......18
28.11.2008 11:24:00
Thread-ID: 1028631
5 Beiträge
Anzeige
WENN Funktion mit mehr als 8 Bezügen
AcJoker

Hallo,
ich versuche eine Exceltabelle zu erstellen bei der in Spalte A etwas steht das 20 Verschieden Werte annehmen kann.
In Spalte B hätte ich gerne im Bezug auf Spalte A einen Wert stehen.
Im Hintergrund z.B. auf AA und AB gibt es eine "Übersetzung" der 20 möglichen Werte von Spa...
03.01.2009 16:13:58
Thread-ID: 1036563
6 Beiträge
feste Funktion mit sich ändernden Werten
Tobsen

Hallo habe folgendes Problem.
Möchte Tageswerte eines Programms in eine csv-Datei schreiben. Das solle folgendermaßen aussehen:
SchreibTag("DatenpunktWert1","DatenpunktWert2") --> Funktionsaufruf!
Funktion: Die Funktion soll Global sein, heißt die soll nicht mehr...
26.01.2009 10:29:00
Thread-ID: 1043776
7 Beiträge
Wenn Funktion mit mehreren Argumenten
Britta

Hallo Zusammen,
im moment steh ich total aufm Schlauch, ich habe mit Funktionen lange nicht gearbeitet und bekomme es grade nicht so recht hin.
Also hier das Ding: ich habe eine Tabelle in der in B2 eine Eingabe erfolgt, diese kann nur 16 oder 18 sein, sollte es anders sein, soll ein F...
07.03.2009 09:41:28
Thread-ID: 1057522
11 Beiträge
Error Handling mit mehreren Variablen
Steve

Hallo zusammen
Folgendes Problem:
Funktionswerte, welche in Variablen geschrieben werden, sollten auf error überprüft werden.
Die Werte werden aus Pivot Tabellen übernommen. Wenn jetzt aber die Funktion einen Error ausgibt, sollte das Makro in der entsprechenden Variable den Wert "N...
12.03.2009 16:18:24
Thread-ID: 1059543
14 Beiträge
Anzeige
Blatt Schützen mit Sortierfunktion im Autofilter
Johan

Hallo zusammen,
ich habe ein Blatt geschützt mit der Optionen, dass ein Anwender Filtern und auch die Sortierfunktion nutzen kann. Die Filterfunktion im geschützten Blatt geht.
Allerdings geht die Sortierfunktion innerhalb des Autofilters nicht. Es erscheint die Dialogbox, dass der Sch...
09.05.2009 08:55:08
Thread-ID: 1074035
6 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Anzahl oder Zählen mit 2 Variablen
Holger

Hallo,
ich finde einfach keine Lösung, habe es mit Matrixformeln probiert, kriege es aber nicht hin.
Ich habe eine Liste mit einigen Städtenamen und einem dazugehörigen Datum. Alles andere in der Liste ist nicht ausschlaggebend.
Ich möchte gerne in einem anderen Register die Summe d...
10.07.2009 13:42:27
Thread-ID: 1087680
16 Beiträge
Wenn Und Funktion mit mehreren Bedingungen
Katja

Hallo Leute,
brauche bei einer Funktion Eure Hilfe.
Spalte F steht die Dienstart, z.B. VD, B, RB usw.
Spalte W steht die Stundenanzahl ohne Pausenabzug
Ich möchte jetzt folgendes berechnen:
WENN(UND(F2="VD";W2 kleiner als 6);W2;WENN(UND(F2="VD";W2 kleiner als 9);W2-0,5;W...
13.07.2009 13:55:40
Thread-ID: 1088213
2 Beiträge
Funktion "Wenn" mit mehreren Argumenten
Andreas

Hallo zusammen,
ich suche die verschachtelte Wennfunktion die mir hilft bei z.B.:
Wenn Zelle A1 = Europa, dann kalkuliere B1*C1
Wenn Zelle A1 = Asien, dann kalkuliere B2*C2 usw. mit mehreren Argumenten.
z.B. =wenn (A1="Europa";B1*C1), wenn(A1="Asien";B2*C2), wenn(A1 = "Afrika";B...
19.11.2009 16:08:12
Thread-ID: 1118694
9 Beiträge
Anzeige
Rechnen mit mehreren Variablen
Richy

Hi,
ich habe folgende Gleichungen, die ich gerne lösen möchte:
268a+88b+160c+172d+138e+174f=4
188a+128b+76c+166d+150e+148f=2,85
238a+122b+84c+174d+136e+168f=3,55
130a+110b+162c+150d+184e+138f=2,05
72a+162b+190c+78d+110e+132f=0,6
120a+78b+178c+140d+164e+170f=1,75
...
15.01.2010 17:15:19
Thread-ID: 1130346
3 Beiträge
Zählenwenn mit mehreren Variablen | Herbers Excel-Forum
Gorkij
Hallo,
habe ein kleines Problem mit der ZÄHLENWENN-Funktion:
Ich möchte die Funtion von mehreren Variablen abhängig machen, wobei es sich um eine Oder-Verknüpfung handeln soll, das heißt, wenn eines von mehreren Kriterien erfüllt ist soll diese "Ereignis" gezählt werden.
Bsp.: in Der Sp...
29.01.2010 09:33:50
Thread-ID: 1134022
17 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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