Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ToggleButton oder Umschaltbox

ToggleButton oder Umschaltbox
23.08.2007 12:21:05
Sven
Also ich muss sagen, das Forum hier ist spitzenklasse!!! Und vorallem ihr.... die mir immer schnell helfen!!
Aber nun zu meiner Frage.
Ich habe ein Userform mit zwei ToggleButtons oder auch Umschaltboxen genannt.
Vorab die eine heisst "Auftrag starten" die ander "Auftrag beenden"
Nun will dass wenn der Benutzer Auftrag starten auswählt, die aktuelle Uhrzeit (Wenn Daten übernommen werden) in die letzte Freie Zeile der Spalte D setzt.
Bei Auftrag beenden soll die Zeile mit dem der Auftrag gestarten wurde gesucht und die Endzeit (dann wieder aktuelle Uhrzeit) in die Spalte E geschrieben werden.
Habt ihr ne Idee?
Gruß

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ToggleButton oder Umschaltbox
23.08.2007 12:44:19
Jens
Hi Sven
Versuch mal so:

Private Sub ToggleButton1_Click()
Dim IntD As Integer, intE As Integer
intE = Worksheets("Tabelle1").Range("E65536").End(xlUp).Row + 1
IntD = Worksheets("Tabelle1").Range("D65536").End(xlUp).Row + 1
If ToggleButton1 = False Then
ToggleButton1.Caption = "Auftrag starten"
Worksheets("Tabelle1").Cells(intE, 5) = Time
End If
If ToggleButton1 = True Then
ToggleButton1.Caption = "Auftrag beenden"
Worksheets("Tabelle1").Cells(IntD, 4) = Time
End If
End Sub


Hoffe das hilft :-)
Gruß aus dem Sauerland
Jens

Anzeige
AW: ToggleButton oder Umschaltbox
23.08.2007 13:07:46
Sven
Hallo Jens,
es funktioniert fast perfekt.
Es arbeiten aber leider mehr Leute daran. Also wird wahrscheinlich ein anderer Auftrag auch gestartet.
Kann man dann irgendwie wenn eine Person seine Personalnummer eingibt und dessen Auftrag noch nicht beendet wurde, automatisch den Button auf "Auftrag beenden" machen und dass wenn er diesen anklickt, dann auch die Beendungszeit in die Zeile schreiben, in der sein Auftrag steht?
Weißt du wie ich meine?
Vielen dank.
Gruß
Sven

AW: ToggleButton oder Umschaltbox
23.08.2007 22:34:00
Jens
Hi Sven
Dafür müsste man den Aufbau der Tabelle kennen.
Die Datei bzw. eine Musterdatei wäre dafür sehr hilfreich.
Bin zwar keiner von den VBA-Professoren, aber ich würd es dann mal versuchen.
Gruß aus dem Sauerland
Jens

Anzeige
AW: ToggleButton oder Umschaltbox
23.08.2007 22:57:57
Sven
Hallo Jens,
danke dass du dich nochmal gemeldest hast.
Habe die Datei mal hochgeladen:

Die Datei https://www.herber.de/bbs/user/45317.xls wurde aus Datenschutzgründen gelöscht


Vielen Dank dass du dir die Zeit nimmst.
Hoffe du bekommst eine Lösung.
Danke
Gruß

300 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ToggleButton UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1