Hilfe bei Macro :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Hilfe bei Macro

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Seelenfusion
Newbie
Newbie

Anmeldedatum: 28.02.2008
Beiträge: 4

Verfasst am: 28.02.2008, 11:50

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 :)

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 28.02.2008, 12:10

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.

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Seelenfusion
Newbie
Newbie

Anmeldedatum: 28.02.2008
Beiträge: 4

Verfasst am: 28.02.2008, 12:30

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 :)

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 28.02.2008, 12:50

Hallo!

Dann könnte es so aussehen wie im Anhang.

Mappe3.xls

Beschreibung:

Download

Dateiname:

Mappe3.xls

Dateigröße:

22.5 KB

Heruntergeladen:

15 mal

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Seelenfusion
Newbie
Newbie

Anmeldedatum: 28.02.2008
Beiträge: 4

Verfasst am: 28.02.2008, 13:03

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

Echt vielen lieben dank :)

Seelenfusion
Newbie
Newbie

Anmeldedatum: 28.02.2008
Beiträge: 4

Verfasst am: 28.02.2008, 13:20

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 :))

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 28.02.2008, 13:30

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.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	hilfe!! wie erstelle ich so eine diag...	cinces	Microsoft Excel Hilfe	2	26.08.2008, 20:42
	Hilfe beim erstellen einer Importdatei	dobby110	Microsoft Excel Hilfe	5	26.08.2008, 12:36
	HILFE wegen Word 2007 AddIn Math	frank123	Microsoft Word Hilfe	0	22.08.2008, 17:44
	probleme mit visual-basic-hilfe	BigF	Microsoft Excel Hilfe	0	20.08.2008, 15:23
	Spezielle Formatierung als Vorlage......	BerndG	Microsoft Word Hilfe	2	19.08.2008, 11:18

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de