Infobox mit 2 Ausgabewerten
19.06.2009 12:37:29
Tom
bei Klick auf Tabellenblatt - Inputbox "Bitte Datum eingeben" - Datum wird eingegeben und nach "OK" in Zelle M5 ausgelesen wurde von Mathias L diese Lösung geschrieben:
Private Sub Worksheet_Activate()
Dim box As String
box = InputBox("Bitte Datum eingeben", , Date)
Range("M3") = box
End Sub
Wie kann ich den Code erweitern, so dass auch eine weitere Inputbox (oder eine gemeinsame mit 2 Zeilen - Datum + Name) aufgeht, "Bitte Datum eintragen" - Ausgabe in Zelle M1 ?
Danke vorab!
Gruß
TOM