Hallo zusammen,
ich bräuchte mal eure hilfe.
ich habe einen Bereich, in den Zellen formatiert sind sowi in anderen Zellen Formeln stehen. Die Formatierung soll beim einfügen erhalten bleiben, aber die Formeln sollen nicht mit kopiert werden d.h. also nur die Formatierung und die Werte sollen eingefügt werden.
In Foren habe ich einen Code gefunden und der sollte wie folgt funktionieren, doch bei mir wird die Zeile mit dem Code rot makoert, leider weiß ich selber nicht was daran falsch ist.
Dim LoLetzte1 As Long
With Worksheets(cmbTab.Value)
If .Cells(1, 19) = "" Then
LoLetzte1 = 1
Else
LoLetzte1 = IIf(IsEmpty(.Cells(.Rows.Count, 19)), .Cells(Rows.Count, 19).End(xlUp).Row, .Rows.Count) + 10
End If
Worksheets("Formblatt_R").Range("A1:S55").Copy .Cells(LoLetzte1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
Der letzte Teil ist wohl der Übeltäter.
Kann mir vllt. jemand sagen was daran falsch ist?
ich bräuchte mal eure hilfe.
ich habe einen Bereich, in den Zellen formatiert sind sowi in anderen Zellen Formeln stehen. Die Formatierung soll beim einfügen erhalten bleiben, aber die Formeln sollen nicht mit kopiert werden d.h. also nur die Formatierung und die Werte sollen eingefügt werden.
In Foren habe ich einen Code gefunden und der sollte wie folgt funktionieren, doch bei mir wird die Zeile mit dem Code rot makoert, leider weiß ich selber nicht was daran falsch ist.
Dim LoLetzte1 As Long
With Worksheets(cmbTab.Value)
If .Cells(1, 19) = "" Then
LoLetzte1 = 1
Else
LoLetzte1 = IIf(IsEmpty(.Cells(.Rows.Count, 19)), .Cells(Rows.Count, 19).End(xlUp).Row, .Rows.Count) + 10
End If
Worksheets("Formblatt_R").Range("A1:S55").Copy .Cells(LoLetzte1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
Der letzte Teil ist wohl der Übeltäter.
Kann mir vllt. jemand sagen was daran falsch ist?
No comments:
Post a Comment