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
1548to1552
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
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

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!!!

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige