Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 19:24:45
Diagramm über Bereichsnamen abrufen
07.05.2024 18:42:21
Wo platziere ich diesen VBA-Code?
07.05.2024 18:09:41
UserForm als PDF Speichern [Bild Lösung]
07.05.2024 16:36:49
Excel Arbeitszeit berechnung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfragemaske für Auftragszeiten

Abfragemaske für Auftragszeiten
Pascal
Hallo Leute,
ich wollte eine kleine Abfrage für Auftragszeiten basteln. Leider bin ich in VBA nicht so bewandert..
Die Inputboxen habe ich schon zurecht gestrickt. Mein Problem liegt darin. Das ich nicht weiss wie ich die erfassten Daten jetzt in der Tabelle, im Blatt "Zeitprotokoll" in entsprechenden Zellen, speichern kann.
Die Tabelle soll sich immer automatisch um eine Zeile mit lfd. Nr. erweitern. Außerdem soll immer beim speichern automatisch Datum und Uhrzeit gespeichert werden.Und eswäre cool wenn er sich, über nen SVerweis oder so, zur Personalnummer den passenden Mitarbeiternamen ziehen würde.
Außerdem habe ich das Problem das, nach der letzten eingabe in der Inputbox es immer auf Abbrechen springt.
Link zu meiner Datei:
https://www.herber.de/bbs/user/74762.xls
Danke im vorraus für eure hilfe!
Pascal

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Abfragemaske für Auftragszeiten
10.05.2011 13:49:33
hary
Hallo Pascal
mal als Ansatz 

Private Sub Start_Click()
Dim LoLetzte As Long
With Sheets("Zeitprotokoll")
LoLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'naechste freie Zelle SpalteA
.Cells(LoLetzte, 1) = WorksheetFunction.Max(.Columns(1)) + 1 'lfd. Nummer in SpalteA
.Cells(LoLetzte, 2) = Date & " " & Time ' Datum und Uhrzeit
.Cells(LoLetzte, 3) = TextBox1.Value ' die 3 heisst SpalteC, 4 wuerde SpalteD usw.
' weiterfortsetzen
End With
Unload Me
End Sub

fuer das Abbrechenproblem: Rchtsklick auf die Userform und aktivierreihenfolge anpassen.
gruss hary
Anzeige
AW: Abfragemaske für Auftragszeiten
10.05.2011 14:27:26
Pascal
Super :-)
das klappt richtig gut....
Thanks
Pascal

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige