Fehler in Makro
25.07.2004 22:55:35
Albin
ich weiß nicht so recht wo ich anfangen soll und hole deshalb ein bisschen aus.
2 Buttons (cmd1, cmd2) und 2 Userforms (uf1, uf2). cmd1 lädt uf1, cmd2 lädt uf2.
Mit folgendem Makro lade ich beim öffnen einer Userform noch 2 Dateien (immer die selben, bei beiden UFs).
Sub DateienLaden()
Dim DatNam As String
Dim DatNam2 As String
Dim Pfad As String
Pfad = ThisWorkbook.Path
If Right(Pfad, 1) <> "\" Then
Pfad = Pfad + "\"
End If
DatNam = Pfad + ThisWorkbook.Sheets("Einst").Range("A1")
DatNam2 = Pfad + ThisWorkbook.Sheets("Einst").Range("A2")
If DateiIstFrei(DatNam) = False Then
MsgBox "Datei ist bereits geöffnet"
Else
Workbooks.Open Filename:=DatNam
End If
If DateiIstFrei(DatNam2) = False Then
MsgBox "Datei ist bereits geöffnet"
Else
Workbooks.Open Filename:=DatNam2
End If
End Sub
Beim schliessen der Userform werden die beiden Dateien ebenfalls geschlossen.
Soweit funktioniert alles.
Wenn ich uf2 schliesse und uf1 starte, werden die 2 Dateien nicht geladen, keine Ahnung warum, denn wenn ich die Form schliesse und nochmal starte klappt es einwandfrei. Andersrum (also uf1 schliessen und uf2 starten) tritt der Fehler nicht auf.
Hoffentlich konnte ich das Problem halbwegs verständlich erklären. Kann mir da jemand auf die Sprünge helfen?
Gruß Adam