Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausschneiden und in anderes WB einfügen

Zeilen ausschneiden und in anderes WB einfügen
18.12.2002 10:26:21
stephan
hallo alle zusammen!

ich hoffe jemand kann mir bei meinem problem helfen:
ich habe ein sheet mit mehreren blättern. über einen button soll die aktuelle zeile in allen blättern ausgeschnitten werden und in eines von 2 zur auswahl stehenden sheets eingefügt werden.
mit dem makrorekorder bin ich da aufgeschmissen :-(

gruß
stephan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeilen ausschneiden und in anderes WB einfügen
18.12.2002 11:06:31
Chris
Hallo Stephan

Sagen wir du befindest dich auf Blatt A in Zeile 10, Blatt B in Zeile 5 und du drückst auf Blatt A den Button, soll dann auch in Blatt B die Zeile 10 ausgeschnitten werden oder die Zeile 5. Ausschneiden und nicht kopieren? Und schliesslich "...in eines von 2 zur auswahl stehenden sheets eingefügt werden." in welches denn?

Gruss
Chris

Re: Zeilen ausschneiden und in anderes WB einfügen
18.12.2002 11:22:58
stephan
hallo chris!

nur die aktuelle zeile soll ausgeschnitten werden, d.h.:
befindet sich der cursor auf blatt november in zeile 10 soll in den blättern Januar bis Dezember die zeile 10 ausgeschnitten werden.
analog auf blatt januar in zeile 8 in den blättern januar bis dezember die zeile 8.

über einen dialog öffne ich die ausgewählte datei, in welche die zeile eingefügt werden soll. das bekomme ich hin, aber dort dann die zeilen wieder in die blätter januar bis dezember an der aktuellen position einfügen nicht...

hoffe das ist verständlich

gruß
stephan

Anzeige
Re: Zeilen ausschneiden und in anderes WB einfügen
18.12.2002 11:56:58
Chris
Hallo Stephan

Folgendes Makro überträgt die markierte Zeile von der Datei "Quelle" in die Datei "Ziel". Der Pfad der Zieldatei musst du noch anpassen.

Gruss
Chris

Application.ScreenUpdating = False
zeilennr = ActiveCell.Row
Workbooks.Open FileName:="C:\Test\Ziel.xls"
For i = 1 To ActiveWorkbook.Worksheets.Count
Workbooks("Quelle").Sheets(i).Rows(zeilennr & ":" & zeilennr).Cut
Windows("Ziel.xls").Activate
Workbooks("Ziel.xls").Sheets(i).Rows(zeilennr & ":" & zeilennr).Insert Shift:=xlDown
Workbooks("Quelle").Sheets(i).Rows(zeilennr & ":" & zeilennr).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True

Anzeige
Danke! Probiere es gleich mal aus
18.12.2002 12:24:06
stephan
Super!
Vielen Dank für die schnelle Antwort!
Werde es gleich mal ausprobieren!

Gruß
Stephan

leider wird da in allen blättern...
18.12.2002 15:31:57
stephan
hallo chris,

es funktioniert soweit wirklich gut!
aber dazu nochmal ne kleine frage:
die zellen sollen nicht in allen, sondern nur in den blättern januar bis dezember ausgeschnitten und wieder eingefügt werden...
könntest du mir da auch nochmal helfen?
vielen dank im voraus!
gruß
stephan

Re: leider wird da in allen blättern...
18.12.2002 15:46:29
Chris
Hallo Stephan

Hmmm... Die Blätter anhand des Namens zu identifizieren ist etwas mühsam. Hast du eine fixe Reihenfolge der Blätter?

Wenn es z.B. immer die ersten 12 Blätter sind, kannst du einfach folgende Zeile abändern:

For i = 1 To ActiveWorkbook.Worksheets.Count

ersetzen durch

For i = 1 To 12

Es wird also Blatt 1 bis 12 berücksichtigt. Oder wenn du vorne dran noch ein zusätzliches Blatt hast...
For i = 2 To 13

Gruss
Chris

Anzeige
Nochmal DANKE!!!
18.12.2002 16:44:32
stephan
Hallo Chris!

Super! Nochmal Vielen Dank für Deine schnelle Hilfe!
So klappt es! Hat mir wirklich sehr geholfen.
Schönen Abend noch...

Gruß
Stephan

194 Forumthreads zu ähnlichen Themen

ganze bestimmte Zeilen ausschneiden und löschen
Urmila

Hallo alle,
ich habe folgende Werte (siehe File)
Die Datei https://www.herber.de/bbs/user/55023.xls wurde aus Datenschutzgründen gelöscht
Ich will per Knopfdruck, dass wenn in irgendeiner Zelle in Spalte D ein Datum eingetragen wird, diese ganze Zeile (hier in dem Fall Zeile 5:5) a...
29.08.2008 15:11:45
Thread-ID: 1005853
4 Beiträge
Anzeige
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Anzeige
Makro Zellen ausschneiden und einfügen
amintire

Hallo liebe Excel Freunde,
habe eine komplexe Aufgabe, evtl. habt ihr Profis eine einfachere Lösung.
https://www.herber.de/bbs/user/73286.xls
In der Beispielmappe sind in den Zellen E3:F22 Inhalte.
Die Inhalte sollen von E3:F3 ausgeschnitten werden und in der Zelle A3:B3 eingef...
27.01.2011 16:34:57
Thread-ID: 1197685
7 Beiträge
Viele Zeilen ausschneiden und hinterher einfügen
Dino

Hi Leute,ich möchte mit rechte Maustaste (oder anders) vielen Zeilen ausschneiden und hinterher sie in biliebige Zeile untereinander einfügen.z.B.ich schneide Zeile 20, 23, 24, 28, 30, 33 aus und füge sie vor Zeile 10 ein.
Die Ausgeschnittenen Zeilen stehen dann untereinander.Vielen Dank im...
21.05.2002 20:04:08
Thread-ID: 122530
3 Beiträge
leere zeile finden und dann erst einfügen
Hoppe

Hallo,
ich bin neu hier und hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle1 und eine Tabelle2,
dort sollen nun sachen kopiert werden und in einer anderen eingefügt werden. Es funktioniert auch super nur leider überschreibt er mir alle alten einträge. Nun meine Frage. Bekommt man...
24.06.2011 13:55:45
Thread-ID: 1219530
2 Beiträge
letzte gefüllte Zeile suchen und danach einfügen
Sandra

Hallo zusammen,
tja ... ich schon wieder. Ohne Eure Hilfe bekomm ich das nicht hin.
Ich habe ein Makro was auf ein Projekt zugeschnitten ist. Das läuft auch ganz prima. Eigentlich läuft es sogar so gut, dass ich es jetzt standardisieren muss. Und was das angeht wird es in meinen Augen...
12.07.2011 14:40:13
Thread-ID: 1221853
6 Beiträge
Zeilen individuelle Kopieren und einfügen
Martin

Hallo zusammen,
ich habe folgende - eigentlich recht einfaches - Problem, das ich aber nicht lösen kann.
Ich habe eine Excel-Tabelle die wie folgt aussieht:
aaa 5
bbb 6
ccc 2
Die letzte zeile zeigt an, wie oft die Zeile benötigt wird. Ausgegeben werden soll nach...
22.10.2011 12:08:19
Thread-ID: 1234979
8 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
20
8
2
6
6
2
1
5
7
9
2
9
3
6
3
5
3
1
3
4
1
1
1
4