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

Text in Zahl wanden beim Kopieren

Text in Zahl wanden beim Kopieren
09.01.2016 10:16:36
Daniel
Hallo zusammen,
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!!

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

Betreff
Datum
Anwender
Anzeige
AW: Text in Zahl wanden beim Kopieren
09.01.2016 10:43:53
Daniel
Hi
Ja. verwende statt
Quellbereich.Copy
Zielbereich.PasteSpecial xlPasteValues
das
Zielbereich.Value = Quellbereich.Value
Beachte, dass du hierbei beide Zellbereiche gleich gross sein müssen, bei PasteSpecial reicht es aus, für den Zielbereich die linke obere Zelle anzugeben.
Bei dir also
Wkb2.Worksheets(Array2(x)).Cells(n, 3).Resize(1, 3).Value = .Range(.Cells(i, 12), .Cells(i, 14)).value
Gruß Daniel

AW: Text in Zahl wanden beim Kopieren
10.01.2016 12:59:19
Daniel
Hallo Daniel,
vielen Dank!
Daniel :)
Anzeige

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige