Aus Zellen Namen generieren und in Clipboard fügen

[anubis851]

Hallo zusammen,

ich möchte gern in das Clipboard ein Dateinamen kopieren, welches aus verschiedenen Zellen und Spalten generiert wird. 
Mein Code hat bereits funktioniert aber seit der Umstellung von Win7 (Excel 32-bit) auf Win10 (Excel 64-bit) läuft der Code nicht mehr zuverlässig. Anbei der Ausschnitt vom VBA-Code:
Private Sub CommandButton15_Click()
'Dateiname für Montage
Dim DN As String
DN = ""
DN = Cells(ActiveCell.Row, 14).Value & "_Montage_" & Cells(ActiveCell.Row, 2).Value & "_" & Cells(ActiveCell.Row, 3).Value & "_" & Cells(ActiveCell.Row, 4).Value & "_" & Mid(VBA.Environ("Username"), 3)

With New MSForms.DataObject
.SetText (DN)
.PutInClipboard
End With
End Sub


Für Hinweise wäre ich sehr dankbar.

[schauan]

Hallöchen,


was bedeutet " läuft der Code nicht mehr zuverlässig"

Mal allgemein zwei Tipps:

'Tipp 1 vorher ueberschreiben / leeren
.PutInClipboard
.Clear

'Tipp 2 kurze Wartezeit
Application.Wait Now + TimeValue("00:00:01")


und wenn das nicht hilft -
mal alles in eine Zelle eintragen und diese kopieren oder eine API-Variante nehmen