Excel 2007 - VBA "Nur" Werte einfügen, keine Formel

Question

Hallo zusammen,

habe ein super funktionierendes Makro, dass mir Zeilen kopiert und in einer anderen Tabelle einfügt. Allerdings mit Formeln.

Kann mir jemand dieses Makro so umbauen, dass nur noch die Werte eingefügt werden?


If i = UBound(arr) Then
.Range(.Cells(2, arr(i)), .Cells(lngRow, arr(i))).SpecialCells(xlVisible).Copy Sheets("Lagerbewegungen").Cells(lngrow2, 13)
Else
.Range(.Cells(2, arr(i)), .Cells(lngRow, arr(i))).SpecialCells(xlVisible).Copy Sheets("Lagerbewegungen").Cells(lngrow2, i + 1)
End If

Danke.

Gruß
Florian

Answer 1

Hallo,

ist es möglich zwar ohne Formeln, aber dafür MIT Formatierung einzufügen?

Gruß
Florian

Answer 2

Hi Florian,

für die Formate musst du einfach noch eine Zeile ergänzen:

Sheets("Lagerbewegungen").Cells(lngrow2, 13).PasteSpecial Paste:=xlPasteFormats

bzw.

Sheets("Lagerbewegungen").Cells(lngrow2, i + 1).PasteSpecial Paste:=xlPasteFormats

Solche Dinge lassen sich auch ganz einfach mit dem Makrorekorder aufzeichnen.

Bis später,
Karin

Answer 3

Hallo Karin,

danke dir.

Mit dem Makrorekorder ist das bei mir immer so ne Sache.

Gruß
Florian