Funktion aufrufen
09.09.2003 17:26:39
Silke
dies ist meine Funktion
Function ComicVerkettung(SuchText As String, SuchText2 As String, SuchBereich As Object, suchbereich2 As Object, Verkettungsbereich As Object) As Variant
Dim i As Integer
Dim rng As Range
Dim rng2 As Range
Dim Verkettungstext As String
i = 1
'Suchbereich Zelle für Zelle durchsuchen
For Each rng In SuchBereich.Cells
For Each rng2 In suchbereich2.Cells
'Zellwert entspricht suchwert?
If rng.Value = SuchText And rng2.Value = SuchText2 Then
'dann die Heftnummern verketten
Verkettungstext = Verkettungstext & Verkettungsbereich.Cells(i).Value & ", "
End If
i = i + 1
Next
Next
'und noch das letzte ', 'entfernen
ComicVerkettung = Mid(Verkettungstext, 1, Len(Verkettungstext) - 2)
End Function
nun möchte ich
Sub programm schreiben,
eingabe1 und eingabe2 werden per inputbox hineingeschrieben und sollen als suchtext und Suchtext 2 an die funktion weitergegeben werden
suchbereich ist A2:A65535 Suchbreich2 B2:B65535, der verkettungsbereich soll C2:C65535 sein
meine Schwierígkeiten liegen nun darin die Funktion aufzurufen vom Hauptprogramm
Ich hoffe es kann mir einer helfen
Gruss
Silke