Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
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
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code überprüfen

Code überprüfen
05.04.2015 22:20:29
W.
Hallo an Alle,
schaut euch bitte mal folgende Codes an:
Sub letzteZeile_suchen()
Dim letzteZeile
letzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
MsgBox letzteZeile
Rows(letzteZeile & ":65536").Select
End Sub
Dieser Code funktioniert einwandfrei:
Dieser Code:
Sub letzteSspalte_suchen()
Dim letzteSpalte
letzteSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
MsgBox letzteSpalte
Columns(letzteSpalte & ":256").Select
End Sub
:produziert Laufzeitfehler 1004 "Anwendungs- oder objektdefinierter Fehler"
Ich verstehe absolut nicht warum. Eventuell hat ja jemand eine Erklärung für mich.
Grüße und Frohe Ostern!!!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code überprüfen
05.04.2015 22:45:03
Luschi
Hallo
Columns erwarten bei mehreren zusammenhängenden Spalten die Angabe so:
Columns("I:IV"). Deshalb muß die SpaltenNr. in den Spaltenbuchst. umgerechnet werden: 

Sub letzteSpalte_suchen()
Dim letzteSpalte
letzteSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
MsgBox letzteSpalte
Columns(Split(Cells(1, letzteSpalte).Columns.Address(True, True), "$")(1) & ":IV").Select
End Sub
Gruß von Luschi
aus klein-Paris

AW: Code überprüfen
05.04.2015 22:52:26
Gerd
Hallo W.,
also ein Syntaxfehler, den du auch so vermeiden könntest. 
Sub letzteSspalte_suchen()
Dim letzteSpalte
letzteSpalte = WorksheetFunction.Min(ActiveSheet.Columns.Count, _
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1)
MsgBox letzteSpalte
Range(Columns(letzteSpalte), Columns(256)).Select
End Sub

Gruß Gerd

Anzeige
AW: Code überprüfen
05.04.2015 23:04:54
Markus
Hallo
Wenn du wirklich bis zur letzten Zelle des Tabellenblatts auswählen willst, so musst du die Anzahl der Zeilen, resp. der Spalten, ermitteln, da je nach Excel-Version und Installation (32/64-Bit) die Anzahl der Zeilen und Spalten variert.
Hier der Code: 

Sub letzteZeile_suchen()
Dim letzteZeile
letzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
MsgBox letzteZeile
Range(Rows(letzteZeile), Rows(Rows.Count)).Select
End Sub
Sub letzteSpalte_suchen()
Dim letzteSpalte
letzteSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
MsgBox letzteSpalte
Range(Columns(letzteSpalte), Columns(Columns.Count)).Select
End Sub
Gruss aus dem Ricola-Land
Markus

Anzeige
AW: Code überprüfen
05.04.2015 23:08:12
W.
Danke für die umgehenden Antworten. Hab wieder was dazugelernt.
Frohe (Rest)Ostern noch!!!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige