Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

datei oeffnen

datei oeffnen
12.09.2003 15:01:58
th.heinrich
hallo bestes Forum,

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: datei oeffnen
15.09.2003 18:48:21
Otto
Hallo Thomas,

Meine Testumgebung: Excel 8.0 SR-2, unter Windows 2000 SP-2

ich mach das so:
damit klappts

Gruß Otto
AW: datei oeffnen
15.09.2003 21:29:01
th.heinrich
danke Otto,

fuer die hilfe.
sitze nun am privat pc, werde Deinen vorschlag diese woche in der arbeit testen.
bei prob poste ich nochmal.

gruss thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige