Excel Makro Datum 14 Tage voraus anzeigen lassen?

Computer: Software & Programmierung Visual Basic
#1

Hallo leute,
im Laufe meines Praktikums hab ich ein kleines Problem mit einem Excel Makro! Ich soll ein Auswahlfenster erstellen(userform) mit dem man, je macj Datum eine 2 wochen und eine 6 wochen ansicht auswaehlen kann! Bin aber zimelich neu in Excel Makro Programmierung hab mal einen Code zusammengeschrieben aber irgendwie geht es nicht!Problem war das es schon eine bestehende Excel/Makro Datei ist die ziemlich Komplex ist!
Bin fur jeden Vorschlag sehr dankbar!
Ich hoffe sehr, dass ihr mir weiter helfen koennt!
Tausend Dank im Voraus!

Private Sub CommandButton1_Click()

Dim i As Integer
Dim last As Integer
Dim diffe As Long
Dim today As String

With Sheet1

Application.ScreenUpdating = False
Application.DisplayStatusBar = True
'makes sure that the statusbar is visible
Application.StatusBar = „Please wait…“
‚‘== show all before filter to prevent the filter of a prefiltered list ==
Call ShowAll

last = .UsedRange.Rows.Count
today = Date
'diffe = DateDiff(„d“, today, ro)
For i = 1 To last

If today > 14 Then
Sheet1.Rows(zeile, 7).Hidden = True

Else
Sheet1.Rows(zeile, 7).Hidden = False
End If

Next i

Application.StatusBar = False

End With

End Sub

#2

Moin, Marc,

mir fallen 2 Dinge auf:

  • today ist niemals 14, sondern gleich dem Tagesdatum.
  • In der Schleife wird i nicht benutzt.

Gruß Ralf

#3

Hallo Marc,

Ich soll ein Auswahlfenster
erstellen(userform) mit dem man, je macj Datum eine 2 wochen
und eine 6 wochen ansicht auswaehlen kann!

wie stellst du dir das vor? Optionsbutton oder anders?

Problem war
das es schon eine bestehende Excel/Makro Datei ist die
ziemlich Komplex ist!

Daß ist doch der Userform egal.
Ich sehe im Code daß da wohl in Spalte 7 =G datümer stehen.
Und durch Optionsbutton o.ä. willst du dann je nach Wahl nur noch die Zeilen anzeigen lassen die in G ein datum der letzen 2 oder 6 Wochen haben oder durch einen dritten Button alle.
Ist das korrekt?

Gruß
Reinhard

#4

Antwort kommt in 14 Tagen :wink:))

#5

Antwort kommt in 14 Tagen :wink:))

Hallo Ralf,

na, dann ist ja noch Zeit :smile:

Aber du hast Recht. ich habe einen Fehler gemacht und wurde nachlässig.

Ich hätte nur kurz über die Anfrage schauen sollen, eine frage die mir sofort einfällt/auffällt, da ist ja vieles marode, als Nachfrage stellen.

Kommt eine Antwort des Anfragers, erst dann schau ich mir die Anfrage genau an.
Kommt nix ist quasi die Anfrage beantwortet :smile:

Gruß
Reinhard