Zelle mit Gültigkeitsabfrage kopieren
23.04.2009 14:04:36
chsarto
Ich habe ein Makro welches einen bestimmtenn Teil x mal kopiert, mit Formel und Formatierung.Alles so weit so gut. In einem bestimmten Bereich in Spalte G ist eine Gültigkeitsabfrage hinterlegt, diese wird jedoch nicht auf die neuen Spalten it übernommen, benötige ich aber, weil damit ein Sverweis abgefragt wird, welcher zur Berechnung weiterer Daten erforderlich ist.
Ich stehe mal wieder auf dem Schlauch.
Jetzt schon tausend dank euch allen.
chsarto
hier das Makro
Sub Zeilen_kopieren_Kalkulation()
Rows("23:64").Select
Selection.EntireRow.Hidden = False
Dim ix As Integer
Dim lRow As Long
Range("A23:R64").Copy 'Daten mit Gültigkeitsabfrage stehen in der Spalte G31:G40 und G52: _
G61 For ix = 2 To Sheets("Nachtragskalkulation").Cells(9, 5) 'Zähler steht in Zelle E9 9=Zeile 5=Spalte e
lRow = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & lRow).PasteSpecial Paste:=xlPasteFormulas
Range("A" & lRow).PasteSpecial Paste:=xlPasteFormats
Next ix
Application.CutCopyMode = False
Range("B31").Select
End Sub