Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle auswählen

Forumthread: Tabelle auswählen

Tabelle auswählen
08.12.2005 14:52:25
Dieter
Hallo
Im Projekt Explorer werden die Tabellen wir folgt angezeigt
tabelle1 (Daten) der eintrag in der Klammer ist der von den Registerkarten.
ich möchte aber den eintrag vor der Klammer benutzen.
tabelle1.select funktioniert
wenn aber der Tabellenname in einer Zelle steht funktioniert es nicht.
range("a1").select
Wer kann mir Helfen
Vielen Dank im voraus
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sheets(Range("A1").Value).Select o.w.T.
08.12.2005 15:18:32
P@ulchen
AW: Tabelle auswählen
08.12.2005 15:25:03
Matthias
Hallo Dieter,
du kannst eine benutzerdef. Funktion verwenden:

Function Blatt(Cname As String) As Worksheet
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Codename = Cname Then
Set Blatt = sh
Exit Function
End If
Next sh
End Function

Dann geht:
Sheets("Daten").Range("A1").Select
und auch
Blatt("Tabelle1").Range("A1").Select
Gruß Matthias
Anzeige
Danke Matthias und Paul
08.12.2005 16:06:30
Dieter
Das von MAtthias hat funktioniert.
AW: Danke Matthias und Paul
08.12.2005 16:12:54
Matthias
Hallo Dieter,
die Funktion ist natürlich nicht besonders schnell ;-)
Wenn du den Befehl also oft brauchst, weise das Blatt erstmal einer Variablen zu:

Dim Sh As Worksheet
Dim i
Set Sh = Blatt("Tabelle1")
For i=1 To 1000
Sh.Cells(i, 1) = 5
Next i

und nicht:

Dim Sh As Worksheet
Dim i
For i=1 To 1000
Blatt("Tabelle1").Cells(i, 1) = 5
Next i


Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige