Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
996to1000
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
Inhaltsverzeichnis

tabellenname in variable

tabellenname in variable
30.07.2008 21:07:14
marco
hallo an alle,
habe ein kleines problem:
ich möchte einen tabellenname, der immer unterschiedlich sein wird, in eine variable übergeben, und mit dieser variable die tabelle aktivieren die variable soll aus 8-9 ziffern bestehen:
folgender code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim marco
marco = ActiveCell.Value
If Range(("A1:A5"), Target) Is Nothing Then Exit Sub
Sheets(marco).Activate
Cancel = True
End Sub


leider kommt immer die fehlermeldung
"index außerhalb des gültigen bereichs"
kann mir jemand weiterhelfen
danke
grüße
marco

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Probiere es mal so!
30.07.2008 21:20:00
backowe
Hallo Marco,
VBA-Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim marco
marco = ActiveCell.Value
If Not Intersect(Target, [A1:A5]) Is Nothing And Target.Count = 1 Then
  Sheets(marco).Activate
  Cancel = True
End If
End Sub
Gruss Jürgen

Anzeige
AW: Probiere es mal so!
30.07.2008 21:24:36
marco
hi jürgen,
daß problem war, daß excel immer versucht hat eine tabelle zu aktivieren, die es gar nicht gibt.
z.b. wenn ich den wert 12345678 in die variable gebe, dann wird versucht, die 12345678. tabelle zu aktvieren. soviele tabellen sin dim excel nicht vorhanden.
wenn ich die variable als string dimensioniere, dann funktioniert es.
trotzdem danke für deine hilfe.
schönen abend noch
grüße
marco

Alternative!
30.07.2008 21:53:00
backowe
Hi Marco,
dann schreibe es so um:
VBA-Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [A1:A5]) Is Nothing And Target.Count = 1 Then
  Sheets("" & Target & "").Activate
  Cancel = True
End If
End Sub
Gruss Jürgen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige