Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range(Selection, Selection.End(xlDown)).

Range(Selection, Selection.End(xlDown)).
30.01.2023 10:58:20
Martin
Liebe alle,
seit heute auf Office 64-bit-Version gezwungen worden. (evt. deshalb?)
Bei folgender (mit Makrorecorder aufgenommen um sicherzugehen, dass ich nix falsch tippe) und Ausführung
ActiveSheet.Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Kommt eine Fehlermeldung: "Fehler beim Kompilieren. Function der Variable erwartet"
Bitte, was mach ich falsch?
Merci vielmal..

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 11:05:56
ChrisL
Hi Martin
Die beiden gezeigten Zeilen ergeben bei mir trotz 64bit keinen Fehler. Teste es mal in einer neuen leeren Testdatei.
So kannst du die Zeilen zusammenfassen:
Range(Range("A7"), Range("A7").End(xlDown)).Select
cu
Chris
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 11:10:59
GerdL
Hallo Martin,
schreibe bitte mal ins Modul ganz oben "Option Explicit".
Vermutlich liegt der Fehler nicht in den von dir gezeigten beiden Codezeilen.
Gruß Gerd
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 11:12:12
Daniel
Hi
In der Vergangenheit kam es bei Versionsupdates gelegentluch dazu, dass die Verweise "zerstört" wurden und nicht mehr funktionierten, was dazu geführt hat, dass VBA-Funktionen nicht mehr erkannt wurden.
Die Abhilfe war, im Menü Extras -Verweise alle Haken rauszunehmen.
Excel hat dann automatisch die benötigten Verweise wieder aktiviert und dabei die Fehler behoben.
vielleicht ist das auch bei dir der Fall und die Verweise hängen noch auf den alten Bibliotheken.
Gruß Daniel
Anzeige
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 12:24:15
Martin
Hallo zusammen,
- das mit dem Zusammenfassen: "Range(Range("A7"), Range("A7").End(xlDown)).Select" damit funktioniert es Merci. nur warum geht das andere nicht mehr. Es besteht wohl ein Problem mit dem Begriff "Selection".
- Das mit option explicit habe ich nun gemacht. Jetzt bleibt er immer noch bei "Selection" hängen. wenn ich "activesheet." davor einbaue klappt es.. Warum brauch ich das?
- Das mit den Verweisen ist bei mir ausgegraut. Kann es daran liegen, dass ich nur signierte Dateien verwenden darf? (Rule der Bude)
Merci für Eure Hilfe.
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 12:32:48
GerdL
Hallo Martin!
Interessehalber: In welcher Sorte Modul hast du den Code ? (allgemeines Modul; Tabellenblattmodul)
Gruß Gerd
Anzeige
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 12:43:02
Martin
Hallo Gerd,
ich würde sagen unter "allgemein". Diese Arbeitsmappe - rechte Maustaste - einfügen Modul.
das mit dem Selection macht mir echt Mühe...
bis gestern war das kein Problem.
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 12:29:52
Martin
Hallo zusammen,
- das mit dem Zusammenfassen: "Range(Range("A7"), Range("A7").End(xlDown)).Select" damit funktioniert es Merci. nur warum geht das andere nicht mehr. Es besteht wohl ein Problem mit dem Begriff "Selection".
kommt immer eine Fehlermeldung: Objekt unterstützt diese Eigenschaft oder Methode nicht (Bsp: ActiveSheet.Selection.Copy)
- Das mit option explicit habe ich nun gemacht. Jetzt bleibt er immer noch bei "Selection" hängen. wenn ich "activesheet." davor einbaue klappt es.. Warum brauch ich das?
- Das mit den Verweisen ist bei mir ausgegraut. Kann es daran liegen, dass ich nur signierte Dateien verwenden darf? (Rule der Bude)
Merci für Eure Hilfe.
Anzeige
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 12:44:55
ChrisL
Hi
Folgende Zeile gibt es nicht:
ActiveSheet.Selection.Copy
Syntax-/Kompilierer- und Objekt-bezogene Fehler sind zwei verschiedene Sachen.
Als Test für Selection würde ich z.B. folgende Zeile verwenden. Einmal in der Originaldatei und einmal in einer neuen leeren Mappe testen.
MsgBox Selection.Address
Einen Kompilierungsfehler in Zusammenhang mit Selection kann ich mir eigentlich gar nicht vorstellen. Die Tatsache, dass die zusammengefasste Zeile funktioniert, macht die Angelegenheit noch komischer. Wenn hier wirklich ein generelles Problem vorliegt (siehe Testzeile), dann würde ich Office-Repair machen bzw. die Applikation neu installieren.
cu
Chris
Anzeige
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 12:50:48
GerdL
Hallo Martin,
du kannst mal gucken, ob du andernorts im Pojektcode eine Prozedur oder eine Variable "Selection" genannt hast.
Gruß Gerd
AW: Range(Selection, Selection.End(xlDown)).
30.01.2023 13:32:26
Martin
Gerd,
MERCI. Das ist tatsächlich die Lösung.
Als ich ein Problem in meiner Programmierung suchte, zeichnete ich ein MAKRO auf und nannte dies "Selection". Tut mir leid, dass ich das nicht gecheckt habe. Aber evt. hilft es ja anderen Anfängern.
LG Martin

39 Forumthreads zu ähnlichen Themen

Endxldown - 2010
Lucia

Hallo zusammen,
ich habe in meinem excel 2007 folgenden code zur Datenübernahme von einem Formular in das Excel:
Private Sub Datenuebernahme_Click() Range("A8").Select If ActiveCell.Offset(0, 0).Value "" Then Selection.End(xlDown).Select End If ActiveCell.Offset(0, 0).Select If NameZa...
29.12.2010 16:56:31
Thread-ID: 1193246
3 Beiträge
Anzeige
mit VBA vorangehendes Zeichen löschen
Micha

Hallo zusammen,
mit einem Makro finde ich einen Teilstring in einer Zelle. Nun möchte ich ein vorangehendes "+" und diesen Teilstring löschen. Das Problem ist, dass das + manchmal direkt vor dem String steht und manchmal stehen noch andere Zeichen dazwischen, die aber nicht gelöscht werden...
18.02.2014 15:05:59
Thread-ID: 1350226
16 Beiträge
Range.end(xldown)
Christian

Hi Leute !Ich will in einer Tabelle die nächste freie Zeile ermitteln.mit Cells(1,1).end(xldown).offset(1,0) klappt das an sich, aber wenn die Tabelle leer ist oder nur eine Zeile enthält dann nicht, weil das Ding zur letzten Zeile geht.
Wie kann ich sowas am elegantesten lösen?Wenns geht oh...
04.02.2003 12:06:12
Thread-ID: 213494
2 Beiträge
Anzeige
Problem mit Selection.End(xlDown)
Albert
Hallo liebes Forum,
ich habe ein Problem bei Range(Selection, Selection.End(xlDown)).Select und zwar kann es vorkommen, das nur eine Zeile Daten hat und dann wird bis ans Tabellenende selektiert. Es soll aber in diesem Fall nur die eine Zeile selektiert sein.
Hinweis: Wenn Mehrere Zeilen...
12.04.2022 08:28:27
Thread-ID: 1879296
7 Beiträge
VBA Range End Zelle ermitteln
Peter
Hallo,
ich möchte gern die aktuell ausgewälte range in zahlen auslesen. Also statt A1:J10 -> 1 | 1 | 10 | 10 damit ich damit weiter arbeiten kann.
Aktueller code:
Dim test As String
Dim spaltennummer_erste As Long
Dim zeilennummer_erste As Long
Dim spaltennumm...
11.02.2023 23:13:44
Thread-ID: 1919882
6 Beiträge
.End(xlDown).Row - Eleganter möglich in einer def. Range?
Ralf
Hallo liebes Forum,

ich habe eine Frage bzw. benötige einen Hinweis für die Ermittlung der letzten Benutzenzeile in einer Range. Im Grunde ist das Ermitteln dieser Spalte durch die Funtkion der SpecialCells oder der .End(xlDown) Funktion relativ einfach. Dennoch habe ich mir im Kopf irgendw...
23.09.2023 13:36:23
Thread-ID: 1947122
5 Beiträge
Endxldown - 2010
Lucia

Hallo zusammen,
ich habe in meinem excel 2007 folgenden code zur Datenübernahme von einem Formular in das Excel:
Private Sub Datenuebernahme_Click() Range("A8").Select If ActiveCell.Offset(0, 0).Value "" Then Selection.End(xlDown).Select End If ActiveCell.Offset(0, 0).Select If NameZa...
29.12.2010 16:56:31
Thread-ID: 1193246
3 Beiträge
VBA-Range in Formel verwenden
Peter

Guten Tag
Ausgangsbasis ist eine SUMMEWENN-Formel (Datei-übergreifend), die ich in einem Spaltenbereich eingetragen habe.
=SUMMEWENN('[KUME.xlsm]DEFG'!$P$7:$P$48;LINKS(A2;LÄNGE(A2)-3);'[KUME.xlsm]DEFG'!$AO$7:$AO$48)
Nun habe ich das Argument 1 mit r_KUME1 und das Argument r_KUME3 al...
19.08.2013 14:27:35
Thread-ID: 1327468
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
15
1
2
6
5
4
2
5
15
1
5
10
4
2
4
5
15
2
4
6
1
2
2