Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:32:40
Vergleich 2 Spalten in Abhängigkeit vom Namen
16.04.2024 11:08:47
Text in Spalten zählen
16.04.2024 10:55:21
Welche Angaben sind Zeile- und Spaltenhöhe
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nächste Zelle bei End(xlToRight)

nächste Zelle bei End(xlToRight)
07.02.2009 14:06:50
Michael
Hallo!
Wie komme ich zur nächsten Zelle! C5 wird ausgegeben. A:C sind Daten. D ist lehr! Ich möchte nunmehr nach d5?Geht das mit End(xlToRight) überhaupt?
Danke

Sub LetzteZellePlus()
With Sheets("Tabelle2")
.Activate
.Range("B5").End(xlToRight).Select
End With
MsgBox "Letzte Zelle in Zeile 5: " & ActiveCell.Address
End Sub


6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nächste Zelle bei End(xlToRight)
07.02.2009 14:10:58
Ramses
Hallo
Das geht so

Sub LetzteZellePlus()
dim lastC as long
With Sheets("Tabelle2")
lastC = .cells(5,columns.count).End(xlToRight)
End With
MsgBox "Letzte Zelle in Zeile 5: " & cells(5,lastc).address
MsgBox "Erste freie Zelle in Zeile 5: " & cells(5,lastc +1).address
End Sub


Gruss Rainer

AW: nächste Zelle bei End(xlToRight)
07.02.2009 14:31:21
Michael
Hallo! Habe einen Laufzeitfehler! 1004
lastc ist immer 0 Columns.Count ist 256 End(xlToRight ist -4161?
Gruß Michael
sorry,..
07.02.2009 14:40:00
Ramses
Hallo
Man sollte halt nicht einfach so auf die schnelle schreiben
Option Explicit

Sub LetzteZellePlus()
    Dim lastC As Long
    With Sheets("Tabelle1")
        lastC = .Cells(5, Columns.Count).End(xlToLeft).Column
    End With
    MsgBox "Letzte Zelle in Zeile 5: " & Cells(5, lastC).Address
    MsgBox "Erste freie Zelle in Zeile 5: " & Cells(5, lastC + 1).Address
End Sub

.... es gibt nämlich kein "xlToRight" :-(
Gruss Rainer
Anzeige
AW: auch sorry,..
07.02.2009 15:44:00
Gerd
Hallo Rainer!

Sub test()
MsgBox Cells(5, 1).End(xlToRight).Address
End Sub


Gruß Gerd

AW: auch sorry,..
07.02.2009 18:40:38
Ramses
Hallo
Das war ja nicht die Frage:
Ich habe den Code so angepasst auf die Frage, dass er die Informationen erhält wie er gefragt hat
Was er draus macht, ist mir wurscht
Gruss Rainer
PS:
Diese Zeichenolympiaden mag ich sowieso nicht
AW: nächste Zelle bei End(xlToRight)
07.02.2009 14:41:00
hary
hallo Michael
versuch mal so.

lastC = cells(5,columns.count).End(xlToLeft).column +1


alternativ zu Deinem Code
.Range("B5").Offset(0, 2).Select
Gruss Hary
Frage was suchst Du die letzte leere zelle, oder die feste in D

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige