Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
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
Inhaltsverzeichnis

Letzte Zeile ändern in 3. Zeile

Letzte Zeile ändern in 3. Zeile
Kai
Hallo,
ich habe in meinem Code diese Zeile, wo ich Text in die Letzte Zeile des Tabellenblattes rein kopiere:
WsTabelle.Cells(Rows.Count, 1).End(xlUp).EntireRow.Copy
Nun möchte ich aber nicht die letzte Zeile, sondern der Text soll ab der Zeile 3 eingefügt werden.
Was muss ich ändern ?
Danke und Gruß
Kai

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

Betreff
Benutzer
Anzeige
AW: Letzte Zeile ändern in 3. Zeile
27.01.2011 11:17:08
Rudi
Hallo,
in deinem Schnipsel steht nichts von einfügen.
Gruß
Rudi
Sorry, so besser ....
27.01.2011 11:27:07
Kai
With WsTabelle
.Cells(Rows.Count, 1).End(xlUp).EntireRow.Copy
Worksheets("Test").Cells(Worksheets("Test").Cells(Rows.Count, 1).End( _
xlUp).Row + 1, 1).PasteSpecial (xlPasteValues)
End With
AW: Sorry, so besser ....
27.01.2011 11:38:53
Rudi
Hallo,
also mindestens in Zeile3?
wsTabelle.Cells(Rows.Count, 1).End(xlUp).EntireRow.Copy
With Worksheets("Test")
.Cells(Application.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row) + 1, 1).PasteSpecial (xlPasteValues)
End With
Gruß
Rudi
AW: Letzte Zeile ändern in 3. Zeile
27.01.2011 11:55:48
Gerold
Hallo Kai
Wenns immer Zeile 3 sein soll, wie wärs damit ?

With wsTabelle
Worksheets("Test").Cells(3, 1).Insert
.Cells(Rows.Count, 1).End(xlUp).EntireRow.Copy
Worksheets("Test").Cells(3, 1).PasteSpecial (xlPasteValues)
End With
Mfg Gerold
Rückmeldung wäre nett.
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige