Excel - kopieren von nicht nebeneinander liegenden Zeilen

Excel - kopieren von nicht nebeneinander liegenden Zeilen (54 Beiträge, 1153 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

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!

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

Gruß Sonic The Hedgehog

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

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.

lg
Maximus

My name is Maximus Decimus Meridius, Commander of the Armies of the North,
General of the Felix Legions, loyal servant to the true emperor, Marcus Aurelius.

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

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.

mfg
AVS

kann den bitte wer rufen?

Wunderbar - dankeschön!

Werd' ich gleich morgen versuchen!

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.

lg
Maximus

My name is Maximus Decimus Meridius, Commander of the Armies of the North,
General of the Felix Legions, loyal servant to the true emperor, Marcus Aurelius.

Wunderbar - dankeschön!

Werd' ich gleich morgen versuchen!

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.

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.

lg
Maximus

My name is Maximus Decimus Meridius, Commander of the Armies of the North,
General of the Felix Legions, loyal servant to the true emperor, Marcus Aurelius.

Die Daten über die erste Spalte absteigend sortieren

edit:
Vorher:

Nachher:

02.02.2018, 11:32 Uhr - Editiert von dudo321, alte Version: hier

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

Da kommen täglich etliche Zeilen dazu.

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?

Du meinst auch SVERWEIS?

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

Darf ich fragen wie das automatisierte Kopieren bei Dir funktioniert?

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

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

02.02.2018, 09:30 Uhr - Editiert von mitmiranet, alte Version: hier

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

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:
hosted by 666kb.com


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

02.02.2018, 22:56 Uhr - Editiert von lsr2, alte Version: hier

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!

13.02.2018, 09:28 Uhr - Editiert von mitmiranet, alte Version: hier

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

... ups übersehen, das wars.

Doch nicht, nun kommt:

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

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

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!

14.02.2018, 15:33 Uhr - Editiert von mitmiranet, alte Version: hier

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

14.02.2018, 16:25 Uhr - Editiert von klausiw, alte Version: hier

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.

15.02.2018, 08:53 Uhr - Editiert von mitmiranet, alte Version: hier

Die Formatierung stand nicht im Pflichtenheft

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

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!

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.

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?

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

23.02.2018, 23:58 Uhr - Editiert von lsr2, alte Version: hier

Danke fuer das gruene Stricherl

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!

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.

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!

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

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?

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.

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.

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

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung