---

Hallo!

Irgendwie stehe ich heute auf dem Schlauch.
Von VB aus öffne ich eine Excel-Datei, in der schon irgendwas drinnen steht. Ich möchte nun Excel dazu bringen in die erste freie Zeile zu springen.
Ich weiß wie es in Excel funzt:

With objActiveSheet
    .Range("A65536").End(xlUp).Select
    .Cells(ActiveCell.Row + 1, 1).Select
End With

Wieso zum T... funzt es aus VB nicht? Bekomme die Meldung für die ActiveCell "WithBock-Variable blablabla nicht gesetzt"

Danke und Grüsse,
BJ

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend BJ,

unter xls läufts, aber denke mal das 'Activecell' hat's hier in sich,
versuch's mal ohne.

Dim lastRow&
lastRow = ActiveSheet.Range("A65536").End(xlUp).Row + 1
Cells(lastRow, 1).Select

oder

With objActiveSheet
    .Range("A65536").End(xlUp).Offset(1, 0).Select
End With

BTW nochwas, das elende 'select' ..., ich persönlich versuche es weitestgehend zu vermeiden, nur wenns mal unbedingt sein muss halt.
Soll heissen, select kann einem ganz schön auf die Füsse fallen, weil Du jedesmal an der Zelle 'klebst' & die Performance wird schlechter, vielleicht harkte es deswegen mit dem 'Activecell'? Keine Ahnung.

Lass mal spassenshalber in xl die zwei Codes laufen 

Sub MitSelect()
Dim x&
For x = 1 To 65536
Cells(x, 1).Select
ActiveCell.Value = 1
Next x
End Sub

Sub OhneSelect()
Dim x&
For x = 1 To 65536
Cells(x, 2).Value = 1
Next x
End Sub

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Nancy!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP