Mal was kniffliges???

Forumthread: Mal was kniffliges?

Mal was kniffliges?

Alex

Hallo,
in meinem Tabellenblatt 'Auswertung' möchte ich Daten zurück bekommen.
Die Quelle der Daten soll jede beliebige Excelquelle sein. In meinem Beispiel ist es ein benachbartes Tabellenblatt 'Quelle'.
Der Bezug in 'Auswertung' ist immer A1 (und A1 verweist auf die Quelle).
Ich benötige eine Funktion, die die gerade beschriebene Rückgabe ermöglicht und zweitens mir Texte aus der Quelle zurückgibt die zwischen 2 Tags stehen (Haben = Ergebnis soll 'Haben' sein).
Ich hoffe ihr könnt mir helfen.
https://www.herber.de/bbs/user/4788.xls
Danke und Gruß, Alex.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Teilstring

ChrisL

Hi Alex
Schaut mir schwer nach HTML Tag aus, weshalb ich mich frage, ob dein Ansatz schlau ist. Trotzdem...
folgende Funktion in ein Standardmodul...


Function PickWert(Konstante As String) As Variant
Dim Quelle As Range
Dim Konstante1 As String, Konstante2 As String
Dim PositionKonstante As Integer, LaengeKonstante As Integer
Application.Volatile
Set Quelle = Range("A1")
Konstante1 = "<" & Konstante & ">"
Konstante2 = "</" & Konstante & ">"
If InStr(Quelle, Konstante1) = 0 Or InStr(Quelle, Konstante2) = 0 Then
PickWert = "Konstante nicht vorhanden"
Else
PositionKonstante = InStr(Quelle, Konstante1) + Len(Konstante) + 2
LaengeKonstante = InStr(Quelle, Konstante2) - PositionKonstante
PickWert = Mid(Quelle, PositionKonstante, LaengeKonstante)
End If
End Function

In die Zelle schreibst du folgende Funktion...
=PickWert("Konstante")
Gruss
Chris

AW: Teilstring

Alex

Funktioniert hervorragend, vielen, vielen Dank.
yes....
Grüße

Danke für die Rückmeldung o.T.

ChrisL

AW: Danke für die Rückmeldung o.T.

Hajo_Zi

Hallo ChrisL
Das liest sich doch so als ob die Frage beantwortet ist.
Die Checkbox "Frage noch offen" ist dazu da damit der Beitrag noch als offen angezeigt wird. Ist Dein Problem gelöst brauchst Du ihn nicht auswählen. Bleibe mal ein Augenblick auf den Text und es wird ein Hinweis angezeigt.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP3

AW: Danke für die Rückmeldung o.T.

ChrisL

Hi Hajo
Ist mir echt erst jetzt aufgefallen. In Zukunft werde ich darauf achten.
Sorry und danke für den Hinweis, denn sonst hätte ich die Checkbox in 10 Jahren noch nicht bemerkt.
Gruss
Chris

Beliebteste Forumthreads (12 Monate)

Forumthread: Mal was kniffliges?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread