Variablen übergeben
27.01.2014 21:25:15
Oliver
ich komme hier irgendwie nicht weiter.
Ich möchte in einer Tabelle ein Textfeld ansprechen. Diesem Textfeld habe ich einen eindeutigen Namen gegeben, der sich an den Tabellennamen orientiert.
Da ich in der Mappe mehrere gleichartige Tabellen mit jeweils einem Textfeld habe, möchte ich den Aufruf so variabel wie möglich halten.
Hier mein Sub:
Public Sub Druckansicht()
Dim oShape As Shape
Set oShape = Worksheets(Druckseite).Shapes(Textfeldname)
Call BlattSchutzAufheben
If oShape.TextFrame.Characters.Text = "" Then
Call Bemerkungen_übergeben
End If
End Sub
Für den Namen des Worksheets und den Namen des Shapes habe ich jeweils eine Function erstellt.
Public Function Textfeldname()
Dim t As String
t = ActiveSheet.Name
t = "T" & Mid(t, 2)
End Function
Public Function Druckseite()
Dim p As String
p = ActiveSheet.Name
p = "P" & Mid(p, 2)
End Function
Der Aufruf aus der Sub, der beiden Funktionen läuft einwandfrei und auch die richten Werte werden erzeugt.
In der Zeile:
Set oShape = Worksheets(Druckseite).Shapes(Textfeldname)
bricht die Procedur dann ab mit "Index außerhalb des gültigen Bereichs"
Bitte eine kleine Hilfe.
Abendlicher Gruß Oliver