Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1004to1008
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
Inhaltsverzeichnis

Autorennen

Autorennen
02.09.2008 21:30:00
Christian
Was mach ich wohl falsch, wenn ich möchte, dass VBA dierekt nach der Eingabe meine TextBox umformatiert?
Dim Runde1, Runde2, Runde3, Runde4, Runde5 As Date
...
TextBox1.Value = Format(Datum, "hh:mm:ss")
kann jemand helfen ?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bahnhof owT
02.09.2008 21:33:00
Uduuh
AW: Autorennen
03.09.2008 11:17:00
Hoffi
Hallo,
Kannst Du mal präzieser beschreiben was Du genau willst?
mit TextBox1.Value = Format(Datum, "hh:mm:ss")

schreibst Du die aktuelle Uhrzeit in die Textbox.
Wenn Du die Zeiten aus Deiner Variable haben willst, dann musst Du das so schreiben

TextBox1.Value = Format(Runde1, "hh:mm:ss")


und wenn es dann noch nach befüllen der Textbox sein soll, dann nimm das TextBox_Exit Ereignis.
Grüße
Hoffi

AW: Autorennen
04.09.2008 07:07:00
Christian
Hallo Hoffi,
am Wochenende ist das Rennen. Es geht darum, möglichst gleichmäßige Runden hinzulegen. Dmit ich nicht alles einzeln eintragen muß, habe ich eine Eingabemaske entwickelt. Hier soll VBA das Value aus der ComboBox1 in der Spalte C17:C34 suchen, und somit die richtige Zeile bestimmen.
Danach soll VBA die Rundenzeiten 1-5 eintragen.
Bei der eingarbeiteten Pivottabelle soll dann die geringste Abweichung der Gesamt Runden als Platz 1 erscheinen.
Bei dem Eingearbeiteten Pivot-Chart, sollen die Balken, die nach unten ausschlagen in rot erscheinen, genau wie die Skalierung. Die ist z.Zt. aber auf Zahlen und leider nicht auf Uhrzeiten eingestellt. Negative Uhrzeiten kennt excel nicht. Glaubst Du wir kriegen hin ?
https://www.herber.de/bbs/user/55178.xls
Anzeige
AW: Autorennen
04.09.2008 07:50:00
Reinhard
Hi Christian,
ich habe mal paar Formeln verändert, hatte die eh nicht kapiert :-)



Tabellenblatt: C:\DOKUME~1\ICHALS~1\LOKALE~1\Temp\[55178.xls]!Tabelle1
|    E    |    F    |     G     |
16 | Runde 1 | Runde 2 | Differenz |
17 | 1:23:00 | 1:24:15 |   0:01:15 |
18 | 1:44:00 | 1:55:00 |   0:11:00 |
19 | 1:54:00 | 1:55:00 |   0:01:00 |
20 | 1:54:00 | 2:55:00 |   1:01:00 |
21 | 1:54:00 | 0:55:00 |  -0:59:00 |
Benutzte Formeln:
G17:  =F17-$E17
G18:  =F18-$E18
G19:  =F19-$E19
G20:  =F20-$E20
G21:  =F21-$E21
Zahlenformate der Zellen im gewählten Bereich:
E16:F16
haben das Zahlenformat: Standard
E17:E21,F17:F21,G17:G21
haben das Zahlenformat: [h]:mm:ss;@
G16
haben das Zahlenformat: mm:ss
Bedingte Formatierung(en):
G16: 1.te Bedingung: Zellwert ist kleiner 0
Bei erfüllter Bedingung wird die Zellenschrift in G16 mit der Schriftfarbe 3 eingefärbt
G17: 1.te Bedingung: Zellwert ist kleiner 0
Bei erfüllter Bedingung wird die Zellenschrift in G17 mit der Schriftfarbe 3 eingefärbt
G18: 1.te Bedingung: Zellwert ist kleiner 0
Bei erfüllter Bedingung wird die Zellenschrift in G18 mit der Schriftfarbe 3 eingefärbt
G19: 1.te Bedingung: Zellwert ist kleiner 0
Bei erfüllter Bedingung wird die Zellenschrift in G19 mit der Schriftfarbe 3 eingefärbt
G20: 1.te Bedingung: Zellwert ist kleiner 0
Bei erfüllter Bedingung wird die Zellenschrift in G20 mit der Schriftfarbe 3 eingefärbt
G21: 1.te Bedingung: Zellwert ist kleiner 0
Bei erfüllter Bedingung wird die Zellenschrift in G21 mit der Schriftfarbe 3 eingefärbt


Gruß
Reinhard

Anzeige
AW: Autorennen
04.09.2008 09:23:00
Christian
OK - Reinhard bis hier hab ich das alles nachvollzogen und geändert.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige