Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bedingung für VBA-Code

Bedingung für VBA-Code
03.06.2007 11:47:00
KiaOra
Hi Ihr,
habe eine Datei, in der gem. folgendem Code bei Doppelklick in bestimmte Feldern (hier: Bereich I4 bis AL2000) ein "X" erscheint.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set SMenge = Application.Intersect(Range("I4:AL2000"), Range(Target.Address))
If SMenge Is Nothing Then Exit Sub
Target.Value = "X"
End Sub



Nun ist es notwendig, dass dieser Code in den gewählten Spalten nur dann läuft, wenn Zeile 2 der entsprechenden Spalte mit einem Wert gefüllt ist.

Bsp. 1: J2 = "" : es sollen keine "X" via Doppelklick in dieser Spalte gesetzt werden können
Bsp. 2: K2 "" : es sollen "X" via Doppelklick in dieser Spalte gesetzt werden können
Hoffe, Ihr könnt mir wieder mal weiterhelfen! :-)
VG u vielen Dank im Voraus,
Micha

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bedingung für VBA-Code
03.06.2007 11:55:00
Hajo_Zi
Hallo Micha,
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set SMenge = Application.Intersect(Range("I4:AL2000"), Range(Target.Address))
If SMenge Is Nothing Then Exit Sub
If Cells(2, Target.Column)  "" Then Target.Value = "X"
End Sub



Anzeige
AW: Bedingung für VBA-Code
03.06.2007 12:19:00
KiaOra
Hi Hajo,
genial einfach und genial - funzt ! :-)
Tausend Dank!
Micha

AW: Bedingung für VBA-Code
03.06.2007 18:46:33
KiaOra
Hi Hajo,
genial wie immer - vielen Dank !!!
VG u schönen Abend,
Micha
;

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

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