Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pop Up am Monatsanfang

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
Anzeige
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
Anzeige
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
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige