Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: in erste freie zelle einer Spalte kopieren

in erste freie zelle einer Spalte kopieren
13.10.2007 12:43:00
franz
Hallo Excel Profis
kann mir vieleicht jemand weiterhelfen?
suche schon siet tagen nach einem code,
mit dem die zellen p5:q5 kopiert werden,
und weiters in die erste freie zelle der Spalten p:q eingefügt werden.
danke im vorraus
franz

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: in erste freie zelle einer Spalte kopieren
13.10.2007 12:54:00
Worti
Hallo franz,
zB. so:

Sub kopiere()
Dim lngEndeP As Long, lngEndeQ As Long
lngEndeP = Cells(Rows.Count, "P").End(xlUp).Row
lngEndeQ = Cells(Rows.Count, "Q").End(xlUp).Row
Range("P5:Q5").Copy Destination:=Range("P" & Application.Max(lngEndeP, lngEndeQ) + 1)
End Sub


Gruß Worti

Anzeige
AW: in erste freie zelle einer Spalte kopieren
13.10.2007 13:33:00
franz
Danke für die schelle Antwort!
klappt supper.
habe noch eine weitere Frage?
wie kann ich denn letzten wert wieder löschen?
nochmals danke im vorraus
franz

AW: in erste freie zelle einer Spalte kopieren
13.10.2007 13:41:00
Worti
Hallo,
so: Range("P" & Cells(Rows.Count, "P").End(xlUp).Row).Clear 'oder ClearContents
Gruß Worti

Anzeige
AW: in erste freie zelle einer Spalte kopieren
13.10.2007 14:24:07
franz
Hallo Worti
Bedanke mich nochmals recht herzlich für die prommten und präziesen Lösungen!
DANKE
franz

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige