TEXT einfügen ohne Select ?
19.08.2021 12:04:38
Klaus
ich kopiere eine formatierte HTML-Liste aus einem Programm und möchte sie in Excel als Text haben, damit mir Links und Bilder nicht mitkopiert werden. Manuell funktioniert es (Inhalte einfügen, an Zielformatierung anpassen), folgendes Makro funktioniert ebenfalls:
Sub StatusChangeEinfügen()
With wks_StatusChange
.Visible = True
.Activate
.Cells.ClearContents
.Range("A1").Select
.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
.Visible = False
End With
End Sub
Sub StatusChangeEinfügen()
With wks_StatusChange
.Cells.ClearContents
.Range("A1").PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
End With
End Sub
PasteSpecial xlpastevalues habe ich schon probiert, das scheint mit HTML-Inhalten nicht zu gehen.
Da das Makro in circa 0.05 Sekunden durchläuft ist der .activate .select Teil jetzt kein Beinbruch, das Bildschirmflackern kann ich ja abschalten. Aber, und wenn's nur aus akademischen Gründen ist, bleibt die Frage: Wie kann ich hier auf SELECT verzichten?
LG,
Klaus M.