Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon sphaze vom 11.08.2020, 15:31 Options
Copy & Paste per VBA
Hi Leute,
wenn ich nach dem hier noch ein Problem hab, meld ich mich endgültig richtig an! Aber nun zum Problem:
* = range1 und range 2 stehen für Zellen, z.B. A12 und C15
verzeichnis, MusterLeiste, verteilung stehen für Sheets.
Schon bei Zeile 2 sagt er: "Object doesn't support [...] this method:" Wie kann ich per VBA den pasten? Ich kopier ja einmal eine ganze Zeile und einmal einen Bereich. Danke!!
wenn ich nach dem hier noch ein Problem hab, meld ich mich endgültig richtig an! Aber nun zum Problem:
MusterLeiste.Rows(283).Copy
verteilung.Cells(letzteZeileVerteilung, 1).Paste
letzteZeileVerteilung = verteilung.Range("A65536").End(xlUp).Row + 1
verzeichnis.Range(range1, range2).Copy '*
verteilung.Cells(letzteZeileVerteilung, 1).Paste
* = range1 und range 2 stehen für Zellen, z.B. A12 und C15
verzeichnis, MusterLeiste, verteilung stehen für Sheets.
Schon bei Zeile 2 sagt er: "Object doesn't support [...] this method:" Wie kann ich per VBA den pasten? Ich kopier ja einmal eine ganze Zeile und einmal einen Bereich. Danke!!
Antwort 1 von Hajo_Zi vom 11.08.2020, 19:08 Options
Hallo Nick,
hat Deine Tabelle wirklich den internen Namen "verteilung" schaue mal in den VBA Editor.
Gruß Hajo
hat Deine Tabelle wirklich den internen Namen "verteilung" schaue mal in den VBA Editor.
Gruß Hajo
Antwort 2 von sphaze vom 12.08.2020, 09:31 Options
Dim verteilung As Worksheet
Set verteilung = Worksheets("Sheet3")
Ich bin mir sicher!
Antwort 3 von Hajo_Zi vom 12.08.2020, 09:44 Options
Hallo Nick,
warum wird nicht der relevante Code gepostet? Ich lehne es ab über das Internet auf fremde Rechner zu schauen.
Option Explicit
Sub Nick()
Dim verteilung As Worksheet
Dim MusterLeiste As Worksheet
Dim Verzeichnis As Worksheet
Dim letzteZeileVerteilung As Long
Dim range1 As String, range2 As String
range1 = "B3": range2 = "d25"
letzteZeileVerteilung = 10
Set verteilung = Worksheets("Tabelle1")
Set MusterLeiste = Worksheets("Tabelle2")
Set Verzeichnis = Worksheets("Tabelle3")
MusterLeiste.Rows(283).Copy
verteilung.Rows(letzteZeileVerteilung).Insert Shift:=xlDown
Set Verzeichnis = Nothing
Set MusterLeiste = Nothing
Set verteilung = Nothing
End Sub
Gruß Hajo
warum wird nicht der relevante Code gepostet? Ich lehne es ab über das Internet auf fremde Rechner zu schauen.
Option Explicit
Sub Nick()
Dim verteilung As Worksheet
Dim MusterLeiste As Worksheet
Dim Verzeichnis As Worksheet
Dim letzteZeileVerteilung As Long
Dim range1 As String, range2 As String
range1 = "B3": range2 = "d25"
letzteZeileVerteilung = 10
Set verteilung = Worksheets("Tabelle1")
Set MusterLeiste = Worksheets("Tabelle2")
Set Verzeichnis = Worksheets("Tabelle3")
MusterLeiste.Rows(283).Copy
verteilung.Rows(letzteZeileVerteilung).Insert Shift:=xlDown
Set Verzeichnis = Nothing
Set MusterLeiste = Nothing
Set verteilung = Nothing
End Sub
Gruß Hajo
Ähnliche Themen
Copy+Paste in Exel sperren
fantalight 15.01.2008 - 80 Hits - 3 Antworten
VBA - allg. Frage zu activate & select
Tomschi 27.12.2007 - 60 Hits - 3 Antworten
Excel VBA: Zellinhalt kopieren & in markierte Zellen einfügen
inspiron8100 03.02.2008 - 488 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
