Hallo Experten,
steh glaube ich gerade mal wieder auf’m Schlauch, komme nicht weiter.
Gesamtablauf der Datei: Beim Öffnen der Excel-Datei „Vorlage“ wird ein Formular geöffnet, und wenn alle notwendigen Daten in das Formular eingetragen sind, wird das Formular geschlossen und die Datei unter einem anderen Namen gespeichert.
Nur die Prüfung, ob die Datei, die gerade geöffnet wird, nun die Vorlage ist oder nicht, läuft irgendwie nicht richtig:
Private Sub Workbook\_Open()
Dim NeuOK As Boolean
If ActiveWorkbook.FullName = "Vorlage.xls" Then
NeuOK = False
Else
NeuOK = True
End If
If NeuOK = False Then
frmStart.Show
Else
Exit Sub
End If
End Sub
Was ist daran falsch?
Danke im voraus,
Kerstin
If ActiveWorkbook.FullName = „Vorlage.xls“ Then
FullName liefert den Pfad mit.
Lass das Full einfach raus.
In der Kürze liegt die Würze *g
Hallo Kerstin,
ich hab deinen Code ein wenig *smile* gekürzt, das von Munich kannste leicht selbst einbauen/anpassen.
Übrigens, verstehen tu ich den Code nicht. Wenn du den Code für die Datei vorlage.xls brauchst, dann schreib ihn in diese eine Datei rein, also so:
Private Sub Workbook_Open()
frmStart.Show
End Sub
Und in alle anderen dateien halt nicht, was soll also die If-Abfrage? Personl.xls, Klassenmodul? Erklärs mir nbitte…
Mein Code:
Private Sub Workbook_Open()
If ActiveWorkbook.FullName = „Vorlage.xls“ Then frmStart.Show
End Sub
Gruß
Reinhard
Private Sub Workbook_Open()
Dim NeuOK As Boolean
If ActiveWorkbook.FullName = „Vorlage.xls“ Then
NeuOK = False
Else
NeuOK = True
End If
If NeuOK = False Then
frmStart.Show
Else
Exit Sub
End If
End Sub
Was ist daran falsch?
Danke im voraus,
Kerstin
