Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
236to240
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
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kann jemand Code prüfen unter Excel 10.0

Kann jemand Code prüfen unter Excel 10.0
03.04.2003 11:56:18
Willie
Hallo Forum dringend Hilfe gesucht!
Dieser Code läuft einwandfrei unter Excel 8.0!
Wir wollen/müssen aber alle Rechner auf Office XP also 10.0 umstellen
Da kommt es zu folgendem Fehler!
Fehler beim Kompilieren:
Projekt oder Bibliothek nicht gefunden!
Welche braucht man da und wo kann ich die finden/aktivieren oder herunterladen?
Cursor bleibt immer auf Format stehen!

Private Sub SpinButton1_Change()
Dim Stunde As Integer, Minute As Integer
Stunde = Int(SpinButton1.Value / 60)
Minute = SpinButton1.Value - Stunde * 60
TextBox1 = Format(TimeSerial(Stunde, Minute, 0), "hh:mm")
End Sub

Gruß

Wilfried

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

Betreff
Datum
Anwender
Anzeige
Re: Kann jemand Code prüfen unter Excel 10.0
03.04.2003 12:31:16
Erwin_E

Hallo,
Dafür ist eigentlich die Klasse Strings der VBA- Bibliothek
zuständig. Wurde beim Office- Setup wirklich VBA komplett installiert?
Gruß Erwin

Re: Kann jemand Code prüfen unter Excel 10.0
03.04.2003 12:45:59
Willie

Hallo Erwin
Ja es wurde komplett alles installiert!
Hast du es versucht ob es bei dir läuft?
Gruß

Wilfried

Re: Kann jemand Code prüfen unter Excel 10.0
03.04.2003 12:50:58
Erwin_E

Hallo,
hab ich und geht, allerdings hab ich Office 2000.
Such doch mal im Objektkatalog nach Format in der Klasse
Visual Basic for Applications.
Gruß Erwin


Lösung selber gefunden Danke!
03.04.2003 13:08:28
Willie

Wir haben den Fehler oder auch nicht Fehler selber gefunden!
unter 10.0 muß dass dann so aussehen:


Private Sub SpinButton1_Change()
Dim Stunde As Integer, Minute As Integer
Stunde = Int(SpinButton1.Value / 60)
Minute = SpinButton1.Value - Stunde * 60
TextBox1 = TimeSerial(Stunde, Minute, 0) '<---- XP 10.0
'TextBox1 = Format(TimeSerial(Stunde, Minute, 0), "hh:mm")'<-- Excel 8.0
End Sub

Gruß

Willie



Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige