Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Autorennen

Forumthread: 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 ?
Anzeige

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

Anzeige
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.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige