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

String "800x600" in 2 Zahlen umwandeln

Forumthread: String "800x600" in 2 Zahlen umwandeln

String "800x600" in 2 Zahlen umwandeln
11.03.2004 02:19:16
Eugen
Liebes Forum
in einer Zelle habe ich Werte wie "800x600" "1024x768" als Text mit x als delimitter
wie lese ich diese Zelle aus damit ich zwei Zahlen habe die ich weiterverarbeiten kann, wäre froh drum
gruss eugenS

Sub FeldEinlesen()
Dim EingelesenesFeld As String
Dim Zahl1 As Integer
Dim Zahl2 As Integer
EingelesenesFeld = Workbooks("work.xls").Worksheets("io").Range("A1").Value
Zahl1 = ""
Zahl2 = ""
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String "800x600" in 2 Zahlen umwandeln
11.03.2004 03:06:02
Hans W. Herber
Hallo Eugen,
wie folgt:

Sub GetNumbers()
Dim iFirst As Integer, iSecond As Integer
Dim sTxt As String
sTxt = Range("A1").Value
iFirst = CInt(Left(sTxt, InStr(sTxt, "x") - 1))
iSecond = CInt(Right(sTxt, Len(sTxt) - InStr(sTxt, "x")))
MsgBox "1. Zahl: " & CStr(iFirst) & vbLf & _
"2. Zahl: " & CStr(iSecond)
End Sub

Die Funktion ist abwärtskompatibel. Ab XL2000 kann die Split-Funktion genutzt werden, viel komfortabler wirds aber auch nicht.
Gruss hans
Anzeige
kompliment
11.03.2004 03:30:14
Eugen
hallo hans
ganz herzlichen dank für deine schnelle hilfe. denke hätte monate gebraucht um das rauszutüfteln ;-)
kompliment an deine site im speziellen an das forum und dessen helfer. ganz toll was ihr da macht. es erleichtert mir den VBA einstieg ganz erheblich.
gruss eugenS
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige