Tabelle mit Variablennamen wechseln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: xl97
nach unten

Betrifft: Tabelle mit Variablennamen wechseln
von: Andi
Geschrieben am: 02.05.2002 - 16:24:45

Hallo, kann mir jemand sagen, wie ich im folgenden Listing in der letzten Zeile das Tabellenblatt wechseln kann?

With Application.FileSearch
.LookIn = "Z:\Anw\kore\excel\"
.SearchSubFolders = True
.FileName = "*sel-ad.xls"
If .Execute > 0 Then
MsgBox "Es wurde(n) " & .FoundFiles.Count & " Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
dateiname = .FoundFiles(i)

Workbooks.Open FileName:=dateiname, _
updatelinks:=0

Range("F4:I6").Select
Selection.Copy
Windows("Übersicht Sel-Ad.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D2").Select
Windows(dateiname).Activate ????????????

nach oben   nach unten

Re: Tabelle mit Variablennamen wechseln
von: Hans W. Herber
Geschrieben am: 03.05.2002 - 06:59:30

Hallo Andi,

Selektieren und Aktivieren ist in der VBA-Programmierung Teufelszeug.

Wie folgt:

Wenn Du dem Drang des Selektierens auch mit größter Selbstbeherrschung nicht widerstehen kannst:
Worksheets("Tabelle1").Select

hans

nach oben   nach unten

Re: Tabelle mit Variablennamen wechseln
von: Hans W.Herber
Geschrieben am: 03.05.2002 - 07:39:00

Danke für die Hilfe

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabelle mit Variablennamen wechseln"