Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1524to1528
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
Inhaltsverzeichnis

MsgBoxen

MsgBoxen
20.11.2016 20:17:03
Patrick
Hallo,
muss da noch was fragen bzgl. der MsgBoxen.
Wie mache ich das so wenig umständlich wie möglich, dass wenn ich im Bereich B2:BP6 auf eine Zelle doppelklicke, dass sich dann eine MsgBox mit den Werten der neben gelegenen Zelle öffnet.
Die Werte der gleich daneben liegenen Zelle sieht man nicht.
lg Patrick

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBoxen
20.11.2016 20:26:28
Crazy
Hallo
hier wird der Inhalt der Zelle rechts neben
der doppeltgeklickten ausgegeben
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngBereich As Range
Set rngBereich = Range("B2:BP6")
If Not Intersect(Target, rngBereich) Is Nothing Then
Cancel = True
MsgBox Target.Offset(0, 1).Value
End If
End Sub
MfG Tom
AW: MsgBoxen
20.11.2016 20:28:54
Patrick
super danke
funktioniert einwandfrei!
mfg Patrick
AW: MsgBoxen
20.11.2016 20:52:37
Patrick
super danke
funktioniert einwandfrei!
mfg Patrick
AW: MsgBoxen
20.11.2016 20:54:03
Patrick
Eine Frage hätte ich dann doch noch,
wenn in einer Zelle z.b.: Frei steht, geht das dass dann eben nicht der Text der daneben steht kommt, sondern in der MsgBox "Frei" steht.
Lg
Anzeige
Ja ...
20.11.2016 21:02:37
Matthias
Hi
Ja das geht auch ...
MsgBox IIf(Target.Value = "Frei", "Frei", Target.Offset(, 1).Value)
Gruß Matthias
AW: Ja ...
20.11.2016 21:18:23
Patrick
Wo müsste ich diesen Code dann einfügen?
Mfg P
na wo Deine jetzige MsgBox steht ... owT
20.11.2016 21:19:57
Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige