|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Abfrage Datum/Ausgabe fürs Jahr rückwirkend |
23.04.2015 12:05:28 |
viktoriaV |
|
|
|
23.04.2015 14:55:26 |
Gast71626 |
|
|
|
23.04.2015 15:52:09 |
Gast5715 |
|
|
|
23.04.2015 15:57:31 |
Gast71626 |
|
|
|
24.04.2015 09:21:32 |
viktoriaV |
|
|
|
24.04.2015 12:49:51 |
Gast92453 |
|
|
Von:
viktoriaV |
Datum:
23.04.2015 12:05:28 |
Views:
1877 |
Rating:
|
Antwort:
|
Thema:
Abfrage Datum/Ausgabe fürs Jahr rückwirkend |
|
Hallo Leute,
ich kenne mich sehr schlecht mit VBA aus, deswegen biete um eure Hilfe. Ich möche eine Anfrage erstellen, z.B. "Für welchen Monat wollen Sie einen Bericht erstellen?" Dann sollte es nach der Eingabe des Datums rückwirkend für ein Jahr eine folgene Tabelle erzeugt werden
|
Monat |
Von |
Bis |
|
Apr 14 |
01.04.2014 |
30.04.2014 |
|
Mai 14 |
01.05.2014 |
31.03.2014 |
|
Jun 14 |
01.06.2014 |
28.02.2014 |
|
Jul 14 |
01.07.2014 |
31.01.2014 |
|
Aug 14 |
01.08.2014 |
31.12.2013 |
|
Sep 14 |
01.09.2014 |
30.11.2013 |
|
Okt 14 |
01.10.2014 |
31.10.2013 |
|
Nov 14 |
01.11.2014 |
30.09.2013 |
|
Dez 14 |
01.12.2014 |
31.08.2013 |
|
Jan 15 |
01.01.2015 |
31.07.2013 |
|
Feb 15 |
01.02.2015 |
30.06.2013 |
|
Mrz 15 |
01.03.2015 |
31.05.2013 |
Anbei meine vorläufig gebastelte Makro.
Für jeden Tip werde mich sehr freuen,
MfG
Viktoria
Sub MonatsAbfrage()
Dim Datum1 As Date
Dim s As String
Dim Zahl As Integer
s = "m"
Datum1 = InputBox("Für welchen Monat(z.B. April 2015) wollen Sie einen Bericht erstellen?")
For i = 1 To 12
Zahl = -1
report.Sheets("Orders").Cells(6 + i, 3) = DateAdd(s, Zahl, Datum1)
Next i
End Sub
|
- 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
|
Abfrage Datum/Ausgabe fürs Jahr rückwirkend |
23.04.2015 12:05:28 |
viktoriaV |
|
|
|
23.04.2015 14:55:26 |
Gast71626 |
|
|
|
23.04.2015 15:52:09 |
Gast5715 |
|
|
|
23.04.2015 15:57:31 |
Gast71626 |
|
|
|
24.04.2015 09:21:32 |
viktoriaV |
|
|
|
24.04.2015 12:49:51 |
Gast92453 |
|
|