Hallo Forengemeinde
ich möchte in einer Excel-Tabelle mit 125000 Zeilen automatisch nach einem Wert suchen und dann 9 Felder weiter rechts eine Formel einfügen die ich vorher schon in den Zwischenspeicher kopiert habe. Es funktioniert in soweit, das die Wert gelesen und in den Speicher kopiert werden, die erste Zelle mit :55: gefunden wird aber dann springt die Zelle nicht 9x nach rechts obwohl es bei einem kleineren TEst funktiioniert hat. Derzeit fügt er an der Fundstelle direkt die Formeln ein, springt dann eine Zelle nach rechts und fügt wieder die kopierten Zellen in die gleiche Zeile ein.
Hier der Code, evt. ist es ja nur eine Kleinigkeit.
Ich danke Euch für jede Hilfe, Gruß Axel
Sub Add()
'
' Add Makro
'
' Tastenkombination: Strg+Umschalt+A
'
ActiveWindow.ScrollRow = 1
Range("P13:Z13").Select
Selection.Copy
Range("P14").Select
Do
Cells.Find(What:=":55:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
' Range("P25").Select
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
ActiveSheet.Paste
' Range("P26").Select
SendKeys "{DOWN}"
Loop While ActiveCell.Address = C125356
End Sub
|