Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte kopieren

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
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Spalte kopieren
27.05.2010 10: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

Anzeige
AW: Spalte kopieren
27.05.2010 12:10:04
Hei.Fisch
Hallo Sophie,
vielen Dank :-)
Das kann ich ganz oft gebrauchen.
LG Heidrun
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige