Pop Up am Monatsanfang

Forumthread: Pop Up am Monatsanfang

03.08.2004 07:29:34

Jonas

Hallo an alle Excel Experten!
Ich moechte eine Preisliste mit Excel erstellen, bei der automatisch beim oeffnen nach dem 1. eines Monats ein Fenster aufgeht, in dem man den aktuellen Waehrungswechselkurs eingeben kann. Dieser soll dann fuer den aktuellen Monat in einer Zelle gespeichert bleiben und das Popup Fenster soll erst wieder im naechsten Monat (nach dem 1.) automatisch erscheinen. Wer kann mir sagen, ob und wie das funktioniert.
Vielen Dank schon einmal!
Jonas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Pop Up am Monatsanfang

Daniel
AW: Pop Up am Monatsanfang

Ingo
AW: Pop Up am Monatsanfang

IngoG

AW: Pop Up am Monatsanfang

Daniel

Hallo Jonas,
mit VBA geht es z.B. so:
- Blatt 'Ini' anlegen (evtl. unsichtbar)
- Im Modul des Workbooks folgende Open-Prozedur anlegen:


Private Sub Workbook_Open()
Dim dblKurs As Double
If Month(Now) > ThisWorkbook.Worksheets("Ini").Range("A1") Then
dblKurs = InputBox("Kurs eingeben")
ThisWorkbook.Worksheets("WASAUCHIMMER").Range("B3") = dblKurs
ThisWorkbook.Worksheets("Ini").Range("A1") = Month(Now)
End If
End Sub

Daniel

AW: Pop Up am Monatsanfang

Ingo

In diesem Beispiel wird der Kurs im Bereich A1 gespeichert und der Monat auf den er
sich bezieht im Bereich A2
Folgendes makro ins Modul von Diese Arbeitsmappe kopieren:


Private Sub Workbook_Open()
Dim w_kurs
Dim monat As Byte
monat = month(Now)
If monat <> Sheets(1).Range("A2") Then
w_kurs = InputBox("Bitte geben Sie den aktuellen Kurs ein!")
If Not IsNumeric(w_kurs) Then Exit Sub
Sheets(1).Range("A1") = CDbl(w_kurs)
Sheets(1).Range("A1").NumberFormat = "00.0000"
Sheets(1).Range("A2") = monat
End If
End Sub

m f G
Ingo Christiansen

AW: Pop Up am Monatsanfang

IngoG

Hallo Jonas
versuchs mal so:
(Datum der letzten Eintragung steht im ersten Blatt in a1 und der WK im ersten Blatt in a2)


Private Sub Workbook_Open()
Dim wkurs As Double
If (Month(Sheets(1).[a1]) = Month(Date)) And (Year(Sheets(1).[a1]) = Year(Date)) Then
Exit Sub
Else
Do
Err.Clear
On Error Resume Next
wkurs = InputBox("Bitte aktuellen Wechselkurs eingeben", "Eingabe")
Loop Until (Err.Number = 0) Or (wkurs = 0)
If wkurs <> 0 Then
Sheets(1).[a1] = Date
Sheets(1).[b1] = wkurs
Sheets(1).[b1].NumberFormat = "#,##0.000000"
End If
End If
End Sub

Gruß Ingo

Beliebteste Forumthreads (12 Monate)

Forumthread: Pop Up am Monatsanfang

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread