Direktes Ansteuern von Zellen möglich?!
12.02.2004 14:42:05
Dominik
ich beschäftige mich seit 3 Tagen mit Visual Basic for Applikations und ich wollte fragen, ob es eine andere Möglichkeit gibt in eine Zelle einen Wert zu schreiben als mit cell(Coordinate).select dann selection.copy wieder cell(Coordinate).select und zum ende nochmal ActiveSheet.Paste.
Hier mein entwickelter Programm code :
Diese Lösung ist ein wenig Rechenaufwendig.... Ein Gigahertz CPU mit 128 Speicher braucht dafür bei immerhin bei 4000 Datensätzen fast 30 Sekunden
Sub Datenabgleich()
Dim x
Dim y As Variant
Dim WS As Worksheet
Dim minus As Integer
Application.ScreenUpdating = False
minus = -1
For x = 1 To 4010
y = Cells(x, 1).Value
If Cells(x, 12).Value = "F" Then
Cells(x + 1, 1).Select
Selection.Copy
Cells(x, 15).Select
ActiveSheet.Paste
Cells(x + minus, 1).Select
Selection.Copy
Cells(x, 16).Select
ActiveSheet.Paste
End If
Next x
Application.ScreenUpdating = True
End Sub
Wenn jemand optimierungsvorschläge hat bitte posten