Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aufruf

Forumthread: Aufruf

Aufruf
04.02.2006 05:40:06
Matthias
Diese 

Function gibt einen Wert zurück;
wie kann ich denn jetzt für jeden gefundenen Wert eine 


Function mit dem Wert als
Parameter starten`?


Function extract(strText As String, firstChar As String, lastChar As String) As String
Dim intS As Integer, intE As Integer
intS = InStr(1, strText, firstChar)
intE = InStr(1, strText, lastChar)
If intS = 0 Or intE = 0 Then Exit Function
extract = Mid(strText, intS + 1, intE - intS - 1)
End Function
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufruf
04.02.2006 08:45:49
Franz
Hallo mathias,
Du muss in einer Schleife Do...Loop oder For ...Next
die gefundenen Werte als String an die nächste Funktion übergeben.
Beispiel: 
Sub Beispiel()
Dim Zelle As Range, Zellen As Range
Set Zellen = ThisWorkbook.Sheets("Tab1").Range("C1:C10")
For Each Zelle In Zellen
Zelle.Select
If extract(Zelle.Value, "A", "T") <> "" Then
Ergebnis = Links2(extract(Zelle.Value, "A", "T"))
MsgBox Ergebnis
End If
Next
End Sub
Function extract(strText As String, firstChar As String, lastChar As String) As String
Dim intS As Integer, intE As Integer
intS = InStr(1, strText, firstChar)
intE = InStr(1, strText, lastChar)
If intS = 0 Or intE = 0 Then Exit Function
extract = Mid(strText, intS + 1, intE - intS - 1)
End Function
Function Links2(Text As String)
Links2 = Left(Text, 2)
End Function

Gruß
Franz
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige