Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Übergabe eines Arbeitsblattes VBA

Betrifft: Übergabe eines Arbeitsblattes VBA von: Hagen K.
Geschrieben am: 02.01.2008 16:34:10

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

  

Betrifft: AW: Übergabe eines Arbeitsblattes VBA von: René
Geschrieben am: 02.01.2008 16:41:52

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é


  

Betrifft: AW: Übergabe eines Arbeitsblattes VBA von: Rudi Maintaire
Geschrieben am: 02.01.2008 16:42:14

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


  

Betrifft: AW: Übergabe eines Arbeitsblattes VBA von: Peter Feustel
Geschrieben am: 02.01.2008 16:42:33

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


  

Betrifft: AW: Übergabe eines Arbeitsblattes VBA von: KarinW
Geschrieben am: 02.01.2008 16:46:55

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


 

Beiträge aus den Excel-Beispielen zum Thema "Übergabe eines Arbeitsblattes VBA"