MsgBox

[Houlunder]

Hallo,

die MsgBox hat als Meldung das Datum, nun möchte ich wenn ich eine bestimmte Zelle im Arbeitsblatt anklicke sich die MSG Box öffnet und ich, wenn möglich,
über die Funktion ja/nein das Datum Statisch aus der Meldung  der MSGBox in die Zelle übernimmt.

Code:

Sub Datum()
    Dim Datum
    Dim Antwort As Integer
    'Set Netzwerk = CreateObject("wscript.network")
    Antwort = MsgBox("Datum Einfügen?", vbQuestion + vbYesNo)
    ThisWorkbook.Worksheets("Tabelle1").Range("D5") = Date
    ThisWorkbook.Worksheets("Tabelle1").Range("D6") = Time
End Sub

 Mit diesem Code komm ich nicht weiter, hat jemand eine Lösung?
Danke schon mal im Voraus.

Houlunder

[schauan]

Hallöchen,

wenn Du eine Msgbox mit verschiedenen Buttons hast, kannst Du diese auch auswerten, z.B.

If ANtwort = vbyes Then 'ja gedrueckt
...
Else 'Nein gedrueckt
...
End If

[Houlunder]

# schauan

Danke für schnelle Antwort,

danit komm ich überhaupt nicht zu recht, soll dieser Code noch in meinen hinein interpretiert werden, oder autak arbeiten.

Houlonder

[schauan]

Hallöchen,

also,

1) hast Du ein Worksheet_SelectionChange - Makro, welches Deinen Code startet?

2) Du hast einen code gepostet, und meine Antwort bezog sich auf diesen.
Du weißt doch, was der in der Zeile mit "Antwort" macht?
Mein Vorschlag kommt danach, und wo die 3 Punkte stehen kommt Deine Aktion hin, also der Eintrag von Datum und Zeit.

[Kuwer]

Hallo Holounder,

Code:

Sub DatumEinfuegen()
  If MsgBox("Datum Einfügen?", vbQuestion + vbYesNo) = vbYes Then
    ThisWorkbook.Worksheets("Tabelle1").Range("D5") = Date
    ThisWorkbook.Worksheets("Tabelle1").Range("D6") = Time
  End If
End Sub

Gruß Uwe

[Houlunder]

Vielen Dank für die Antworten,

vielleich habe ich meine Frage bzw. das Problem falsch formuliert.

Wenn die MsgBox mit der Meldung "Willst Du das Datum Einfügen?"aufgeht, habich die möglichkei mit ja oder nein zu entscheiden. wenn ich mich für ja entscheide soll nicht nur das Datum angezeigt werden, sondern in Zelle "D6" eingetragen werden.

Ist das möglich, und wenn wie?

Code:

Sub Aufruf_Meldung()
On Error GoTo ErrorHandler
    MsgBox "Willst Du das Datum Einfügen" & Chr(13) & Date, vbInformation, "Datum", vbYesNo

    Exit Sub
ErrorHandler:
    MsgBox Err.Description & Chr(13) & Err.Number & Chr(13) & Err.Source, _
        vbCritical, "Ein fehler ist aufgetreten"
    Exit Sub
End Sub


Sub Meldung_abfangen()
    Antwort = MsgBox("Willst Du das Datum Einfügen?", 32 + 4 + 256)
    Select Case Antwort
    Case 6
        MsgBox Date
    Case 7
        MsgBox "Du Wollten das Datum nicht Einfügen"
    End Select
  
End Sub

Houlunder

[schauan]

Hallöchen,

vielleicht hast Du das Makro von Uwe nicht ausprobiert? Es trägt das Datum in D5 ein und in D6 die Zeit, wie ursprünglich von Dir gepostet. Das brauchst Du nur zu wechseln.

[volti]

Noch 'ne Alternative...

Code:

Sub Meldung_abfangen()
  Select Case MsgBox("Willst Du das heutige Datum einfügen?", 292)
  Case vbYes
        MsgBox "Das Datum " & Date & " wurde eingefügt!", vbInformation, "Datum einfügen"
        ThisWorkbook.Worksheets("Tabelle1").Range("D5").Resize(1, 2) = Array(Date, Time)
  Case vbNo
        MsgBox "Es wurde kein Datum eingefügt", vbCritical, "Datum einfügen"
  End Select
End Sub

_________
viele Grüße
Karl-Heinz

[Houlunder]

# Karl Heinz

vielen Dank,

Das haut hin,
das Makro muss aus dem Arbeitsblatt gestartet werden wenn die Zelle D5 mit der Maus angesprochen wird.
Ich bin halt noch nich so sicher mit VBA.

Houlunder

[Houlunder]

Ich galube ich habe es hinbekommen.
"
Frage ist jetzt nur noch wie bekoome ich die "Zeit" statt in Zelle "E5" in Zelle "F5".

PHP-Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
'MsgBox "Datum Einfügen"
Select Case MsgBox("Willst Du das heutige Datum einfügen?", 292)
  Case vbYes
        MsgBox " Datum " & Date & " wird eingefügt!", vbInformation, "Datum einfügen"
        ThisWorkbook.Worksheets("Tabelle1").Range("D5").Resize(1, 2) = Array(Date, Time)
  Case vbNo
        MsgBox "Es wurde kein Datum eingefügt", vbCritical, "Datum einfügen"
  End Select
End If
End Sub


Houlunder