04.12.2018, 16:21
Hallo (ja, ich schon wieder)
Es wächst und gedeit. Die Teilnehmer bekommen eine Makrodatei, welches die Einstellungen überprüft. Auch Makros, Version von Excel etc., Uhrzeitsynchronisation mit Datum. Da die Klausur ein Zeitfenster hat.
Nach einigen Minuten dürfen sie sich dann die Klausurdatei herunter laden. Damit die dann nicht selber danach suchen müssen, soll das Makro minütlich aktualisiert werden. Das es dann von unter die Makros Arbeitsmappe kommt, mitstartet ist soweit ... öhm... klar.
Sub Vorhanden_Datei()
Dim Datei As String
' Sheets(Tabellenblatt Nr / Zelle (Zeile Nr / Spalte Nr)
Datei = Sheets(3).Cells(35, 7)
If Datei <> "" Then
If Dir(Datei) <> "" Then
Sheets("Makrotest").Select
Range("G12").Select
ActiveCell.FormulaR1C1 = "JA"
Range("I2").Select
Else
Sheets("Makrotest").Select
Range("G12").Select
ActiveCell.FormulaR1C1 = "NEIN"
Range("I2").Select
End If
End If
End Sub
Was muss ich anpassen, oder was muss rein? DAAANKE
Es wächst und gedeit. Die Teilnehmer bekommen eine Makrodatei, welches die Einstellungen überprüft. Auch Makros, Version von Excel etc., Uhrzeitsynchronisation mit Datum. Da die Klausur ein Zeitfenster hat.
Nach einigen Minuten dürfen sie sich dann die Klausurdatei herunter laden. Damit die dann nicht selber danach suchen müssen, soll das Makro minütlich aktualisiert werden. Das es dann von unter die Makros Arbeitsmappe kommt, mitstartet ist soweit ... öhm... klar.
Sub Vorhanden_Datei()
Dim Datei As String
' Sheets(Tabellenblatt Nr / Zelle (Zeile Nr / Spalte Nr)
Datei = Sheets(3).Cells(35, 7)
If Datei <> "" Then
If Dir(Datei) <> "" Then
Sheets("Makrotest").Select
Range("G12").Select
ActiveCell.FormulaR1C1 = "JA"
Range("I2").Select
Else
Sheets("Makrotest").Select
Range("G12").Select
ActiveCell.FormulaR1C1 = "NEIN"
Range("I2").Select
End If
End If
End Sub
Was muss ich anpassen, oder was muss rein? DAAANKE