Was muss ich machen, um die geöffnete datei am schluss ohne zu speichern wieder zu schliessen?
so sieht der source jetzt aus... bitte gleich sagen wohin ich das genau einbauen müsse.
thx, marc
Dim Dateinummer
Dim ZuOeffnendeDatei As Variant
Sub datenermitteln()
' Ladeort bestimmen
ZuOeffnendeDatei = Application.GetOpenFilename()
If ZuOeffnendeDatei <> False Then
' Datei öffnen.
Workbooks.Open ZuOeffnendeDatei, 0, True, , , , True
End If
' datenermitteln Makro
' Makro am 16.04.2004 von Marc Hänggi aufgezeichnet
' Aufzeichnung manuell angepasst
ActiveSheet.Unprotect "test"
ActiveWindow.ScrollRow = 69
Rows("95:107").Select
Selection.EntireRow.Hidden = False
ActiveWindow.ScrollRow = 80
Rows("104:105").Select
Selection.Copy
Windows("QS-Auswertung.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub