Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.02.2017 19:33:50 |
BlackJack66 |
|
|
|
02.02.2017 19:55:51 |
Crazy Tom |
|
|
|
03.02.2017 08:16:30 |
BlackJack66 |
|
|
Datum in InputBox |
03.02.2017 07:08:40 |
GraFri |
|
|
|
03.02.2017 08:26:41 |
BlackJack66 |
|
|
|
03.02.2017 10:58:32 |
Gast70117 |
|
|
|
03.02.2017 13:40:21 |
BlackJack66 |
|
|
|
03.02.2017 15:50:24 |
SJ |
|
|
|
03.02.2017 17:21:27 |
Gast10567 |
|
|
|
04.02.2017 12:33:51 |
SJ |
|
|
|
04.02.2017 09:02:31 |
Gast70117 |
|
|
|
04.02.2017 20:30:12 |
GraGri |
|
|
|
14.02.2017 08:06:07 |
BlackJack66 |
|
|
Von:
GraFri |
Datum:
03.02.2017 07:08:40 |
Views:
730 |
Rating:
|
Antwort:
|
Thema:
Datum in InputBox |
Hallo
Vielleicht so:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Das Makro soll Tage in einem bestimmten Bereich zusammenzählen und dann ein (und in der Folge weitere) Pop-Up-Fenster öffnen
Dim Bereich As Range
Dim Antwort As String
With ThisWorkbook.Worksheets("Tabelle1")
'Dieser Bereich soll zusammengezählt werden
Set Bereich = .Range("d15:d40")
'Summe soll in Zelle D41 geschrieben werden
.Range("d41").Value = Application.WorksheetFunction.Sum(Bereich)
'Zelle G2 ungleich geprüft
If .Range("g2").Value <> "geprüft" Then
'Bereich grösser als 90 (Tage)
If .Range("d41") >= 90 Then
MsgBox "Heizung prüfen! (>= 90 Tage)", vbOKOnly + vbExclamation
Antwort = MsgBox("Wurde die Heizung geprüft?", vbYesNoCancel + vbQuestion)
If Antwort = vbYes Then
.Range("g2").Value = "geprüft"
.Range("h2").Value = VBA.Environ("UserName")
.Range("i2").Value = Format(Now, "DD.MM.YYYY_HH:MM:SS")
.Range("g2:i2").Interior.ColorIndex = 4
.Range("g10").Value = InputBox("Welche Firma?")
Do
Antwort = InputBox("Wann geprüft? Bitte Datum eingeben!", "Datum TT.MM.JJJJ", _
FormatDateTime(Date, vbShortDate))
Loop Until Antwort <> "" And IsDate(Antwort)
.Range("g13").Value = Format(Antwort, "DD.MM.YYYY")
ElseIf Antwort = vbNo Then
.Range("g2").Value = "NICHT geprüft!!!"
.Range("h2").Value = VBA.Environ("UserName")
.Range("i2").Value = Format(Now, "DD.MM.YYYY_HH:MM:SS")
.Range("g2:i2").Font.Bold = True
.Range("g2:i2").Interior.ColorIndex = 3
Else
MsgBox "Warum brichst Du ab?"
End If
End If
End If
End With
mfg, GraFri
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.02.2017 19:33:50 |
BlackJack66 |
|
|
|
02.02.2017 19:55:51 |
Crazy Tom |
|
|
|
03.02.2017 08:16:30 |
BlackJack66 |
|
|
Datum in InputBox |
03.02.2017 07:08:40 |
GraFri |
|
|
|
03.02.2017 08:26:41 |
BlackJack66 |
|
|
|
03.02.2017 10:58:32 |
Gast70117 |
|
|
|
03.02.2017 13:40:21 |
BlackJack66 |
|
|
|
03.02.2017 15:50:24 |
SJ |
|
|
|
03.02.2017 17:21:27 |
Gast10567 |
|
|
|
04.02.2017 12:33:51 |
SJ |
|
|
|
04.02.2017 09:02:31 |
Gast70117 |
|
|
|
04.02.2017 20:30:12 |
GraGri |
|
|
|
14.02.2017 08:06:07 |
BlackJack66 |
|
|