Office: Hilfe bei Macro

Hallo,
erstmal ein lob an dieses Forum. Ich habe hier schon oft hilfe gefunden :)
Nur dieses Mal komme ich leider nicht weiter und bin auf euere Hilfe angewiesen.
Was ich brauche ist ein VBA Formular in dem ich Daten eingebe und diese dann in eine Excel Tabelle übertragen werden. Dabei muss aber nach jedem Datensatz eine neue Zeile in Excel angefangen werden.
Es geht um Fahrzeuge die betankt werden und dieses dann mit Datum, Uhrzeit, Kennzeichen, Spritsorte und den Litern in die Tabelle eingefügt werden sollen. Die Dateneingabe sollte dabei über ein Inputbox laufen mit der entsprechenden Frage :)
Wenns geht sollte das Formular dabei datum und Uhrzeit automatisch übernehmen. Die Spalten sind fest vorgegeben (von A1 bis F1)
Wichtig ist auch, dass das Formular erst mit Zeile A5 anfängt und dann eben jedesmal eine zeile weiter geht...
Ich hoffe ich konnte genau beschreiben worin mein Problem liegt und danke euch jetzt schon mal im vorraus für euere Hilfe :)

 

Hallo!

Hast du denn schon einen Roh-Entwurf wie das Formular aussehen soll?
Falls nicht, dann bau dir doch erstmal eine UserForm nach deinen Wünschen zusammen, dann kann man den Code direkt darauf anpassen.

 

Erstmal danke für die schnelle Antwort :)


Also so eine UserForm braucht es nicht wirklich. Mir langt es wenn er einfach eine Frage über eine Inputbox macht. Zb.
1. Bitte geben sie das Kenzeichen ein
2. Bitte geben sie die Spritsorte an
3. Bitte geben sie die betankten Liter ein
und am Ende
soll gefragt werden ob ein weiteres Auto betankt werden soll oder nicht :)

Diese 3 Daten sollen dann eben in die Tabelle mit Datum und Uhrzeit der Eingabe übertragen werden :)

 

Hallo!

Dann könnte es so aussehen wie im Anhang.

 

Suuuuuuuperrr Suuuuuuuuuuuperrrrrrrrrr lieeeeben Dank :))))))
Das war genau das was ich gesucht habe :)))

Echt vielen lieben dank :)

 

Eine Frage hätte ich noch :)
Wie kann ich das Arbeitsblätter übergreifend machen? Also in der Arbeitsmappe sind mehrere Arbeitsblätter vorhanden (für jeden Tag ein Blatt) :)
wenn es zu kompliziert wird kann ich das macro ja einfach kopieren :))

 

Hallo!

Wenn deine Blätter die Namen "27.02.2008", "28.02.2008", "29.02.2008", "01.03.2008" tragen, dann könnte es so funktionieren:

Code:

Private Sub CommandButton1_Click()
Dim Kz As String, Sprit As String, Liter As Single, Zeile As Long, x
Dim Blatt As Worksheet
Anfang:
Set Blatt = Sheets(CStr(Date))
With Blatt
Zeile = .Range("A65536").End(xlUp).Row + 1
Kz = InputBox("Geben Sie das Kennzeichen ein:")
Sprit = InputBox("Geben Sie die Spritsorte ein:")
Liter = CSng(InputBox("Geben Sie die getankten Liter ein:"))
.Cells(Zeile, 1) = Date
.Cells(Zeile, 2) = Now
.Cells(Zeile, 3) = Kz
.Cells(Zeile, 4) = Sprit
.Cells(Zeile, 5) = Liter
End With
x = MsgBox("Möchten Sie eine weitere Eingabe tätigen?", vbYesNo)
If x = 6 Then GoTo Anfang
End Sub

Die Daten werden immer in das Blatt des aktuellen Tages übertragen.