Thema Datum  Von Nutzer Rating
Antwort
Rot Werte aus Tabelle in darunterlieg.Tabelle kopieren
 24.08.2006 13:33:00 Enno
NotSolved
28.08.2006 09:56:00 Schnolli
NotSolved

Ansicht des Beitrags:
Von:
Enno		 Datum:
24.08.2006 13:33:00		 Views:
1884		 Rating:
     
Antwort:
  Ja
Thema:
Werte aus Tabelle in darunterlieg.Tabelle kopieren
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Werte aus Tabelle in darunterlieg.Tabelle kopieren
 24.08.2006 13:33:00 Enno
NotSolved
28.08.2006 09:56:00 Schnolli
NotSolved