Wenn ein Wert in Spalte B negativ ist soll er mit dem davor stehenden Wert aus Spalte A auf das Tab L2 übertragen werden . Ist der Wert positiv(auch Spalte B), muß er mit dem davor stehenden Wert aus Spalte A auf das Tab. L2 übertragen werden.
Ich habe das so auch schon in einer anderen Datei am laufen, nur hier weiß ich nicht was z.B. mit Worksheet gemeint ist. Mit Excel 98 kommt ein Laufzeitfehler13 und in Excel2000 macht er mir die Daten auf L1 durcheinander, aber teilt nicht auf..
Hier der Code und weiter unten stehen die Werte, die aufteilen möchte. Habt ihr noch eine Idee? Danke und Gruß, Ralf
Sub Splitter2()
Dim i As Integer
Dim iPos As Integer
Dim iNeg As Integer
iPos = 1
iNeg = 1
For i = 1 To 17
If Worksheets(11).Cells(i, 2) > 0 Then
Worksheets(12).Cells(iPos, 1) = Worksheets(11).Cells(i, 1)
Worksheets(12).Cells(iPos, 2) = Worksheets(11).Cells(i, 2)
iPos = iPos + 1
ElseIf Worksheets(11).Cells(i, 2) < 0 Then
Worksheets(13).Cells(iNeg, 1) = Abs(Worksheets(11).Cells(i, 1))
Worksheets(13).Cells(iNeg, 2) = Abs(Worksheets(11).Cells(i, 2))
iNeg = iNeg + 1
End If
Next
End Sub
So sehen meine Daten aus, die ich aufteilen möchte.....
Spalte A SpalteB
0101024 350.286,16
0855025 0,00
1100027 120,33
0,00
1193221 317,39
0,00
2100022 0,00
2110026 -34,32
2192326 11.301,38
2192520 0,00
2200027 255,46
2200322 8,50
3930025 0,00
7630023 0,00
7630420 0,00
0,00
0,00