Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Übergabe eines Arbeitsblattes VBA

Übergabe eines Arbeitsblattes VBA
02.01.2008 16:34:10
Hagen
Hallo Forum
ich möchte ein Arbeitsblatt an eine Methode übergeben und habe dazu vereinfacht folgendes probiert:

Public Sub test(table2 As Worksheets)
table2.Select
End Sub



Public Sub Worksheet_Activate()
test (Worksheets("Tabelle3"))
End Sub


mit dem Resultat:
Objekt unterstützt Eigenschaft oder Methode nicht.
Hat jemand vielleicht eine idee dazu?
VG Hagen

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

Betreff
Datum
Anwender
Anzeige
AW: Übergabe eines Arbeitsblattes VBA
02.01.2008 16:41:00
René
Hi Hagen
So richtig verstehe ich dein Ansinnen nicht.
Was willst du erreichen?
Das Arbeitsblatt öffnen (Select)?
Falls dieses der Fall ist, kannst du das in der Excelumgebung mit einem CommandButton oder Kombinationsfeld oder dergleichen erreichen.
In einem Makro ist das nichts anderes.
Auf alle Fälle reicht,
Sheets(x).Activate
wobei x für die Tabellennummer steht.
Oder du sprichst die Tabelle direkt mit Namen an.
Sheets("Tabelle1").Activate
Gruß René

AW: Übergabe eines Arbeitsblattes VBA
02.01.2008 16:42:00
Rudi
Hallo,

Public Sub test(table2 As Worksheet)
table2.Select
End Sub
Public Sub Worksheet_Activate()
test Worksheets("Tabelle3")
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Übergabe eines Arbeitsblattes VBA
02.01.2008 16:42:00
Peter
Hallo Hagen
dein Aufruf ist falsch, er muss so aussehen Call test(Worksheets("Tabelle3"))
wenn du schon Klammern verwendest.
Ob das, was du da möchtest geht, weiß ich allerdings nicht.
Gruß Peter

AW: Übergabe eines Arbeitsblattes VBA
02.01.2008 16:46:00
KarinW
Hallo Hagen,

ändere Public Sub test(table2 As Worksheets)
in         Public Function(table2 As Worksheets)
und natürlich auch End Sub in End Function.


Freundliche Grüße
Karin

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige