Hallo,
ich nutze MS Excel 2002 und schreibe für meine Diplomarbeit ein Vergleichsprogramm. Ich möchte eine gefüllte Zeile, bestehend aus mehreren Zeilen in eine Tabelle kopieren. Habe mir das so dedacht:
Quellcode:
Dim Zwischenablage As DataObject
Private Sub Commandbutton1_Click()
Dim Wert1 As Byte
Dim Wert2 As Byte
Dim Wert3 As Byte
Dim Wert4 As Currency
Dim Wert5 As Byte
Dim Wert6 As Single
Dim Wert7 As String
Dim Wert8 As Byte
Dim Wert9 As String
Dim Wert10 As Byte
Dim Wert11 As String
Dim Wert12 As Byte
Dim Wert13 As String
Dim Wert14 As Byte
Dim Wert15 As String
Dim Wert16 As Byte
Dim Wert17 As Single
Dim Wert18 As Single
Dim Wert19 As Single
Dim Wert20 As Single
Dim Wert21 As Byte
Dim Wert22 As Byte
Set Zwischenablage = New DataObject
Wert1 = Sheets("Tabelle8").Range("C12").Value
With Zwischenablage
.SetText Wert1
.PutInClipboard
End With
Set Zwischenablage = Nothing
Set Zwischenablage = New DataObject
Zwischenablage.GetFromClipboard
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveCell = Zwischenablage.GetText
Set Zwischenablage = Nothing
End Sub
Ich habe hier nur den Algorithmus für den erd´sten Wert dargestellt. Dieser wiederholt sich für alle 22 Werte und da besteht eigentlich meine Frage:
1. Gibt es eine Möglichkeit gleich eine ganze Zeile über die Zwischenablage zu kopieren und einzufügen? Ich finde meine Lösung funktioniert zwar ist aber nicht sehr elegant (jeden Wert einzeln zu kopieren).
2. Welchen Variablentyp muss ich definieren um Dezimalzahlen zu kopieren (z.B. 87,56) Habe es mit Single und Variant probiert. Er bringt zwar den richtigen Zahlenwert aber das Komma fehlt. (z.B. aus 87,56 wird 8756000000)
Für eine Antwort wäre ich sehr dankbar
Gruß Enno
|