ich habe ein Problem mit Paste-Spezial.
Mein Code sieht so aus:
Sub DatenInWerteEL()
Sheets("DatenEl").Visible = xlSheetVisible
Sheets("DatenEl").Select
Range("c1:c1").Select
Range("G1:DC33").Select
Dim i As Integer, Ausgewählte_Zellanzahl As Integer, oberste_Zeile As Integer, linke_Spalte As _
Integer
Dim oben_links As Range
On Error GoTo FeedBack
Ausgewählte_Zellanzahl = Selection.Areas.Count
ReDim Ausgewähltes_Feld(1 To Ausgewählte_Zellanzahl)
For i = 1 To Ausgewählte_Zellanzahl
Set Ausgewähltes_Feld(i) = Selection.Areas(i)
Next i
For i = 1 To Ausgewählte_Zellanzahl
oberste_Zeile = Ausgewähltes_Feld(i).Row
linke_Spalte = Ausgewähltes_Feld(i).Column
Next i
Set oben_links = Cells(oberste_Zeile, linke_Spalte)
For i = 1 To Ausgewählte_Zellanzahl
Ausgewähltes_Feld(i).Copy
Ausgewähltes_Feld(i).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
Next i
Sheets("DatenEl").Visible = xlSheetHidden
Exit Sub
FeedBack:
If Err = 1005 Then
MsgBox ("Geht nicht in gesperrtem Blatt!")
Else
MsgBox Error(Err)
Resume Next
End If
End Sub
Den muß ich etwas eindampfen und auf ohne select umstellen.
Habe es einmal so versucht:
Sub DatenInWerteAV()
Sheets("DatenAv").Range("G1:DC33").Value = Sheets("DatenAv").Range("G1:DC33").Value
End Sub
Das Ergebnis ist eingentlich ok, es gibt aber einen gravierenden Unterschied: bei der alten Version machte er aus leeren Zellen bzw. der Formel: =WENN(WVERWEIS($F131;ErgebnisAv;G$36;0)=0;"";WVERWEIS($F131;ErgebnisAv;G$36;0)) einen Eintrag der ein ' in die Zelle eingetragen hat.
Der neue Code läßt die Zelle einfach leer.
Weiß jemand Rat? Ich brauche eben bei den leeren Zellen auch das ' darauf gehen alle Formeln....
Gruß Lobby007