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