VBA-Script funktioniert nur teilweise
18.01.2006 12:25:19
Heiko
als VBA-Newcomer habe ich ein Problem, das sich folgendermaßen beschreiben lässt: Für eine Erfassung von Anrufen und Besuchern haben wir eine Excel-gestützte "Strichliste" geschrieben, die nach Click auf einen von mehreren Buttons im Arbeitsblatt jeweils in eine andere Datei (Statistikdaten.xls) einen Zeit- und Datumsstempel sowie die Bezeichnung des angeclickten Buttons wegschreibt. Die Funktion ist auf meinem Rechner einwandfrei, auf anderen Rechnern (mit absolut identischem Excel-Versionsstand) nicht. Fehlermeldung: Kompilierungsfehler in verborgenem Modul Tabelle1. Woran kann das liegen?
Private Sub CommandButton1_Click()
Dim Datumsstempel As Date
Dim Zeitstempel As Date
Dim Kontaktart As String
Const Datei = "C:\Statistikdaten.xls"
Workbooks.Open Datei
Sheets("Tabelle1").Select
Datumsstempel = Date
Zeitstempel = Time
Kontaktart = "Besuch"
ActiveCell.Value = Datumsstempel
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Zeitstempel
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kontaktart
ActiveCell.Offset(1, -2).Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Tabelle1").Activate
End Sub