Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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.
Anzeige
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

174 Forumthreads zu ähnlichen 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
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
SVERWEIS oder ähnliche Funktion mit zwei Variablen
Manfred

Hallo,
ich hoffe dass ich jetzt kein Thema anspreche, dass bereits erschöpftend behandelt wurde. Ich habe jedenfalls nichts gefunden. Meine Problemstellung ist folgende:
Ich habe eine Tabelle mit ca. 120 Spalten. Jede Zeile stellt einen Datensatz dar. Die Daten werden ab der Zeile 8 erf...
04.02.2009 08:41:18
Thread-ID: 1046867
4 Beiträge
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
6
3
10
13
5
7
15
1
8
2
16
9
7
6
9
3
18
5
2
8
1
1
1