Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
03.10.2025 18:57:58
Ersatz für PrettyCode.Print
03.10.2025 12:02:13
leere Zeilen nicht drucken (trotz Kontrollkästchen)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letze Zeile teilweise kopieren

Forumthread: Letze Zeile teilweise kopieren

Letze Zeile teilweise kopieren
01.08.2007 22:43:00
Born
Hallo VBAler,
ich versuche Teile der letzten Zeile zu kopieren und weiß nicht,
wie ich diesen Teil formulieren muß statt
Range("D2:AN2").Select
Selection.Copy
Die Zeile ist die letzte Zeile von Spalte B. Also muß irgendwie xlUp mit rein, aber wie?
'Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Danke für Eure Hilfe.
Born

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Letze Zeile teilweise kopieren
01.08.2007 23:51:00
Matthias
Hallo Born
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Bist Du Dir im Klaren darüber das die 1 im Code die Spalte A ist?
Schreibe mal in eine leere Mappe in A4 eine Zahl und in B10 eine Zahl, lass diesen Code laufen.
Du wirst sehen, das Du nicht Spalte B sondern Spalte A ansprichst!

Sub test()
Dim Zeilenanzahl
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox Zeilenanzahl
End Sub


Ich verstehe nicht was Range("D2:AN2") mit der letzte Reihe und mit Spalte B zu tun hat.
Zitat: ich versuche Teile der letzten Zeile zu kopieren. Welche Teile denn?
Kannst Du Deine Frage mal etwas konkretisieren, damit man evtl. gezielter helfen kann.
Userbild

Anzeige
AW: Letze Zeile teilweise kopieren
02.08.2007 00:23:02
Born
Hallo Matthias,
danke für Dein Angebot. Konkretisieren, ist eigentlich ganz einfach.
In spalte B ist der counter und dann soll die letzte Zeile von Spalte DN bis AN
kopiert werden.
Also: Wenn letzte Zeile in Spalte B ist 17, kopiere DN17 bis AN17 in Spalte
CL unter CL1 (transpose).
Range("D2:AN2").Select
Selection.Copy
Range("CL1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Danke,
Born

Anzeige
AW: na dann probier mal ;-)
02.08.2007 09:44:53
Born
Ach, sooooo macht man das! Super. Klasse.
Vielen Dank,
Born
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige