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

Zellen kopieren / Inhalte in Spalte einfügen

Forumthread: Zellen kopieren / Inhalte in Spalte einfügen

Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 10:47:11
Kai
Hi ihr Profis,
ich möchte aus einem Tabellenblatt einen Zellbereich und/oder einzelne Zellen kopieren. Der Inhalt der markierten Zellen (also ohne Formel und Formatierung)soll dann in einem anderem Tabellenblatt in die Spalte "C" untereinander eingefügt (am besten noch aufwärts sortiert) werden. Ist das möglich?
Anzeige
AW: Zellen kopieren / Inhalte in Spalte einfügen
CH
ich hab dir ein makro geschrieben. es bezieht sich jeweils auf die spalte a. 

Sub Makro1()
Columns("A:A").Select
Selection.Copy
Sheets("Tabelle2").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

beantwortet dies deine frage?
Anzeige
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 11:03:41
Kai
Das Makro kopiert zwar, bricht aber mit der Meldung "Anwendungs - oder objektdefinierter Fehler" ab.
Kann man es auch so umschreiben, daß man die zu kopierende Zellen mit der Maus auswählen kann?
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 11:12:08
Ralf
Hallo Kai,
vielleicht so:

Sub Kopieren()
Dim rngSource As Range, rngTarget As Range
Set rngSource = Application.InputBox _
("Kopierbereich auswählen:", Type:=8)
Worksheets("Ziel").Select ' Zieltabelle anpassen
Set rngTarget = Application.InputBox _
("Zielbereich eintragen:", Type:=8)
If rngTarget.Cells.Count > 1 Then
If rngTarget.Rows.Count <> rngSource.Rows.Count Or _
rngTarget.Columns.Count <> _
rngSource.Columns.Count Then
Beep
MsgBox "Quell- und Zielbereich " & _
"müssen die gleiche Grösse haben!"
Exit Sub
End If
End If
rngSource.Copy rngTarget
Application.CutCopyMode = False
Range("A1").Select
End Sub

Gruß
Ralf
Anzeige
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 11:19:14
Kai
Hallo Ralf,
bei Deiner Prozedur kommt leider die Meldung "Laufzeitfehler 9, Index liegt außerhalb des gültigen Bereichs"
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 11:41:32
Kai
Entschuldigung Ralf, mein Fehler. Klappt hervorrangend. Habe die Tabelle2 nicht in "Ziel" unbenannt. Vielen dank.
Gruß Kai
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 11:52:24
Kai
Hallo Ralf,
es klappt doch noch nicht so ganz richtig. Deine Prozedur funktioniert wunderbar, wenn man Zellen aus einer Spalte kopieren möchte. Wenn man aber Zellen und Zellbereiche kopieren möchte, die in verschiedenen Spalten liegen, dann bricht sie ab (z.B. möchte ich A1,B5,C8 und den Bereich D1 bis F19 kopieren und den Inhalt in die Tabelle "Ziel" in einer Spalte untereinander einfügen).
Anzeige
AW: Zellen kopieren / Inhalte in Spalte einfügen
RR
Teste mal das:

Sub Kopieren()
i=1
For each zelle in selection
Worksheets("Ziel").cells(i,1).value = zelle.value
i=i+1
next
End Sub

Gruß
RR
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 15:05:04
Kai
Hallo RR,
deine Prozedur funktioniert wunderbar. Genauso wollte ich es haben. Sogar mit verbundenen Zellen. Super.
Danke
Kai
Anzeige
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 13:11:22
Ralf
Hallo Kai,
hier mal eine Beispielmappe. Mehrfachauswahl möglich. Einfach während die Inputbox offen ist mit gedrückter "Strg-Taste" alle Zellen, die kopiert werden sollen auswählen und auf "OK" klicken. Dann geht es untereinander in Spalte A im Blatt Ziel.
https://www.herber.de/bbs/user/16890.xls
Hoffe es hilft dir.
Gruß
Ralf
Anzeige
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 13:34:59
Kai
Ich denke es funktioniert!!! Super! Ich danke Euch allen. Ich werde es heute Abend nochmal ausgiebig testen.
Danke
Kai
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 14:27:34
Kai
So, jetzt wirds haarig. Ich habe einige Zellen, die verbunden sind (vier zu einer). Da bricht die Prozedur dann ab. Kann man das auch irgendwie lösen?
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 14:35:19
Ralf
Hallo Kai,
verbundene Zellen? Absolut tödlich für die Programmierung. Dafür kann ich dir keine Lösung anbieten. Ich arbeite IMMER ohne verbundene Zellen, sobald VBA mit im Boot ist. Das ist schwierig zu handeln und mit einer hohen Fehlerquote behaftet. Wenn es irgend möglich ist vermeide das, wenn es nicht geht - sorry, dann bin ich raus.
Gruß
Ralf
Anzeige
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 14:37:54
Kai
Ok, trotzdem vielen Dank.
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 14:44:11
Ralf
Hallo Kai,
habe es eben nochmal bei meiner Beispielmappe ausprobiert und er kopiert auch verbundene Zellen. Allerdings bleibe ich bei meiner Aussage - verbundene Zellen und VBA ist absolut tödlich.
Gruß
Ralf
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 14:53:11
Ralf
Hallo Kai,
mein Fehler. Hätte besser lesen sollen. Du arbeitest mit Excel 97. Habe die Beispielmappe unter Excel 2003 erstellt und da geht es. Unter Excel 97 wird mit einem Laufzeitfehler abgebrochen.
Gruß
Ralf
Anzeige
AW: Zellen kopieren / Inhalte in Spalte einfügen
26.01.2005 15:05:52
Kai
RR lieferte eine funktionierende Lösung.
;

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
nicht die Formel mitkopieren
TomTom

Hi,
Ich habe in meinem Sheet eine Funktion, mit der will ich verschiedene Zeilen kopieren:
MeineQuelle.Rows(lngZeile).Copy Destination:=MeinZiel.Cells(lngZeile, 1)
Wenn ich nun in einer gefundenen Zeile, die kopiert wird, irgendwo eine Formel drin habe, (die sich auf irgend was bezi...
30.01.2009 11:15:07
Thread-ID: 1045327
8 Beiträge
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Formel eintragen bis letzer Wert in anderer Spalte
Jonathan

Hallo zusammen,
ich habe mal wieder eine Frage an euch.
In Spalte E wird in E4 via VBA eine Formel eingetragen. Diese soll nun nun nach unten kopiert werden. Ende sollte der letzte Wert der Spalte F sein.
Wie kann ich das am schnellsten via Makro realisieren? Oder darf ich die Forme...
17.03.2009 17:39:15
Thread-ID: 1061170
4 Beiträge
Hilfe bei Makro: Formel in Spalte einfügen
Ruben

Guten Morgen,
ich möchte mit Hilfe eines Makros Formeln in Spalten E und J (beide beginnend ab Zeile 2 und bis zum Ende der Tabelle) einfügen.
Hier das Makro, wie es gerade aussieht und mitr natürlich einen Fehler meldet :-)
Sub Formeln() Range("E2:E" & Rows.Count).Select Acti...
02.04.2009 10:25:11
Thread-ID: 1066226
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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