per VBA Formelergebn. auf 2. Blatt kopieren?
05.03.2008 08:39:00
Ramon
ich habe ein VBA-Problem, bei dem ich nicht weiterkomme:
Es geht um 2 Tabellen: "Userform" und "Data"
In Abhängigkeit der Zahl in Zelle M40 werden vom Blatt "Userform
unterschiedliche Zeilenanzahlen mit Formelergebnissen auf das Blatt
"Data" kopiert (jeweils ans Ende angefügt).
Funktioniert auch wuderbar! Allerdings kopiert er die Formeln mit
und hat dann durch falsche Bezüge nur noch Fehlerwerte.
Ich möchte gerne erreichen, dass er NUR DIE WERTE Kopiert.
Hier mein derzeitiger Code:
Private Sub CommandButton5_Click()
Dim lastrow As Long
If Sheets("UserForm").Range("M40") = 1 Then Sheets("UserForm").Range("e41:L41").Select Else
If Sheets("UserForm").Range("M40") = 2 Then Sheets("UserForm").Range("e41:L42").Select Else
If Sheets("UserForm").Range("M40") = 3 Then Sheets("UserForm").Range("e41:L43").Select Else
If Sheets("UserForm").Range("M40") = 4 Then Sheets("UserForm").Range("e41:L44").Select Else
If Sheets("UserForm").Range("M40") = 5 Then Sheets("UserForm").Range("e41:L45").Select
With Worksheets("data")
lastrow = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row + 1, 65536)
Selection.Copy Destination:=.Cells(lastrow, 1)
End With
End Sub
Ich hoffe mir kann jemand weiterhelfen!
Vorab vielen Dank,
Gruß,
Ramon
Anzeige