Button mit Abfrage Fenstern und seperaten speicherrung.

Question

Guten Abend liebe Gemeinde,

nun ist es leider soweit ich habe ein weiteres Problem.

Ich würde gerne folgendes Umsetzen.

Wenn ich auf ein Button klicke, sollen hintereinander folgde Frage gestellt werden.

Firma, Kenzeichen

Das heißt drücke ich auf dem Button AUTOKOMMT
Fragt er mich nach der Firma , dann nachh dem Kennzeichen und speichert diese Daten hintereinander in anderen Zeilen ab.

Also drücken eingabe und auf der Tabelle 2 steht dann

VW HH-HH2525

Kommt dann ein weiteres Fahrzeug sollte er es nicht in die gleiche Zeile speichern sondern eine Spalte tiefer

VW HH-HH2525
Ford B-BB2525
Skoda DD-DD2525

usw.

Ist das überhaupt möglich und wenn ja wie?

MfG

und vielen Dank im Vorraus!

Answer 1

Hallo liebe Gemeinde, ich habe es nun soweit geschaft das ich nacheinander gefragt werde welche Firma und welches Kennzeichen. Desweiteren wird die Zeit eingetragen von dem Moment in dem das Fahrzeug einfährt.

Meine Frage nun wie muss ich das umschreiben damit er Automatisch eine Zeile tiefer das nächste Fahrzeug einträgt.??

Bitte um hilfe.

Hier mal mein Code:

Sub Inputbox_öffnen()
If Worksheets("Anwesende Monroe Park").Range("A38") = "" Then
Worksheets("Anwesende Monroe Park").Range("C38") = Format(Now, "hh:mm:ss")
End If
Dim Firma As Variant
Firma = Application.InputBox("Bitte geben Sie den Firmennamen ein.", "Firma", , Type:=2)
If Firma = False Then
Exit Sub
Else
Sheets("Anwesende Monroe Park").Activate
Range("A38") = Firma
End If
Dim Kennzeichen As Variant
Kennzeichen = Application.InputBox("Bitte geben Sie das Kennzeichen ein.", "Kennzeichen", , Type:=2)
If Firma = False Then
Exit Sub
Else
Sheets("Anwesende Monroe Park").Activate
Range("B38") = Kennzeichen
End If
Sheets("Benutzerinterface").Select
End Sub

Answer 2

So liebe Gemeinde ich habe es bis jetzt soweit geschaft das er mich nach der Firma und dem Kennzeichen fragt und diese zusätlich mit der aktuellen Zeit in eine Zeile schreibt.

Jedoch weis ich nicht wie ich das umschreiben muss das er bei erneutem klicken auf den Button das nächste Fahrzeug eine Zeile tiefer eintragen tut:

Hier mal mein Code:

Sub Inputbox_öffnen()
If Worksheets("Anwesende Monroe Park").Range("A38") = "" Then
Worksheets("Anwesende Monroe Park").Range("C38") = Format(Now, "hh:mm:ss")
End If
Dim Firma As Variant
Firma = Application.InputBox("Bitte geben Sie den Firmennamen ein.", "Firma", , Type:=2)
If Firma = False Then
Exit Sub
Else
Sheets("Anwesende Monroe Park").Activate
Range("A38") = Firma
End If
Dim Kennzeichen As Variant
Kennzeichen = Application.InputBox("Bitte geben Sie das Kennzeichen ein.", "Kennzeichen", , Type:=2)
If Firma = False Then
Exit Sub
Else
Sheets("Anwesende Monroe Park").Activate
Range("B38") = Kennzeichen
End If
Sheets("Benutzerinterface").Select
End Sub

Hoffe ihr könnt helfen!

MfG

Patejoker