Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

349 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige