Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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

Betreff
Benutzer
Anzeige
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
Anzeige
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


Anzeige
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

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige