Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1156to1160
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige