Bei Tabellenklick Infobox

Forumthread: Bei Tabellenklick Infobox
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bei Tabellenklick Infobox

08.06.2009 10:51:08

Tom

Hallo,
ich würde gerne folgendes erreichen:
Klick auf Tabellenblatt "Auswertung" - Inputbox "Bitte Datum eingeben" - Datum wird eingegeben und nach "OK" in Zelle M5 ausgelesen.
Wer hat ne Lösung?
Danke vorab
TOM

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

mit Worksheet_Activate()

08.06.2009 10:57:18

Matthias
Datumseingabe bei Blattaktivierung

08.06.2009 10:57:56

NoNet
AW: Bei Tabellenklick Infobox

08.06.2009 10:58:09

CarstenAS
AW: Bei Tabellenklick Infobox

08.06.2009 11:08:45

Tom

mit Worksheet_Activate()

08.06.2009 10:57:18

Matthias

Hallo TOM
Code ins Blatt ""Auswertung"


Private Sub Worksheet_Activate()
Dim box As String
box = InputBox("Bitte Datum eingeben", , Date)
Range("M5") = box
End Sub

Gruß Matthias

Datumseingabe bei Blattaktivierung

08.06.2009 10:57:56

NoNet

Hallo TOM,
kopiere das folgende Makro in das Klassenmodul des Tabellenblattes (also : Name des Blattes im Blattregister per rechts anklicken - "Code anzeigen..." auswählen) :

VBA-Code:

Private Sub Worksheet_Activate()
    Dim strDatum As String
    Do
        strDatum = Application.InputBox("Bitte Datum eingeben", , Format(Date, "DD.MM.YYYY"))
    Loop Until IsDate(strDatum) 'Solange, bis ein gütliges Datum eingegeben wurde
    [M4] = CDate(strDatum)  'Datum in M4 eintragen
End Sub
Gruß, NoNet

AW: Bei Tabellenklick Infobox

CarstenAS

Hallo
So könnte es gehen
doppelklick in tabelle infpbox geht auf datum eingeben und übertragen nach m5


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
a = InputBox("Datum bitte", "Datum eingeben")
Range("m5") = a
End Sub

gruß carstenas

AW: Bei Tabellenklick Infobox

Tom

Vielen Dank an Euch alle !!!
Gruß
TOM

AW: Bei Tabellenklick Infobox

08.06.2009 10:58:09

CarstenAS

Hallo
So könnte es gehen
doppelklick in tabelle infpbox geht auf datum eingeben und übertragen nach m5


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
a = InputBox("Datum bitte", "Datum eingeben")
Range("m5") = a
End Sub

gruß carstenas