Herbers Excel-Forum - das Archiv

Tabelle mit Variablennamen wechseln



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

Excel-Beispiele zum Thema "Tabelle mit Variablennamen wechseln"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum