Datenmenge für Makro zu groß
27.08.2015 09:50:03
Timo
ich verwende folgendes Makro, um an mehreren Stellen im Tabellenblatt neue Werte gleichzeitig einzufügen. Neben einer zu ändernden Bezeichnung in Spalte C (die auch auf einem Verweis aus einem anderen Blatt beruht) habe ich in allen folgenden Spalten Formeln hinterlegt. Daher ist es für mich die praktikabelste Lösung, die Zellen einfach zu kopieren und dann eben den Bezug in Spalte C jeweils zu ändern, um die korrekte Bezeichnung zu erhalten.
Leider funktioniert das Makro nur bei einer kleinen Datenmenge.
Hat vielleicht jemand eine Idee, was ich ändern könnte damit es schneller läuft?
Sub Werteeinfügen()
Dim strInput As String
Dim lngRow As Long
strInput = InputBox("Bitte Einfügeort eingeben")
If StrPtr(strInput) 0 Then
For lngRow = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If Cells(lngRow, 3).Text = strInput Then _
Call Rows(lngRow).Resize(1).Copy
Call Rows(lngRow).Resize(1).Insert(Shift:=xlShiftDown)
Application.CutCopyMode = False
Next lngRow
End If
End Sub
Danke und Gruß Timo