Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1004to1008
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
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Knifflig - Zeilen einfügen

Knifflig - Zeilen einfügen
29.08.2008 07:29:19
Frederic
Guten Morgen liebes Forum,
ich hab da ein kleines kniffeliges Problem, hoffe, ihr könnt mir evtl. weiterhelfen:
Ich exportiere Daten per Makro in eine neue leere Mappe (Mappe1.xls).
Vorab: Die Spaltenzuordnung ist immer identisch!
Jetzt möchte ich statt manuell wie bisher, die Range der Zeilen (manchmal sind es 3, manchmal 14) markieren und in eine Datei (diese heisst immer: "Zahlungen.xls") hinten mit dranhängen - sprich immer in die erste Leerzeile nach den anderen Datensätzen.
So soll sich die Datei automatisch füllen und das manuelle "Paste & Copy" verdrängen.
Hab im Archiv auch schon gesucht, aber nicht wirklich fündig geworden...
Tausend Dank vorab für Eure Hilfen.
Einen schönen letzten Wochentag Euch allen.
Frederic

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Knifflig - Zeilen einfügen
29.08.2008 08:20:50
Mac4
Moin Frederic,
wennbeide Dateien geöffnet sind und tatsächlich immer so heissen, sollte folgendes gehen (nicht getestet - Bereiche entsprechend anpassen):

Sub Einfüg()
Dim Quelle As Workbook, Ziel As Workbook, Bereich As Range
Set Quelle = Workbooks("Mappe1.xls").Sheets("Tabelle1")
Set Ziel = Workbooks("Zahlungen.xls").Sheets("Tabelle1")
Set Bereich = Quelle.Range("A1:D" & Quelle.Cells.Find("*", searchdirection:=xlPrevious).Row)
Bereich.Copy Destination:=Ziel.Range("A" & Ziel.Cells.Find("*", searchdirection:=xlPrevious). _
Row)
End Sub


Marc

Anzeige
oT altvertraute Namen ...
29.08.2008 08:36:00
neopa
Hallo Marc,
... wieder öfters zu lesen ist schön. Neben OE wechsele ich momentan noch zwischen hier und OL.
Bist Du denn kommenten Jahres in Duisburg beim Treffen mal dabei?
Schönes WE
Gruß Werner
.. , - ...
AW: oT altvertraute Namen ...
29.08.2008 08:54:00
Mac4
HI Werner,
ab und an bin ich mal hier. Aber ich muss zugeben, dass es mir seit dem Spotlightaus nicht mehr so richtig Spass macht. Das liegt sicherlich nicht an den Usern hier, vielmehr schiebe ich das auf meine unflexibele Person - ich hatte mich so an Spotlight gewöhnt - aber vielleicht wird es ja noch.
Gruß
Marc
AW: Knifflig - Zeilen einfügen
29.08.2008 08:41:00
Frederic
Hi Marc,
danke vorab für deine Hilfe...hier kommt aber immer bei "Quelle": Typen unverträglich...
Habe auch nochmal n bissl programmiert, habe auch soweit etwas geschafft, aber WIE muss ich den Code noch anpassen, damit er mit nicht die Zeile von A2:IV2 nimmt (also NICHT die komplette Row) sondern wirklich nur den Bereich: A:D
Hier mal mein Code:

Sub Test()
Workbooks.Open Filename:= _
"R:\TEAM4327\2008-2009\Mappe2.xls"
Workbooks("Mappe1.xls").Activate
With Rows("2:" & Range("A" & Rows.Count).End(xlUp).Row)
.Copy
Workbooks("Mappe2.xls").Activate
Sheets("Tabelle1").Rows( _
Sheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:= _
xlPasteValues
Sheets("Tabelle1").Rows( _
Sheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:= _
xlPasteFormats
.Delete
End With
End Sub


Danke vorab mal wieder für deine Hilfe...
Frederic

Anzeige
AW: Knifflig - Zeilen einfügen
29.08.2008 08:50:00
Mac4
Hi Frederic,
die Objectvariabelen waren falsch deklariert - versuchs mal so:

Sub Einfüg()
Dim Quelle As Object, Ziel As Object, Bereich As Range
Set Quelle = Workbooks("Mappe1.xls").Sheets("Tabelle1")
Set Ziel = Workbooks("Zahlungen.xls").Sheets("Tabelle1")
Set Bereich = Quelle.Range("A1:D" & Quelle.Cells.Find("*", searchdirection:=xlPrevious).Row)
Bereich.Copy Destination:=Ziel.Range("A" & Ziel.Cells.Find("*", searchdirection:=xlPrevious). _
Row)
End Sub


Marc

AW: Knifflig - Zeilen einfügen
29.08.2008 09:23:40
Frederic
Hi Marc,
super soweit macht er es...nur hab ich noch das Problem, dass er mir die neuen Daten nicht in die 1. Leerzeile einfügt, sondern in die "Letzte Beschriftete"...was läuft denn hier noch falsch?
Alles andere bis auf den einen Punkt läuft SUPER!!!!! Tausend Dank vorab hierfür!!!
Frederic
Anzeige
AW: Knifflig - Zeilen einfügen
29.08.2008 09:29:00
Mac4
Hi,
man sollte doch testen!
Ersetze folgende Zeile Bereich.Copy Destination:=Ziel.Range("A" & Ziel.Cells.Find("*", searchdirection:=xlPrevious). _
Row)
durch
Bereich.Copy Destination:=Ziel.Range("A" & Ziel.Cells.Find("*", searchdirection:=xlPrevious). _
Row+1)
Marc
AW: Knifflig - Zeilen einfügen
29.08.2008 09:35:03
Luschi
Hallo Marc.
ser Befehl muß so lauten:
Bereich.Copy Destination:=Ziel.Range("A" & (Ziel.Cells.Find("*", searchdirection:=xlPrevious). _
Row +1))
Der Find-Befehl ermittelt die letzte beschriebene Zeile, also muß zu diesem Ergebnis noch 1 Zeile dazu addiert werden.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Knifflig - Zeilen einfügen
29.08.2008 09:44:00
Frederic
Ihr seid spitze ,danke!
Wenn er das schon alles so super macht, kann er auch anstatt mit Formeln den Befehl mit einbauen:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Damit er wirklich nur INHALTE EINFÜGEN - WERTE macht?
Damit wär mein Wochenende schon gerettet - mehr brauch ich nicht zum Glücklich sein!!!!
Danke an Euch beide...
Frederic

299 Forumthreads zu ähnlichen Themen

Einzigartige Werte in Array identifizieren
Sebastian

Hallo Experten,
ich habe eine Frage, die vermutlich recht leicht zu lösen sein sollte:
Ich habe eine sehr lange Liste, in der in Spalte A Produktnummern stehen, viele kommen auch mehrfach vor. Ich möchte gerne daraus in einem neuen Tabellenblatt eine Liste erstellen, in der jede verschi...
10.08.2008 21:30:00
Thread-ID: 1000688
2 Beiträge
Anzeige
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:05:00
Thread-ID: 1005503
2 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:06:00
Thread-ID: 1005504
4 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Range einer Funktion übergeben
Markus

Hallo Leute,
ich möchte eigentlich etwas ganz einfaches tun, scheitere aber schon daran. Eigentlich möchte ich der Funktion >Test Public Function Test(Bereich As Range) As Boolean Dim c As Range For Each c In Bereich Debug.Print c.Value Next c Test = False End Function
Wenn ich di...
24.09.2008 21:33:00
Thread-ID: 1012175
4 Beiträge
Anzeige

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
1
2
3
4
4
3
1
3
4
3
9
7
5
1
6
3
6
13
2
3
3
6
20
1
5