Hallo ich habe ein kleines Problem und zwar möchte ich von einem Tabellenblatt eine Werteversion erstellen. Dafür habe ich auch ein Makro geschrieben, allerdings ist mir dann aufgefallen, dass Excel nur max 255 Zeichen in einem Textfeld kopiert. Gibt es dafür eine Lösung in Excel und wenn ja wie kann ich das im Makro einbauen.
Vielen Dank für Eure Hilfe!
Gruß seb
Private Sub CommandButton1_Click()
Dim objCopysheet As Worksheet
On Error Resume Next
Set objCopysheet = Worksheets("Report HC")
On Error GoTo 0
If Not objCopysheet Is Nothing Then Exit Sub 'Blatt ist schon vorhanden, Ausstieg
With ActiveSheet
.Unprotect
.Copy After:=Sheets(1)
ActiveSheet.Name = "Report HC"
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End With
With Worksheets("Report HC").Range("A1:BD204")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub