per CommandButton von einem Sheet ins andere kop.
12.12.2016 13:40:30
einem
vielleicht kann mir hier jemand helfen, denn ich kann mir diesen Fehler einfach nicht erklären.
Ich möchte nach Betätigung eines Command Buttons und unter bestimmten Voraussetzungen bestimmte _ Werte aus einem Sheet kopieren und in ein anderes Sheet einfügen. Hierzu folgender Code:
If UserForm1.ListBox1.ListIndex = "1" And UserForm1.ListBox2.ListIndex = "0" Then
Sheets("Auswertung").Range("B2") = Sheets("Berechnung").Range("L16")
Sheets("Auswertung").Range("B3") = Sheets("Berechnung").Range("L17")
Sheets("Auswertung").Range("B7") = Sheets("Berechnung").Range("L21")
Die ersten zwei Zeilen (alsovon L16 in B2 und von L17 in B3) kopiert er ordnungsgemäß.
Nur die dritte Zeile kopiert er einfach nicht. Berechnung!L21 hat 8 Nachkommastellen (0,00001788 ). Kann es daran liegen? Habe aber Auswertung!B7 auch für 8 Nachkommastellen und Währung formatiert.
Danke im Voraus für kurze Hilfestellung.
Gruß
Bence
Anzeige