Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Trennen einer Varibeln...

Forumthread: Trennen einer Varibeln...

Trennen einer Varibeln...
19.04.2006 13:05:19
Swen
Hallo an alle,
folgende strings möchte ich gerne trennen
Beispiel1 = "1 - 2345µm/23456µm"
Beispiel2 = "23 - 12µm/45µm"
und zwar möchte ich das die erste varibael a heißt und
folgende bedingung erfüllt
sie besteht aus der ersten zahl bis zum erste space
in den beiden fällen wäre das dann
Beispiel1 a=1
Beispiel2 a=23
die zweite varibale soll b heißen und
hinter dem space nach dem "-" beginnen bis zum erste "µ"
Beispiel1 b=2345
Beispiel2 b=12
die letzte varibale soll c heißen und
hinter dem "/" beginnen bis zum zweiten "µ"
Beispiel1 b=23456
Beispiel2 b=45
kann mir da jemand helfen?
gruß
Swen
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Trennen einer Varibeln...
19.04.2006 13:18:52
Matthias
Hallo Swen,
Variable a, b, c.. Soll das wohl in VBA sein?
Gruß Matthias
AW: Trennen einer Varibeln...
19.04.2006 13:20:34
Swen
Hallo Matthias,
genau, sorry das hätte ich erwähnen sollen!
gruß
Swen
AW: Trennen einer Varibeln...
19.04.2006 13:29:10
Matthias
Hallo Swen,
Function Z_1(x As String) Z_1 = Split(x, "-")(0) * 1 End Function Function Z_2(x As String) Z_2 = Split(Split(x, "-")(1), "µ")(0) * 1 End Function Function Z_3(x As String) Z_3 = WorksheetFunction.Substitute(Split(x, "/")(1), "µm", "") * 1 End Function
 
 ABCD
51 - 2345µm/23456µm1234523456
623 - 12µm/45µm231245
Formeln der Tabelle
B5 : =Z_1(A5)
C5 : =Z_2(A5)
D5 : =Z_3(A5)
B6 : =Z_1(A6)
C6 : =Z_2(A6)
D6 : =Z_3(A6)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Gruß Matthias
Anzeige
Aber nicht in Excel 97
19.04.2006 13:36:09
Hugo
Hallo,
da gab es Split nocht nicht.
Hugo
AW: Aber nicht in Excel 97
19.04.2006 13:38:07
Swen
Hallo Hugo und Matthias,
wie kann ich das denn bei excel 97 machen?
gruß
Swen
AW: Aber nicht in Excel 97
19.04.2006 13:46:24
Matthias
Hallo Swen,
so:
Function Z_1(x As String) Z_1 = Left(x, InStr(x, " - ")) * 1 End Function Function Z_2(x As String) Dim t1 As String t1 = Mid(x, InStr(x, " - ") + 3) Z_2 = Left(t1, InStr(t1, "µ") - 1) * 1 End Function Function Z_3(x As String) Z_3 = WorksheetFunction.Substitute(Mid(x, InStr(x, "/") + 1), "µm", "") * 1 End Function
Wenn allerdings bestimmte Zeichen ("/","µ") im String fehlen, kommt ein Fehler. Müsstest du noch extra behandeln, falls das vorkommen kann.
Gruß Matthias
Anzeige
AW: Aber nicht in Excel 97
19.04.2006 15:46:06
Swen
Hallo Matthias,
kann ich auch statt
Function Z_1(x As String)
das so schreiben
Function Z_1(x As Integer)
gruß
swen
AW: Aber nicht in Excel 97
19.04.2006 15:52:04
Matthias
Hallo Swen,
versuch es - es wird ein Fehler kommen, denn das Argument ("1 - 2345µm/23456µm") ist ja keine Integer-Zahl.
oder meinst du:

Function Z_1(x As String) As Integer

?
Gruß Matthias
Anzeige
AW: Aber nicht in Excel 97
20.04.2006 12:48:53
Swen
Hallo Matthias,
genau das zweite war das was ich meinte!
Vielen Dank!
funzt jetzt alles Super!
Gruß
Swen
AW: Aber nicht in Excel 97
19.04.2006 13:39:52
Matthias
Hallo Hugo,
aha, Danke, wusste ich nicht.
Gibt es irgendwo eine Zusammenfassung, die auflistet, welche Funktionen / Methoden / Eigenschaften bei den jeweiligen Excel-Versionen neu hinzugekommen sind?
Immerhin hab ich mir gemerkt, dass es Replace() auch erst ab xl2000 gibt...
Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige