Text in Zahl wanden beim Kopieren
09.01.2016 10:16:36
Daniel
ich brauch mal wieder eure Hilfe...
ich habe den folgenden Code der mir Daten aus einem Datenblatt in ein anderes kopiert. Seit neustem ziehe ich die Daten direkt aus einer Datenbank und habe jetzt das Problem, dass ich überall Text reinkopiert bekomme. gibt es eine Möglichkeit dies direkt beim kopieren über *1 oder +0 zu lösen?
For x = 0 To 6
n = 4
With Sheets(Me.Monat)
For i = 6 To lngLast
If .Cells(i, 1).Text = Array1(x) Then
If .Cells(i, 2).Text = Me.Mandat Then
.Range(.Cells(i, 3), .Cells(i, 9)).Copy '----> Start Date _
_
bis Ort
Wkb2.Worksheets(Array2(x)).Cells(n, 3).PasteSpecial Paste:= _
_
xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range(.Cells(i, 12), .Cells(i, 14)).Copy '----> Start _
Dauer h bis Spesen/ÜN
Wkb2.Worksheets(Array2(x)).Cells(n, 10).PasteSpecial Paste:= _
_
xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
n = n + 1
End If
End If
Next i
End With
Next x
Vielen Dank!!
Anzeige