Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler bei End.(xldown)

Fehler bei End.(xldown)
27.08.2003 15:55:31
Frank
Hallo,

ich habe eine Verständnisfrage.

Ich springe mit dem folgenden Makro beginnend mit A7 in die letzte gefüllte Zeile. Dann wird in der übernächsten Zeile eine Summe in Spalte E gebildet.

Wenn nun ab von a7 bis a65530 alle Felder leer sind bleibt der Cursor nicht auf a7 stehen und fügt dann in b9 eine Summe ein sondern er springt in A65530 und will dann noch 2 Zeilen tiefer für die Summen - mit entsprechender Fehlermeldung.

Warum?

Das Makro lautet:
Sheets("Journal").activate
range("a7").select
Activecell.end(xldown).select
activecell.offset(2,4).select
Selection ="=sum(R7C5:R[-1]C)"
Wäre nett wenn mir jemand zum Verständnis weiterhilft.

Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei End.(xldown)
27.08.2003 16:20:02
PeterW
Hallo Frank,

das end(xlDown) entspricht der Tastenkombination Strg+Pfeil runter. Schau dir dieses Verhalten mal in einer Tabelle an. Du musst im Code prüfen, ob in A8 etwas steht. Nebenbei, auf Select kann fast immer verzichtet werden:


Sub Frank()
If Range("A8") <> "" Then
Sheets("Journal").Range("a7").End(xlDown).Offset(2, 4).FormulaR1C1 = "=sum(R7C5:R[-1]C)"
Else
Range("A7").Offset(2, 4).FormulaR1C1 = "=sum(R7C5:R[-1]C)"
End If
End Sub


Gruß
Peter
Danke
28.08.2003 07:47:25
Frank
Hallo Peter,

danke für die Info,hat mir im Verständnis sehr geholfen und ohne select gehts wirklich schneller

Frank
Anzeige

24 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige