Der erste Teil des Programms wäre geschafft, der nächste kommt schon:
Ich möchte per Command-button einfach den Explorer öffnen, der Benutzer sucht sich eine *.xls Datei aus (also mit Wildcard) und diese wird dann geöffnet. Dafür hab ich zwar den Code, kenne mich aber nicht wirklich aus...
Also hier mal der Code:
Option Explicit
Sub EDIT2()
Dim ossfn
Dim datopen
Dim toeditfile
Dim Kommnr
Dim FN
Dim Pfad1
Application.ScreenUpdating = False
ossfn = Worksheets("OSS").Range("l12")
datopen = Application.GetOpenFilename("Zu editierende Datei (*.xls), *.xls")
If datopen = "Falsch" Then GoTo Marke2
Workbooks.Open Filename:=datopen
toeditfile = ActiveWindow.Caption
Pfad1 = CurDir
'msgbox toeditfile
Windows(toeditfile).Activate
On Error GoTo Marke1
GoTo Marke3
Marke1: Windows(toeditfile).Close False
MsgBox "Falsches File, kann nicht editiert werden"
GoTo Marke2
Marke3:
Sheets("OSS").Select
Kommnr = Range("f7")
FN = Range("f8").Value
Windows(ossfn).Activate
Sheets("OSS").Select
Range("f4").Value = Kommnr
Range("f5").Value = FN
Range("l7").Value = Pfad1
Windows(toeditfile).Close False
Application.ScreenUpdating = True
Application.Run ossfn & "!EDIT1"
Marke2:
End Sub
Wäre nett wenn mir das jemand erklären kann oder einfach den Code dafür schreibt.
Thx im Voraus und Lg, Mario