Definierter Ein- und Rückgabewert einer Funktion
21.08.2019 13:15:50
Oliver
ich benötige an vielen Stellen in verschiedenen Modulen eine Abfrage hinsichtlich der Lage der Überschriften in einer Tabelle.
Aktuell sind 46 Überschriften vorhanden. Durch Tabellenveränderungen (Spalten kommen hinzu oder werden gelöscht) liegen die
Überschriften nicht immer in einer vorab definierten Spalte. Hierzu müssen in verschiedenen Sub-Prozeduren die Spaltennummern
einer oder mehrerer Spaltenüberschriften abgefragt werden. Hierzu existiert bereits eine Funktionsprozedur ueberschrift.
In dieser durchlaufe ich mit einer Schleife die einzelnen Spalten der Zeilen 2 und 3 und prüfe ob der Zellinhalt der entsprechen Spalte dem Abfragewert entspricht,
wenn ja, dann wird der Wert der Variablen Sp der Spalte z.B. Spalte_01 übergeben.
Ausschnitt aus der Funktion ueberschrift:
For Sp = 1 To ColEnd
If Left(Cells(UeS_1, Sp), 7) = "Überschrift 1" Or Left(Cells(UeS_2, Sp), 7) = " Ü _
berschrift 1" Then
Spalte_01 = Sp
End If
If Cells(UeS_1, Sp) = " Überschrift 2" Or Cells(UeS_2, Sp) = " Überschrift 2" Then
Spalte_02 = Sp
End If
If Cells(UeS_1, Sp) = " Überschrift 3" Or Cells(UeS_2, Sp) = " Überschrift 3" Then
Spalte_03 = Sp
End If
If Left(Cells(UeS_1, Sp), 9) = " Überschrift 4 Or Left(Cells(UeS_2, Sp), 9) = " Ü _
berschrift 4" Then
Spalte_04 = Sp
usw
Next
Meine Frage an dieser Stelle ist, wie kann ich in der jeweiligen Sub-Prozedur die Funktion so aufrufen, dass ich nur die Spaltennummer einer definierten Überschrift z.B. "Überschrift 3 als Wert zurück bekomme.
Sub ()
..
Suche z. B. nach Überschrift 3 mit Aufruf der Funktion ueberschrift mit Rückgabe der zugehörigen Spaltennummer.
..
End
Vielen Dank vorab für Eure Hilfe.