Zeilen suchen und aktualisieren
17.03.2004 21:38:16
Stephan
min Kopf streikt,die Augen tun weh (VBA-Anfänger)...darum bitte ich um Hilfe:
In Tabelle "Import" stehen ab Zeile 4 alle deutschen Aktien untereinander mit Name, Kurs, KGV, usw.
Einige Werte (mit der ganzen Zeile)werden nun mit einem Makro in die Tabelle "Watchlist" eingefügt, ab Zeile 4.
Die Tabelle "Import" wird jeden Tag aktualisiert.
Die Watchlist soll nun aus der Tabelle "Import" aktualisiert werden.
Leider meckert der Debugger bei firstAddress, dass keine Objektvariable oder With-Blockvariable festgelegt ist. ich habe es schon mit diversen Definitionen erfolglos versucht, und weiss überdies nicht, ob die Aktualisierung überhaupt funktioniert.
Ich dachte mir das so:
Sub Aktualisieren()
Application.ScreenUpdating = False
On Error GoTo schluss
Sheets("Watchlist").Activate
Range("A4").Activate
ActiveCell.SpecialCells(xlLastCell).Select
letztezeile = ActiveCell.Row
For i = 4 To letztezeile
With Sheets("Import").Range("A4:A1000")
m = ActiveCell.Value
Set c = .find(m, LookIn:=xlValues)
firstAddress = c.Address
Sheets("Import").Activate
Range(firstAddress).Activate
Range(Selection.Offset(0, 1), Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Watchlist").Activate
ActiveCell.Offset(0, 1).PasteSpecial
cutcopy = False
End With
schluss:
ActiveCell.Offset(1, -1).Activate
Next i
Application.ScreenUpdating = true
End Sub
Gruß Stephan