Visual Basic Forum

torade1903 · Newbie Anmeldedatum: 18.06.2010 Beiträge: 1

Hi Leute

Ich bräuchte etwas Hilfe bei meinem Code..

Ich will aus einer Zelle im Excel Text auslesen und diesen danach in zwei Variablen aufteilen

Hier ein Ausschnitt:

Dim IntCounterBU As Integer
Dim P1 As Integer
Dim StrBU As String
Dim IntValA As Integer
Dim IntValA As Integer

IntCounterBU = 1 'Habe im Originalcode eine Schleife die den Wert immer erhöht, damit es die ganze Spalte durchmacht
StrBU = Range("R" & IntCounterBU).Value

P1 = Application.Find("-", StrBU, 1) 'Pos vom ersten -
IntValA = Left(StrBU, P1 - 1)
IntValB = Mid(StrBU, P1 + 1)

MsgBox (IntValA & Chr(13) & IntValB)

Der Wert in der Zelle sieht z.Bsp so aus: 217-250
Ich wollte die Werte einfach mal in einer MsgBox ausgeben, um zu sehen ob sie überhaupt verarbeitet werden
_________________