datei oeffnen
12.09.2003 15:01:58
th.heinrich
wie kann folgender CODE von Hans abgewandelt werden, dass TEST.xls sich mit oeffnet, wenn ueber DATEI-NEU eine bestimmte .XLT aufgerufen wird.
Sub Copy2Wkb()
Dim wkb As Workbook
Dim wks As Worksheet
Dim rng As Range
On Error Resume Next
Set wkb = Workbooks("Test.xls")'TEXT.XLS muss schon geoeffnet sein
If Err > 0 Or wkb Is Nothing Then
Beep
MsgBox _
prompt:="Es ist keine Testdatei geöffnet!"
Exit Sub
End If
Set wks = wkb.Worksheets("GSM_Daten")
If Err > 0 Or wks Is Nothing Then
Beep
MsgBox _
prompt:="Die Testdatei enthält das Zielblatt nicht!"
Exit Sub
End If
Set rng = wkb.Worksheets("GSM_Daten").Range("C12")
Selection.Copy rng
Application.CutCopyMode = False
wkb.Close savechanges:=True
End Sub
herzlichen dank thomas