Excel - kopieren von nicht nebeneinander liegenden Zeilen

Re(15): Here is the code....

mitmiranet — Mon, 19 Mar 2018 07:25:06 GMT

Lieber lsr2,

danke für Deine Code, dieser funktioniert genau wie gedacht!

Muss mich noch für die verspätete Antwort entschuldigen, kurz nach der Grippe bin ich nun mit einer bakteriellen Lungenentzündung gelegen.

Die Spenden ans Katzenhaus Freudenau sowie den Tierschutzverein machen wir in den nächsten Wochen persönlich.

Nochmals vielen Dank und liebe Grüße!

Re(14): Here is the code....

lsr2 — Fri, 02 Mar 2018 17:55:38 GMT

Ich hoffe dir geht es wieder besser!
Heute war wegen Schnee wieder mal sowieso alles verspaetet...

Tierheim finde ich voll OK

Bitte teste mal folgenden Code:


Public Sub runMe()
    'error handler definition
    On Error GoTo error_handler
    
    'define excel objects
    Dim wbWorkbook As Excel.Workbook
    Dim shSheet As Excel.Worksheet
    
    'set excel objects to currents
    Set wbWorkbook = ActiveWorkbook
    Set shSheet = ActiveSheet
    
    'first header row to include
    Dim iFirstHeaderRow As Integer
    iFirstHeaderRow = 2
    
    'last header row to include, start with <iFirstHeaderRow> to <iLastHeaderRow>
    Dim iLastHeaderRow As Integer
    iLastHeaderRow = 3
    
    'define column range
    Dim sFirstCol As String
    sFirstCol = "A"
    Dim sLastCol As String
    sLastCol = "T"
    
    'get last filled in row number
    Dim lLastNonemptyRow As Long
    lLastNonemptyRow = shSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    
    'prep outlook objects for creating mail to send
    Dim aOutlook As Outlook.Application
    Set aOutlook = New Outlook.Application
    Dim mMailItem As Outlook.MailItem
    Set mMailItem = aOutlook.CreateItem(olMailItem)
    Call mMailItem.Display 'only works with displayed mail

    Dim objdoc As Object
    Dim objsel As Word.Selection

    Set objdoc = aOutlook.ActiveInspector.WordEditor
    Set objsel = objdoc.Windows(1).Selection
    
    'funny thing ... this doesn't work as expected - you always get also the lines in between the multiple nonconsecutive selects *grml*
    'shSheet.Range("1:" & iLastHeaderRow & "," & lLastNonemptyRow & ":" & lLastNonemptyRow).EntireRow.Select
    'shSheet.Range("1:" & iLastHeaderRow & "," & lLastNonemptyRow & ":" & lLastNonemptyRow).EntireRow.Copy
    
    'copy and paste header row(s)
    shSheet.Range(sFirstCol & iFirstHeaderRow, sLastCol & iLastHeaderRow).Copy
    Call objsel.Paste
    
    'copy and paste last row (outlook automatically joins it to one table)
    shSheet.Range(sFirstCol & lLastNonemptyRow, sLastCol & lLastNonemptyRow).Copy
    Call objsel.Paste
    
    'explicit exit before running error handler
    Exit Sub
    
error_handler:
    Call MsgBox("Error: " & Err.Description, vbOKOnly + vbCritical, "Error " & Err.Number)

End Sub

Fuer mich brauch ich nix, danke. Ich hab alles was ich gern haette - und das was mir fehlt, kann man nicht kaufen und mir nicht schenken. Ich automatisier einfach gerne repetitive Dinge.

Re(13): Here is the code....

mitmiranet — Wed, 28 Feb 2018 08:21:35 GMT

Liebe/r lsr2,

und sorry für meine späte Antwort, mich hat die Grippe flach gelegt.

Ich danke Dir sehr für Deine Mühe und Dein wirklich nettes Angebot und hoffe Du magst Tiere!

Da die beste Ehefrau von allen und meine Wenigkeit Mitglied beim Wiener Tierschutzverein sind und auch das Katzenheim Freudenau jedes Jahr mit Geld- und Futterspenden unterstützen, würde ich dies nun mehr als gerne zum Anlass nehmen beide Vereine nochmals zu bedenken!

Könntest Du mir noch verraten was ich Dir Gutes tun könnte?

Herzlichen Dank!

Re(13): Here is the code....

lsr2 — Fri, 23 Feb 2018 23:00:05 GMT

Danke fuer das gruene Stricherl

Re(12): Here is the code....

lsr2 — Fri, 23 Feb 2018 20:32:06 GMT

Sorry fuer den delay - ich schau meistens nur am WE ins Forum.

Pfff.... was fuer eine dumme Firma (SCNR).

Zwar hatte ich heute wieder nur Zeit fuer einen Kaffee, aber ich finde die Aufgabenstellung ganz lustig und hab mich dann halt in der Wohnung rumgespielt. Mein Tageshonorar ist normalerweise vierstellig, aber nachdem die Firma nicht zahlt ist das wohl eher keine Option (ich will damit weder angeben noch sonstwas; ich kriege das auch nicht fuer's VBA programmieren).

Vorschlag: 20 EUR Spende an eine wohltaetige Organisation deiner Wahl (ohne weiteres eine von dieser Liste - dann kannst du das wenigstens auch in die Arbeitnehmerveranlagung nehmen: https://service.bmf.gv.at/service/allg/spenden/_start.asp )

Das Ergebnis das mein code derzeit macht sieht wie folgt aus:
http://666kb.com/i/dr8se7uhonkvjx6ed.png

a) Spalte A-T
b) Header wird ab Zeile 2 kopiert (einstellbar mit Variable)
c) Formatierung (getestet laut screenshot mit wrap, bold, italic)

Wichtig: Email Format muss per default auf HTML eingestellt sein (wenn man eine neue Mail erstellt).

Lass mich wissen ob das fuer dich akzeptabel ist - dann paste ich den Code, damit du ihn testen kannst. Ich verlasse mich dann auf deine Ehrlichkeit was die Spende betrifft.

Re(12): Here is the code....

lsr2 — Fri, 23 Feb 2018 20:32:06 GMT

Re(12): Here is the code....

lsr2 — Fri, 23 Feb 2018 20:32:06 GMT

Sorry fuer den delay - ich schau meistens nur am WE ins Forum.

Pfff.... was fuer eine dumme Firma (SCNR).

Zwar hatte ich heute wieder nur Zeit fuer einen Kaffee, aber ich finde die Aufgabenstellung ganz lustig und hab mich dann halt in der Wohnung rumgespielt. Mein Tageshonorar ist normalerweise vierstellig, aber nachdem die Firma nicht zahlt ist das wohl eher keine Option (ich will damit weder angeben noch sonstwas; ich kriege das auch nicht fuer's VBA programmieren).

Vorschlag: 20 EUR Spende an eine wohltaetige Organisation deiner Wahl (ohne weiteres eine von dieser Liste - dann kannst du das wenigstens auch in die Arbeitnehmerveranlagung nehmen: https://service.bmf.gv.at/service/allg/spenden/_start.asp )

Das Ergebnis das mein code derzeit macht sieht wie folgt aus:
http://666kb.com/i/dr8se7uhonkvjx6ed.png

a) Spalte A-T
b) Header wird ab Zeile 2 kopiert (einstellbar mit Variable)
c) Formatierung (getestet laut screenshot mit wrap, bold, italic)
d) Gitterformatierung wird mitgenommen

Wichtig: Email Format muss per default auf HTML eingestellt sein (wenn man eine neue Mail erstellt).

Lass mich wissen ob das fuer dich akzeptabel ist - dann paste ich den Code, damit du ihn testen kannst. Ich verlasse mich dann auf deine Ehrlichkeit was die Spende betrifft.

PS: Was ich um die Burg nicht hinbekommen habe ist die 1 Pixel Differenz zwischen header und last row - da wollte ich aber ehrlicherweise auch nicht zu viel Zeit investieren

Re(12): Here is the code....

lsr2 — Fri, 23 Feb 2018 20:32:06 GMT

Sorry fuer den delay - ich schau meistens nur am WE ins Forum.

Pfff.... was fuer eine dumme Firma (SCNR).

Zwar hatte ich heute wieder nur Zeit fuer einen Kaffee, aber ich finde die Aufgabenstellung ganz lustig und hab mich dann halt in der Wohnung rumgespielt. Mein Tageshonorar ist normalerweise vierstellig, aber nachdem die Firma nicht zahlt ist das wohl eher keine Option (ich will damit weder angeben noch sonstwas; ich kriege das auch nicht fuer's VBA programmieren).

Vorschlag: 20 EUR Spende an eine wohltaetige Organisation deiner Wahl (ohne weiteres eine von dieser Liste - dann kannst du das wenigstens auch in die Arbeitnehmerveranlagung nehmen: https://service.bmf.gv.at/service/allg/spenden/_start.asp )

Das Ergebnis das mein code derzeit macht sieht wie folgt aus:
http://666kb.com/i/dr8se7uhonkvjx6ed.png

a) Spalte A-T
b) Header wird ab Zeile 2 kopiert (einstellbar mit Variable)
c) Formatierung (getestet laut screenshot mit wrap, bold, italic)
d) Gitterformatierung

Wichtig: Email Format muss per default auf HTML eingestellt sein (wenn man eine neue Mail erstellt).

Lass mich wissen ob das fuer dich akzeptabel ist - dann paste ich den Code, damit du ihn testen kannst. Ich verlasse mich dann auf deine Ehrlichkeit was die Spende betrifft.

PS: Was ich um die Burg nicht hinbekommen habe ist die 1 Pixel Differenz zwischen header und last row - da wollte ich aber ehrlicherweise auch nicht zu viel Zeit investieren

Re(12): Here is the code....

lsr2 — Fri, 23 Feb 2018 20:32:06 GMT

Re(11): Here is the code....

mitmiranet — Wed, 21 Feb 2018 06:48:07 GMT

Danke lsr2!

Da es für mich eine Arbeitserleichterung wäre, die Firma dafür nicht aufkommen würde, was wäre Deine Kostenschätzung?

Re(10): Here is the code....

lsr2 — Fri, 16 Feb 2018 15:34:27 GMT

Ich sitz zwar grad wieder am Flughafen - aber diesmal hab ich nicht genug Zeit zum Langweilen (nur fuer einen Kaffee).

Nix fuer ungut - fuer eine pfannenfertige Loesung nach Anforderung stelle ich gerne ein Angebot mit entsprechendem Stundensatz (Mindestverrechnungseinheit ein halber Tag).

Danke fuer dein Verstaendnis.

Re(9): Here is the code....

mitmiranet — Fri, 16 Feb 2018 08:17:41 GMT

Ups, anscheined war in der Zeile 1328 was unsichbares drinnen - hab jetzt bis 2000 gelöscht und nun nimmt er mir die letzte beschriebene Zeile ins Outlook.

Wie würde das wegen der Formatierung - Spaltenbreite, -höhe, wrap Inhalt, ... usw. funktionieren?

Wie kann ich die erste Zeile auslassen und auch den zu kopierenden Teil auf A:T eingrenzen?

Oder noch 'ne Möglichkeit, Blatt 1 letzte befüllte Zeile immer auf Blatt 2 in Zeile X kopieren - denn dann hätte ich meine Formatierung und brauchs dann nur mehr kopieren und ins Outlook einfügen?

Danke für Deine Hilfe!

Re(8): Here is the code....

lsr2 — Thu, 15 Feb 2018 17:50:25 GMT

Die Formatierung stand nicht im Pflichtenheft

Was steht in der Zeile 1328? Ist das die letzte gefuellte Zeile?

Re: Excel - kopieren von nicht nebeneinander liegenden Zeilen

DarkWing13 — Thu, 15 Feb 2018 13:24:37 GMT

Ohne VBA praktisch unmöglich, jedenfalls wenn "Automatismus" gefragt ist.

Schau mal hier nach, ob dich das weiterbringt...sehr ähnliches Problem.
http://www.clever-excel-forum.de/thread-6489.html

mfg

Re(4): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Thu, 15 Feb 2018 13:23:09 GMT

Darf ich fragen wie das automatisierte Kopieren bei Dir funktioniert?

Re(7): Here is the code....

mitmiranet — Thu, 15 Feb 2018 07:51:15 GMT

Hab' ich geändert - immer noch keine Formatierung, keine Borders.

Ausserdem kommt nun ein Fenster vom Microsoft Excel dort steht einfach nur 1328 und OK - erst wenn man OK drückt geht ein neues Outlook Mail auf, aber wie gesagt - ohne Formatierung.

Re(7): Here is the code....

mitmiranet — Thu, 15 Feb 2018 07:51:15 GMT

Hab' ich geändert - immer noch keine Formatierung, keine Borders und keine letzte beschriebene Zeile.

Ausserdem kommt nun ein Fenster vom Microsoft Excel dort steht einfach nur 1328 und OK - erst wenn man OK drückt geht ein neues Outlook Mail auf, aber wie gesagt - ohne Formatierung.

Re(6): Here is the code....

klausiw — Wed, 14 Feb 2018 15:24:59 GMT

ersetz beide male von

Call objsel.Paste

durch

Call objsel.PasteSpecial

und hinter die zeile

lLastNonemptyRow = shSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

füge folgendes ein:

MsgBox lLastNonemptyRow

is die nummer der MsgBox ident mit der letzten zeile? lösch ggf. mal die (hoffentlich leeren!) zellen nach deiner letzten zeile...

Re(5): Here is the code....

mitmiranet — Wed, 14 Feb 2018 14:30:54 GMT

Das zentrieren über Auswahl funktioniert aber nur in einer Zeile, nicht innerhalb zweier Spalten.

Also - Zellenverbund gelöscht - das Makro funktioniert insoweit als es mir ein neues Email mit den ersten drei Zeilen des Excel Sheets öffnet.

Nur leider sind dort die ganzen Formatierungen wech, keine Rahmen, und leider die letzte befüllte Zeile vom Excel auch nicht.

Hach, copy und paste auf die zweite Seite im Excel wird wohl oder übel meine einstweilige Lösung sein!

Re(5): Here is the code....

mitmiranet — Wed, 14 Feb 2018 14:30:54 GMT

Also - Zellenverbund gelöscht - das Makro funktioniert insoweit als es mir ein neues Email mit den ersten drei Zeilen des Excel Sheets öffnet.

Nur leider sind dort die ganzen Formatierungen wech, keine Rahmen, und leider die letzte befüllte Zeile vom Excel auch nicht.

Hach, copy und paste auf die zweite Seite im Excel wird wohl oder übel meine einstweilige Lösung sein!

Re(4): Here is the code....

klausiw — Tue, 13 Feb 2018 14:55:38 GMT

ui, du hast irgendwo im sheet verbudnene zellen, das mögen macros wenig.
(daher verwendet man i.a. stattdessen bei textformatierung "über auswahl zentrieren")

Re(3): Here is the code....

mitmiranet — Tue, 13 Feb 2018 14:49:38 GMT

... ups übersehen, das wars.

Doch nicht, nun kommt:

Error: we can't do that to a merged cell.

Re(2): Here is the code....

klausiw — Tue, 13 Feb 2018 08:48:09 GMT

hast unter "extras - verweise" im vba editor die referenz auf die outlook library (s. seinem screenshot) eh erstellt?

Re: Here is the code....

mitmiranet — Tue, 13 Feb 2018 08:23:53 GMT

Danke für Deine Mühe - bin gerade erst heute dazu gekommen Dein VBA zum testen - bekommen leider folgende Fehlehrmeldung:

Re: Here is the code....

mitmiranet — Tue, 13 Feb 2018 08:23:53 GMT

Danke für Deine Mühe - bin gerade erst heute dazu gekommen Dein VBA zum testen - bekommen leider folgende Fehlehrmeldung:

oke, upload will nicht, also hier in Deinem Code:

'prep outlook objects for creating mail to send
Dim aOutlook As Outlook.Application --- schreit VBA Compile error: User-defined type not defined

Danke Dir!

Re(3): Excel - kopieren von nicht nebeneinander liegenden Zeilen

harddein — Sat, 03 Feb 2018 07:26:57 GMT

Nein, ich lasse in einem "Schattenblatt" die relevanten Zeilen/Spalten ständig gleich richtig formatiert mitlaufen und kann dieses Konvolut dann jederzeit weiter verarbeiten.

Here is the code....

lsr2 — Fri, 02 Feb 2018 21:55:05 GMT

Because I was bored at the airport this evening, I wrote some code that should do what you need (at least as an example). Just put into Excel.

Make sure you have references to Word and Outlook:



Public Sub runMe()
    'error handler definition
    On Error GoTo error_handler
    
    'define excel objects
    Dim wbWorkbook As Excel.Workbook
    Dim shSheet As Excel.Worksheet
    
    'set excel objects to currents
    Set wbWorkbook = ActiveWorkbook
    Set shSheet = ActiveSheet
    
    'last header row to include, start with 1 to <iLastHeaderRow>
    Dim iLastHeaderRow As Integer
    iLastHeaderRow = 2
    
    'get last filled in row number
    Dim lLastNonemptyRow As Long
    lLastNonemptyRow = shSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    
    'prep outlook objects for creating mail to send
    Dim aOutlook As Outlook.Application
    Set aOutlook = New Outlook.Application
    Dim mMailItem As Outlook.MailItem
    Set mMailItem = aOutlook.CreateItem(olMailItem)
    Call mMailItem.Display 'only works with displayed mail

    Dim objdoc As Object
    Dim objsel As Word.Selection

    Set objdoc = aOutlook.ActiveInspector.WordEditor
    Set objsel = objdoc.Windows(1).Selection
    
    'funny thing ... this doesn't work as expected - you always get also the lines in between the multiple nonconsecutive selects *grml*
    'shSheet.Range("1:" & iLastHeaderRow & "," & lLastNonemptyRow & ":" & lLastNonemptyRow).EntireRow.Select
    'shSheet.Range("1:" & iLastHeaderRow & "," & lLastNonemptyRow & ":" & lLastNonemptyRow).EntireRow.Copy
    
    'copy and paste header row(s)
    shSheet.Range("1:1, " & iLastHeaderRow & ":" & iLastHeaderRow).EntireRow.Copy
    Call objsel.Paste
    'copy and paste last row (outlook automatically joins it to one table)
    shSheet.Range(lLastNonemptyRow & ":" & lLastNonemptyRow).EntireRow.Copy
    Call objsel.Paste
    
    'explicit exit before running error handler
    Exit Sub
    
error_handler:
    Call MsgBox("Error: " & Err.Description, vbOKOnly + vbCritical, "Error " & Err.Number)

End Sub

Here is the code....

lsr2 — Fri, 02 Feb 2018 21:55:05 GMT

Because I was bored at the airport this evening, I wrote some code that should do what you need (at least as an example). Just put into Excel.

Make sure you have references to Word and Outlook:



Public Sub runMe()
    'error handler definition
    On Error GoTo error_handler
    
    'define excel objects
    Dim wbWorkbook As Excel.Workbook
    Dim shSheet As Excel.Worksheet
    
    'set excel objects to currents
    Set wbWorkbook = ActiveWorkbook
    Set shSheet = ActiveSheet
    
    'last header row to include, start with 1 to <iLastHeaderRow>
    Dim iLastHeaderRow As Integer
    iLastHeaderRow = 2
    
    'get last filled in row number
    Dim lLastNonemptyRow As Long
    lLastNonemptyRow = shSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    
    'prep outlook objects for creating mail to send
    Dim aOutlook As Outlook.Application
    Set aOutlook = New Outlook.Application
    Dim mMailItem As Outlook.MailItem
    Set mMailItem = aOutlook.CreateItem(olMailItem)
    Call mMailItem.Display 'only works with displayed mail

    Dim objdoc As Object
    Dim objsel As Word.Selection

    Set objdoc = aOutlook.ActiveInspector.WordEditor
    Set objsel = objdoc.Windows(1).Selection
    
    'funny thing ... this doesn't work as expected - you always get also the lines in between the multiple nonconsecutive selects *grml*
    'shSheet.Range("1:" & iLastHeaderRow & "," & lLastNonemptyRow & ":" & lLastNonemptyRow).EntireRow.Select
    'shSheet.Range("1:" & iLastHeaderRow & "," & lLastNonemptyRow & ":" & lLastNonemptyRow).EntireRow.Copy
    
    'copy and paste header row(s)
    shSheet.Range("1:1, " & iLastHeaderRow & ":" & iLastHeaderRow).EntireRow.Copy
    Call objsel.Paste
    'copy and paste last row (outlook automatically joins it to one table)
    shSheet.Range(lLastNonemptyRow & ":" & lLastNonemptyRow).EntireRow.Copy
    Call objsel.Paste
    
    'explicit exit before running error handler
    Exit Sub
    
error_handler:
    Call MsgBox("Error: " & Err.Description, vbOKOnly + vbCritical, "Error " & Err.Number)

End Sub

(Surely not my finest code... but hey, it's VBa, so f*ck it...)

Re(3): Excel - kopieren von nicht nebeneinander liegenden Zeilen

lsr2 — Fri, 02 Feb 2018 17:15:07 GMT

Dann hast du Glueck - du kannst einfach ein Makro recorden, den Code durch jenen ersetzen der das tut was du willst - und fertig.

Wenn wer fragt, kannst du sagen du hats ihn selber geschrieben. Und nachdem VBA ja eine Interpretersprache ist, kannst du den fremden Code einfach lesen und analysieren bevor du ihn verwendest, ob er was "Boeses" tut. Siehe Bsp in https://forum.geizhals.at/t893177,7880710.html#7880710

Re(5): Excel - kopieren von nicht nebeneinander liegenden Zeilen

Maximus — Fri, 02 Feb 2018 15:39:14 GMT

Es ist möglich, aber ein wenig mehr Angaben wären gut.

Hier ein Beispiel:

in Spalte A stehen die Werte
A-0001
A-0003
A-0020
A-0053
A-0149

und in einer anderen Spalte in einem anderen Feld habe ich folgende Formel, die mir den letzten (=höchsten) Eintrag ermittelt:
="A-"&TEXT(MAX(WENN(LINKS(A1:A5;2)="A-";--WECHSELN(A1:A5;"A-";"")));"0000")

Achtung: Matrixformel, die Eingabe mit Strg-Shift-Enter abschließen, dann werden die geschwungenen Klammern am Anfang und Ende angezeigt.

Wenn du mehr Stellen hast, dann in der Formel die "0000" an Ende entsprechend erweitern.
Genauso das "A-" in der Formel durch den Wert ersetzen, den du bei dir hast.

Re(3): Excel - kopieren von nicht nebeneinander liegenden Zeilen

dudo321 — Fri, 02 Feb 2018 15:39:04 GMT

Hast gesagt zweite Spalte ist Datum? Nach Datum absteigend sortieren?

Lezter Vorschlag (manuell und nicht elegant).
Du machts eine "Template" Tabelle nur mit den Überschriften von Zeilen 2 und 3 und sonst lehr.
Wenn du die Daten kopieren sollst, kopierst du nur die Zeile 2321 (lezte Eintrag) in die Template Tabelle und dann kopierts du die Tabelle samt Überschriften in Outlook.
Die Template Tabelle speicherts du nicht, und kannst die wieder benuzen für weiteren Vorgang.

Re(4): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Fri, 02 Feb 2018 13:34:23 GMT

Spalte A ist eine fortlaufende Nummer - aber mit Buchstaben und Bindestrich davor - ohne dem funktionierst mit Deinem =max(Tabelle1!A:A).

Den Sverweis bekomm ich nicht hin.

Re(2): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Fri, 02 Feb 2018 13:32:36 GMT

Ja es geht um eine Zeile die immer wieder kopiert und versendet werden muss - die Überschrift (Zeile 2 und 3 dient zur besseren Lesbarkeit/Interpretation).

Spalte A ist eine fortlaufende Nummer - aber mit Buchstaben und Bindestrich davor.

Re(3): Excel - kopieren von nicht nebeneinander liegenden Zeilen

dudo321 — Fri, 02 Feb 2018 10:05:56 GMT

Die Daten über die erste Spalte absteigend sortieren.

Re(3): Excel - kopieren von nicht nebeneinander liegenden Zeilen

dudo321 — Fri, 02 Feb 2018 10:05:56 GMT

Die Daten über die erste Spalte absteigend sortieren

edit:
Vorher:

Nachher:

Re: Excel - kopieren von nicht nebeneinander liegenden Zeilen

dudo321 — Fri, 02 Feb 2018 09:57:34 GMT

Die Überschriften bleiben immer gleich oder ändern sich?

Ich nehme an es geht um Zeilen (horizontal) nicht Spalten (vertikal).

Habe ich richtig verstanden du musst immer die Zeilen 2 und 3 und eine letzte Zeile (nummer ändert sich) kopieren?
Und es kommen im laufe des Tages weitere neue Zeilen mit Daten dazu?

Wäre es möglich dass die neue Zeilen nicht am Ende, sondern am Anfang der Tabelle kommen? Das heiss die neuen Daten kommen immer in die Zeile 4?

Re(2): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Fri, 02 Feb 2018 08:29:47 GMT

Damit war gemeint: ein Makro selber recorden kann/darf man - ein VBA Script runter laden und installieren is DuDu

Re(2): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Fri, 02 Feb 2018 08:29:47 GMT

Damit war gemeint: ein Makro selber recorden ist kein kann/darf man - ein VBA Script runter laden und installieren is DuDu

Re(2): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Fri, 02 Feb 2018 08:28:14 GMT

Du meinst auch SVERWEIS?

Re(2): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Fri, 02 Feb 2018 08:25:41 GMT

Da kommen täglich etliche Zeilen dazu.

Re: Excel - kopieren von nicht nebeneinander liegenden Zeilen

ZombyKillah — Thu, 01 Feb 2018 17:31:13 GMT

Bei Zeilen kannst du den Filter verwenden um die anderen Zeilen alle auszublenden.

Wenn du beispielsweise mit fortlaufenden Nummern arbeitest und immer die letzten drei Zeilen haben willst, kannst du einfach eine Spalte schaffen welche Wahr/Falsch ergibt und nur die höchsten 3 Nummern zulässt ...
Also In Zeile2 - wenn Spalte A die Nummer enthält wäre dass dann: =max(A)-4<A2

Re: Excel - kopieren von nicht nebeneinander liegenden Zeilen

lsr2 — Thu, 01 Feb 2018 16:23:23 GMT

>>ohne VBA - ist in der Firma nicht erlaubt
>>Mit einem Makro wüsst ich nicht wie man das hinbekommen kann.

Contradiction in terms? Makros sind VBA.

Re: Excel - kopieren von nicht nebeneinander liegenden Zeilen

harddein — Thu, 01 Feb 2018 16:02:12 GMT

Einfach die relevanten Zeilen in ein anderes Arbeitsblatt kopieren lassen (so dass die Änderungen ständig mitübertragen werden) und dann aus dem neuen Blatt wegsenden?

Re: Excel - kopieren von nicht nebeneinander liegenden Zeilen

soul — Thu, 01 Feb 2018 15:02:50 GMT

ist die letzte spalte immer die gleiche oder kommen da immer neue spalten dazu?

Re(4): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Thu, 01 Feb 2018 15:01:13 GMT

Wunderbar - dankeschön!

Werd' ich gleich morgen versuchen!

Re(4): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Thu, 01 Feb 2018 15:01:02 GMT

Wunderbar - dankeschön!

Werd' ich gleich morgen versuchen!

Re(3): Excel - kopieren von nicht nebeneinander liegenden Zeilen

Maximus — Thu, 01 Feb 2018 14:39:22 GMT

So wie AVS schreibt ist ein zweites Blatt mit den Überschriften und einer Formel für die Inhalte der letzten Zeile die Lösung.

Den letzten Eintrag, also die höchste fortlaufende Nummer bekommst du mit =max(Tabelle1!A:A)
und dann kannst du dir für die restlichen Felder jeweils einen Sverweis einbauen, wobei das Suchfeld die vorhin ermittelte höchste Nummer ist.

Re(3): Excel - kopieren von nicht nebeneinander liegenden Zeilen

AVS_reloaded — Thu, 01 Feb 2018 14:12:38 GMT

die erste Spalte ist eine fortlaufende Nummer, zweite Spalte Datum - und so
weiter.

wenn das aufsteigend sortiert ist, dann könnte SVERWEIS deine Lösung sein.

Mach dir ein neues Blatt "Abfrage", wo deine Kopfzeilen und was du sonst noch brauchst, drauf sind.
Und dann nur Eine Zeile, wo deine Abfrage drinnen steht.
Wenn die Nummer in der 1.Spalte 1234 ist, dann nimm als Suchbegriff 9999999, weil dann findet er immer die höchste (letzte). Oder beim Datum 31.12.2050.
Alle anderen Werte kannst dann über diese Referenz abfragen.

Das ist zwar einmalig etwas Aufwand zu verformeln, aber das SOLLTE funtzn.

Re(2): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Thu, 01 Feb 2018 14:07:36 GMT

Nö - die erste Spalte ist eine fortlaufende Nummer, zweite Spalte Datum - und so weiter.

Re(2): Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Thu, 01 Feb 2018 14:05:39 GMT

Ist leider keine Option bei mehr als 2000 Einträgen.

Re: Excel - kopieren von nicht nebeneinander liegenden Zeilen

Maximus — Thu, 01 Feb 2018 13:23:03 GMT

Falls die letzte Zeile eine Spalte beinhaltet wie z.B. aktuelles Datum/Uhrzeit, dann könntest die Sortierung umdrehen und dann die Zeilen 2 bis 4 kopieren (und dann da Excel ohne zu speichern schließen.

Re: Excel - kopieren von nicht nebeneinander liegenden Zeilen

Sonic The Hedgehog — Thu, 01 Feb 2018 11:57:03 GMT

überflüssige zeilen löschen
gewünschte zeilen kopieren
in mail einfügen
excel dokument schliessen ohne zu speichern

Excel - kopieren von nicht nebeneinander liegenden Zeilen

mitmiranet — Thu, 01 Feb 2018 10:38:17 GMT

Hallo liebe Gemeinde,

ich muss mehrmals täglich aus einem Excel Blatt die letzte Zeile/Spalte kopieren und in einem neuen Outlook Mail versenden.

Gibt es eine einfache Möglichkeit (ohne VBA - ist in der Firma nicht erlaubt) diese letzte Zeile gleichzeitig mit den Überschriftszeilen (das sind Zeile 2 und 3) zu kopieren (sowie die Print Titles, Rows to repeat at top)?

Mit Ctrl und Markieren der unterschiedlichen Spalten funktionierts einmal nicht.

Mit einem Makro wüsst ich nicht wie man das hinbekommen kann.

Danke für Eure Hilfe!