Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige