Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktion

Funktion
15.03.2005 21:36:00
Günter
Hallo und Guten Abend !
Tschuldigung, wenn ich einen neuen Thread aufmache.
Folgendes:
Jetzt habe ich unten genannte Funktion ans Laufen gebracht (mithilfe
von Hajo).
Kann man in diese Funktion vielleicht folgendes integrieren:
Ignoriere (oder nicht Darstellen) die gefundenen Texte/Strings in der Darstellung:
1.) Alle mit (also Spitzklammer auf und zu und alles was zwischen
den Spitzklammern steht).
2.) Alleinstehende Spitzklammern.
Das Problem ist, dass in der zu durchsuchende Spalte z.B. folgendes
steht: oder alleinstehende ,
Hier die Funktion:

Function GetText(strText As String, strKuerzel As String) As String
Dim intPos1 As Integer
Dim intPos2 As Integer
GetText = ""
If Len(strText & "") = 0 Then Exit Function
If Len(strKuerzel & "") = 0 Then
GetText = ""
Exit Function
End If
If Right(strKuerzel, 1) <> "=" Then strKuerzel = strKuerzel & "="
intPos1 = InStr(1, strText, strKuerzel, vbTextCompare)
If intPos1 = 0 Then
GetText = ""
Exit Function
Else
intPos2 = InStr(intPos1 + 3, strText, "=", vbTextCompare)
If intPos2 > 0 Then
GetText = Trim(Mid(strText, intPos1 + 3, intPos2 - intPos1 - 5))
Else
GetText = Trim(Mid(strText, intPos1 + 3))
End If
End If
End Function

Gruss
Günter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion
15.03.2005 21:42:40
Hajo_Zi
Hallo Günter,
warum neuer Beitrag. Denke doch auch mal an das Archiv. Wie soll man da die gesamte Lösung finden, wenn das in zig Beiträgen erfolgt.
Ich lehne sowas ab.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige