Spalte kopieren

Forumthread: Spalte kopieren
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalte kopieren

Spalte kopieren

Sophie

Hallo Leute.
irgendwie will Excel nie so wie ich möchte.
und zwar, wollte ich die Spalten B einfach in ein neues Tabellenblatt einfügen. Im neuen Tabellenblatt sollten die Zellen ab Zeile A9 eingefügt werden.

Sub Makro4()
lastRowC = Range("C" & Rows.Count).End(xlUp).Row
Sheets("Hera").Columns("B:B").Copy
Sheets("Hera - ZEUS").Paste Destination:=Sheets("Hera - ZEUS").Columns("A9" & lastRowC)
Application.CutCopyMode = False
End Sub

Komischerweise kopiert mir das Makro aber nicht eine einzige Zelle.
wenn ich
diese Zeile mit
Sheets("Hera- ZEUS").Paste Destination:=Sheets("Hera - ZEUS").Columns("A9" & lastRowC)
der hier:
Sheets("Hera - ZEUS").Paste Destination:=Sheets("Hera - ZEUS").Columns("A:A")
vertausche dann wird alles eingefügt, aber ab Zeile A1 und das möchte ich ja nicht.
weiß jemand eventuell weiter?
Grüße Sophie

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Spalte kopieren

Sophie
AW: Spalte kopieren

Hei.Fisch

AW: Spalte kopieren

27.05.2010 12:48:23

Sophie

Habs schon gelöst bekommen...
Für andere ein Ansatz:

Sub Kopieren()
Worksheets("Hera").Select
Selection.AutoFilter Field:=13, Criteria1:="offen"
lRow = Worksheets("Hera").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Worksheets("Hera").Range("B2:B" & lRow).Copy Destination:=Workbooks("Übungsdatei.xls"). _
Worksheets("Hera - ZEUS").Range("A9")
End Sub