Office: Tabellen Blatt Name in Tabellenblatt

Hallo zusammen!

Ich habe das Problem, ich benötige im VBA Teil des jeweiligen Tabellenblatts den Namen des selbigen ohne dabei direkt auf dieses wechseln zu müssen via Activate, da dieses auch schon auf ein Ereignis läuft was zu dem Zeitpunkt nicht erwünscht ist.
Der Grund ist eine weitergabe von Parametern an eine Function. Derzeit habe ich das über den Index gelöst, der aber durch verschieben des Blattes auch zu einem Fehler führen wird
Über das Target sollte man eigentlich herankommen aber auch hier scheitere ich derzeit kläglich den Sheetnamen des Targets auszulesen.
Um das noch deutlich zu machen, ich befinde mich nicht in einem allgemeinen Modult sondern im Modul des jeweiligen Worksheets um dort auf die Action im Blatt zu reagieren

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wbkDasHier As Workbook, intLetzteSpalte As Integer, rng As Range
Dim rngBereich As Range, Zelle As Range, bytUebSchrZeil As Byte, lngSteuSpalte As Long
Set wbkDasHier = ThisWorkbook
Application.ScreenUpdating = False
With wbkDasHier.Sheets(3)
Call fncSuche_Definition(wbkDasHier.Sheets(3), "Steuerung", rng)
...
  intLetzteSpalte = .UsedRange.SpecialCells(xlLastCell).Column
            Set rngBereich = .Range(.Cells(bytUebSchrZeil + 1, lngSteuSpalte), .Cells(.UsedRange.Rows.Count + 1, lngSteuSpalte))
            If Not Intersect(Target, rngBereich) Is Nothing Then
...
End With

Vielen Dank für die Hilfe!

Andysmith

 

Hi Andy,

wenn du im Change-Ereignis arbeitest, muss das Tabellenblatt doch nicht aktivert werden, denn es ist ja das aktive - also ActiveSheet

Bis später,
Karin

 

nee nee nee :-(
machen wir das anders. Ich habe in dem sheet eine Variable nennen wir sie strNameBlatt

nun möchte ich auf diese Variable dort den Namen des Blatts speichern. Der Grund ist immer noch die weitergabe des Sheet Namens an eine Funktion aus der ich wieder hier mit dem Rückgabe Ergebnis das ich ja ByRef bekomme weiter arbeiten kann. Es wäre vollkommen unsinnig den Funktionsinhalt mit in den Teil zu übernehmen um dort dann global damit zu arbeiten.
Ich hoffe ich habe mich jetzt etwas besser ausgedrückt.

Ich habe es derzeit etwas anders gelöst.
Aus dem Blatt raus in diese Arbeitsmappe mit folgendem Auslöser
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)

Damit bin ich zwar dann gefordert über sh.Name den Bestandteil des Namens abzufragen um dann entsprechend zu reagieren....

wenn nix hilft dann halt so...

Ich lasse aber die Frage immer noch so offen im Raum stehen.
wobei ich immer noch davon ausgehe, das im Target As Range Object irgendwo auch diese Quelle hinterlegt sein sollte.

 

Hallo andysmith,

wenn Du im Modul des jeweiligen Blattes bist, und eh ein Ereigniss benutzt, dann könntest Du z.Bsp. so:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim strNameBlatt As String

strNameBlatt = Me.Name

End Sub

den Blattnamen an eine Variable übergeben.

Die Frage ist allerdings, wann und wo benötigst Du diese Variable?
Im gleichen Modul nur in einer anderen Prozedur? Dann würde es reichen die Variable nicht im Ereignis, sondern ganz oben im Deklarationsteil zu deklarieren, und im Ereignis dann mit einem Wert zu belegen.

Benötigst Du den Wert aber in einem ganz anderen Modul, dann würde ich in diesem anderen Modul oben im Deklarationsteil diese Variable als "Public strNameBlatt As String" deklarieren (das geht nicht in Modulen von Blättern).
Dann kann diese Variable in jedem Modul des Projektes benutzt werden, sprich in der Ereignisprozedur gibst Du der Variable einen Wert, und in allen anderen Modulen und Prozeduren kannst Du diesen Wert dann wieder aufrufen.


Ich hoffe geholfen zu haben.


Ergänzung:
Wenn Du unbedingt mit "Target" arbeiten möchtest, dann sollte auch sowas gehen:

Code:

strNameBlatt = Target.Parent.Name

 

Hi,

es ist weder Me.Name noch Target.Parent.Name erforderlich. Wie ich schon geschrieben habe - wenn man mit dem Change-Ereignis (so wie im Ausgangsbeitrag vorgegeben) arbeitet, ist es immer das aktive Blatt und es reicht ActiveSheet:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   MsgBox ActiveSheet.Name
End Sub

Anstelle der MsgBox kann man ActiveSheet oder Activesheet.Name auch an eine Varibale übergeben, die man je nach Verwendungszweck als Public in einem allgemeinen Modul oder per Dim im Codemodul des Tabellenblattes (jedoch außerhalb der Prozedur) definiert oder aber man übergibt es direkt an die Funktion bei deren Aufruf.

Bis später,
Karin

 

@fette Elfe vielen Dank für beide Lösungen genau das was ich gesucht hatte!! Ergeben nach genauere Betrachtung aus der Formulierung auch den Sinn :-)

@Beverly wie ich schon vorher versucht hatte zu bemerken, hat die Formulierung activesheet immer die "Vorraus Aktivierung" des jeweiligen Blattes, was wiederum vermieden werden muss, da ich eine Aktion bei Workbook_SheetDeactivate habe, die dann wieder eine zu dem Zeitpunkt nicht gewollte Aktion mit Ja/nein Abfrage enthält :-)
Hier kann es aber sein, das der User gar keine Berechtigung für dieses Blatt hat und nur das Hauptblatt mit den Ergebnissen sieht die aber in seinen Bestandteilen aus diesem Blatt kommen. Also fehlt hier die Aktion des ich bin auf diesem Blatt aktiv, während die Daten aus der DB da trotzdem einfließen....

Hängt alles mit dem DB "Gedöns" aus der heutigen Frage zusammen.... :-)

Vielen Dank an Euch!!!!!!!