inputbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: inputbox
von: thomas
Geschrieben am: 24.06.2002 - 15:53:17

hallo zusammen,
kann ich über eine inputbox 3 einzelne daten abfragen, die anschließend in die erste freie zeile einer tabelle eingetragen wird ?
Beispiel : eingetragen werden sollen eine fortlaufende rechnungsnummer, wer die rechnung geschrieben hat und wann.
vielleicht geht das ja auch anders ?
vielen dank
thomas

nach oben   nach unten

Re: inputbox
von: PeterW
Geschrieben am: 25.06.2002 - 00:18:24

Hallo Thomas,

entweder mehrere InputBoxen in einem Makro nacheinander oder eine Userform, zumindet gilt das für XL8.

Frage am Rande, warum sollte eine fortlaufende Rechnungsnummer eingegeben werden? Lass Excel doch die nächste fortlaufende Rechnungsnummer vorgeben.

Gruß
Peter


nach oben   nach unten

Re: inputbox
von: thomas
Geschrieben am: 25.06.2002 - 09:06:11

hallo peter
und wie geht das ?
grüße
thomas

nach oben   nach unten

Re: inputbox
von: PeterW
Geschrieben am: 25.06.2002 - 12:28:35

Hallo Thomas,

wenn die Rechnungsnummer in Spalte A, der Name in Spalte B und das Datum in Spalte C steht könnte folgendes gehen:


Sub RgNrundDatum()
Dim zeile As Long
zeile = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Cells(zeile + 1, 2) = InputBox("Wie war noch gleich der werte Name?")
Cells(zeile + 1, 1) = Cells(zeile, 1) + 1
Cells(zeile + 1, 3) = Format(Now(), "DD.MM.YYYY")
End Sub


In A1 steht 0 (oder die Nummer, die vor der ersten Rechnungsnummer kommen soll), A1 ist benutzerdefiniert formatiert mit "Rechnungsnummer".
Das Datum wird als Tagesdatum auch gleich noch automatisch gesetzt.

Gruß
Peter


nach oben   nach unten

Re: inputbox
von: thomas
Geschrieben am: 25.06.2002 - 14:09:20

hallo peter.
PERFEKT !!!!!!
herzlichen dank.
Thomas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "inputbox"