PDA

Vollständige Version anzeigen : VBA Copy/Paste


Alcyone
17.04.2009, 08:21
Hallo Leute,

kann mir einer sagen warum das nicht funktioniert? er hängt sich bei "Range ("B2").Select" und bei "ActiveSheet.Paste auf..... versteh ich nicht :eek:

Range("A2:H550").Copy
Sheets ("Tabelle3")
Range("B2").Select
ActiveSheet.Paste

Danke für die Hilfe ;)

mumpel
17.04.2009, 08:46
Hallo!

Weshalb so umständlich? Select und Activate sind nicht notwendig.

Range("A2:H550").Copy Sheets("Tabelle3").Range("B2")

Gruß, René

m2r
17.04.2009, 08:47
Hallo Alcyone,

versuch es einmal so. Code konnte ich aber nicht testen. Tabellennamen müssten eventuell angepasst werden.


Worksheets("Tabelle1").Range("A2:H550").Copy
With Sheets("Tabelle2")
.Activate
.Cells("A2").Select
.Paste
End With
Application.CutCopyMode = False


Gruß m2r

Alcyone!
17.04.2009, 09:09
Danke für die Antworten :)

funktioniert beides leider nicht ^^

mumpel
17.04.2009, 09:25
Kann ich nicht nachvollziehen. Funktioniert bei mir. Hast Du vielleicht einen Blattschutz in Tabelle3? Den musst Du zuvor aufheben.

<pre style='border:none; padding:0px 24px 12px; margin-left:12px; color:#000000'>Sheets(<span style='color:#FF0000'>"Tabelle3"</span>).Unprotect <span style='color:#FF0000'>"DeinKennwort"</span> Range(<span style='color:#FF0000'>"A2:H550"</span>).Copy Sheets(<span style='color:#FF0000'>"Tabelle3"</span>).Range(<span style='color:#FF0000'>"B2"</span>) Sheets(<span style='color:#FF0000'>"Tabelle3"</span>).Protect <span style='color:#FF0000'>"DeinKennwort"</span></pre>Code eingefügt mit VBA in HTML 2.0 (http://vbahtml.origo.ethz.ch)

Alcyone
17.04.2009, 10:11
Danke jetzt klappt es, keine Ahnung warum es vorhin nicht ging :D


so next chapter :grins: ´

Sheets("Ergebnis").Columns("A:A").ColumnWidth = 88.43
Sheets("Ergebnis").Range("A1:F143").Rows.AutoFit.Columns.AutoFit

möglich das es für euch nach umständlich oder so aussieht :) ich mach das noch net so lang ^^

jinx
17.04.2009, 15:29
Moin, Alcyone,

With Sheets("Ergebnis").Range("A1:F143")
.EntireRow.AutoFit
.EntireColumn.AutoFit
End With