Code überprüfen

Forumthread: Code überprüfen

Code überprüfen

05.04.2015 22:20:29

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

AW: Code überprüfen

05.04.2015 22:45:03

Luschi
AW: Code überprüfen

05.04.2015 22:52:26

Gerd
AW: Code überprüfen

05.04.2015 23:04:54

Markus
AW: Code überprüfen

05.04.2015 23:08:12

W.

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

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

AW: Code überprüfen

05.04.2015 23:08:12

Danke für die umgehenden Antworten. Hab wieder was dazugelernt.
Frohe (Rest)Ostern noch!!!

Beliebteste Forumthreads (12 Monate)

Forumthread: Code überprüfen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread