Office: VBA Code anpassen mit variablem Tabellen Ende

Hallo,
im folgenden Code möchte ich gerne statt eines fest vorgegebenen Tabellen Ende ein variables einsetzen.

Sub Verkettung()

Dim i As Long
For i = 2 To 15000 'Hier soll kein festes Ende festgelegt sein sondern das tatsächliche Ende der Tabelle, welches variabel sein kann.
Cells(i, 9) = Cells(i, 5) & " " & Cells(i, 7) & Cells(i, 8) & " " & Cells(i, 2)
Next i

End Sub

Ich kriege es aber nicht hin. Kann mir bitte jemand behilflich sein?

Vielen Dank
Alexander

 

Code:

Dim i as Long, lz As Long
lz = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row

For i = 2 to lz

dein weitere Code......

 

Hi Alexander,

was genau verstehst du unter "tatsächliches Ende der Tabelle"? Handelt es sich um eine intelligente Tabelle? Oder woran ist das Ende der Tabelle erkennbar - gibt es z.B. eine andere Spalte, an der man dies feststellen kann? Die Verwendung von UsedRange.SpecialCells(xlCellTypeLastCell) ist nicht unbedingt empfehlenswert, wenn es eine andere Möglichkeit zum Erkennen der letzten belegten Zeile gibt, weil sich Excel bereits irgendwann einmal belegte Zellen merkt, auch wenn deren Inhalt wieder gelöscht wurde - es sei denn, die betreffenden Zeilen/Spalten wurden gelöscht (entfernt), die Mappe gespeichert, geschlossen und wieder geöffnet.

---

 

Hallo Karin,
unter tatsächlichem Ende verstehe ich den Bereich am Ende der Tabelle, der keine Daten mehr enthält. Also der Bereich, der, zumindest für den Anwender, keine Daten mehr enthält.

 

Hi Alexander,

das ist mir schon klar, aber woran erkennt man, dass die Tabelle zuende ist? Deshalb nochmal meine Frage: handelt es sich um eine intelligente/formatierte Tabelle, die man mittels Strg+T erstellt, also so etwas in der Art

Tabelle1

	A	B	C
1	AA	BB	CC
2	1
3	2
4	3
5
6

Formatierte Tabellen (Tabelle1)
Bereich	Name	Vorlage	Vorlage orig.
$A$1:$C$4	Tabelle2	Tabellenformat - Mittel 2	TableStyleMedium2

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.24 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

Oder sind es einfach nur Daten in benachbarten Spalten im Tabellenblatt - also in etwa so:

Tabelle1

	A	B	C
1	AA	BB	CC
2	1
3	2
4	3
5
6

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.24 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

---

 

Einfach nur Daten in benachbarten Zellen.

 

Dann nochmal meine Frage zur Spezifizierung: gibt es eine Spalte, an der man erkennen kann, wieviele Zeilen die Tabelle einmal umfassen soll? In meinem geposteten (unteren) Beispiel wäre das Spalte A und das Ende der Tabelle wäre Zeile 4.

---

 

In meiner Tabelle ist das Spalte E

 

dann nimm

Code:

lz = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).row

P.S. Karin hat mit dem used Range natürlich Recht. Aber alle male besser als Fix. :-)

 

Dann kannst du die Schleife so schreiben

Code:

For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row

Auf diese Weise wird der Code nur bis zur letzten belegten Zeile ausgeführt wie in Spalte E bereits Daten vorhanden sind.

---

 

Klasse, danke