Office: Private Sub aufrufen

Gerd1 · 1. Dezember 2009

Hallo zusammen,
in meiner Arbeitsmappe habe ich ein Makro mit der Bezeichnung "Private Sub NummerSuch" nun möchte ich dieses Makro mit einem CommandButton aus einem tabellenblat heraus aufrufen.
Hierfür habe ich folgende Anweisung benutzt:
CommandButton1_click()
Call ThisWorkbook.NummerSuch
End Sub

Hierbei kommt folgender Fehler:
"Objekt unterstützt diese Eigenschaft oder Methode nicht"

Benenne ich mein Makro nur als "Sub NummerSuch" funktioniert der Aufruf einwandfrei.
Aber das führt halt dazu, das dieses Makro aus jeder Tabelle mit der Funktion Makro aufgerufen werden kann und genau das möchte ich nicht.

Was muss ich hier änder um mein Ziel zu erreichen?

Danke
Gerd

:)

chris-kaiser · 3. Dezember 2009

Hallo Gerd

Auf die Sub-Prozedur kann nur durch andere Prozeduren aus dem Modul zugegriffen werden, in dem sie deklariert wurde.

Übergebe einen Parameter und prüfe selbigen so z.B
Code:

'im Tabellenblatt
Private Sub CommandButton1_Click()
Call aha(1)
End Sub

'im Modul
Sub aha(check As Byte)
If check = 1 Then
'was auch immer das Ding machen sollte
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gerd1 · 3. Dezember 2009

Hallo Chris,
hab es probiert aber das Ergebnis ist dasselbe - ich kann einfach kein "Private Sub" ansprechen nur "Public oder "Sub"

Danke
Gerd

mumpel · 3. Dezember 2009

Hallo!

Deklariere das Makro als Public. Damit es aber nicht im Makrodialog erscheint, musst Du im Modul als erste Zeile die Zeile Option Private Module setzen. Dann ist das Makro zwar öffentlich, aber nicht im Makrodialog sichtbar.

Standardmodul

Option Private Module

Public Sub Test()
MsgBox "Test"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit VBA in HTML 2.0
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß, René

Gerd1 · 3. Dezember 2009

Danke Chris,
deine letzte Antwort passt perfekt und hat mir sehr geholfen.

Danke dafür

Gerd

Office: Private Sub aufrufen

Private Sub aufrufen

Private Sub aufrufen

Private Sub aufrufen

Private Sub aufrufen - Similar Threads - Private Sub aufrufen

Problem mit Private Sub Worksheet_Change

VBA Spalten aus- und einblenden trotz Blattschutz

2x Private Sub Worksheet_Change(ByVal Target As Range)

Private Sub über Command-Button aufrufen

Aufruf private sub prozedur

Private Sub aus anderem Mod aufrufen

Makro Fehlermeldung --> Erwartet Private Sub sssssssss)