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

Forumthread: Zeiel in unterste freie Zeile kopieren

Zeiel in unterste freie Zeile kopieren
04.04.2017 06:33:21
Bruchi
Hallo,
hab hier ein kleines Makro mit Button das immer einen Fehler bringt "Objekt unterstützt Eigenschaft oder Methode nicht".
Ich möchte damit eine Zeile A8:E8 kopieren und immer in die unterste freie Zeile meiner Tabelle nebenan kopieren.
Was ist daran falsch?
Private Sub CommandButton1_Click()
Range("A8:E8").Copy
Range("I1").End(xlDown).Offset(1, 0).xlPasteValue
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeiel in unterste freie Zeile kopieren
04.04.2017 08:31:09
ChrisL
Hi
xlPasteType ist ein Parameter und keine Methode...
Beide Varianten machen das gleiche:
Sub Makro1()
With ActiveSheet
.Range("A8:E8").Copy
.Range("I1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub

Sub Makro2()
Dim letzteZeile As Long
With ActiveSheet
letzteZeile = .Cells(Rows.Count, 9).End(xlUp).Row + 1
.Range("I" & letzteZeile & ":M" & letzteZeile) = .Range("A8:E8").Value
End With
End Sub

cu
Chris
Anzeige
AW: Zeiel in unterste freie Zeile kopieren
04.04.2017 08:35:32
Bruchi
Super Vielen Dank, jetzt geht´s!!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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