Hallo Leute,
stehe vor der Herausforderung, dass meine Formatierung in die neue Zelle nicht mit übernommen werden soll:
Private Sub cmdBestellung_Click()
'Liest markietre Zelle
Dim adstr As String
adstr = ActiveCell.Row
With Worksheets("Befundmaterial_STE110")
ActiveCell.Copy
End With
With Worksheets("Befundzettel")
Range("D8").Select
.Paste
End With
'Schließt das Formular frmBestellung
Unload frmBestellung
End Sub
Habt ihr ne Idee wieso es nicht funktioniert?
Habe bereits {.PasteSpecial Paste:=xlValues} probiert..
Für Hilfe wäre ich echt dankbar.
Gruß Mike
|