Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 2. Auswahl in Makro hinzufügen

2. Auswahl in Makro hinzufügen
08.09.2008 18:16:54
Josef_T
Guten Tag,
ist es möglich, in unten stehendem Script, eine zweite Meldung einzubauen und zwar so, das eine Auswahl möglich ist, zwischen:
"Mängel behoben" oder "Gerät defekt".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 19
Cancel = True
Target.Value = Format(Now, "dd/mm/yy hh:mm") & " Mängel behoben!"
Wenn das geht, kann mir dann bitte jemand helfen, die Syntax auf die Reihe zu kriegen?
Danke schon mal
Grüsse Josef
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2. Auswahl in Makro hinzufügen
08.09.2008 18:28:00
Herby
Hallo Josef,
probiers mal so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c
Select Case Target.Column
Case 19
Cancel = True
c = MsgBox("Mängel behoben ?", vbYesNo)
If c = 6 Then
Target.Value = Format(Now, "dd/mm/yy hh:mm") & " Mängel behoben!"
Else
Target.Value = Format(Now, "dd/mm/yy hh:mm") & " Gerät defekt!"
End If
End Select
End Sub


Viele Grüße
Herby

Anzeige
AW: 2. Auswahl in Makro hinzufügen
08.09.2008 19:01:00
Josef_T
Hallo Herby,
genau so sollte es sein! Danke sehr für Deine Hilfe!
Gruß
Josef

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige