• Du musst dich registrieren, bevor du Beiträge verfassen kannst. Klicke auf Jetzt registrieren!, um den Registrierungsprozess zu starten. Registrierte User surfen werbefrei, können Suchen durchführen und sehen die volle Darstellung des Forums mit vielen anderen Unterforen!!!

Excel - Makro gesucht

Hupfi78

Hupfi78

Grillkönig
10+ Jahre im GSV
Hallo liebe Grillsportverrückte,

da auch ich leider nicht nur Grillen kann, sondern auch mal Arbeiten muss, und eben diese mich heute ins Excel Universum verschlagen hat, in den Bereich Makro, von dem ich leider keine Ahnung habe, brauche ich mal Eure Hilfe :-)

Einmal pro Tag wird eine Datei mit Daten aus dem SAP runtergeladen, format name.xls , in dieser Datei ist nun eine Tabelle. Der Inhalt der Tabelle startet immer
in B6 , das Ende ist Teilweise Variabel, Spalte N ist fix, die Zeilen können variieren.

Die Daten aus dieser täglich neuen Datei sollen nur in einer anderen zusammengefasst werden.

Name der Datei z.B. Zusammenfassung.xlsx

Nun möchte ich auf den Steuerbutton für das Makro klicken und es werden die Dateien aus der täglichen Datei in die Zusammenfassung kopiert ohne dabei vorhandene Daten zu überschreiben.

Ich hoffe ich habe mich irgendwie klar ausgedrückt :-) wenn nicht einfach fragen


Danke
 
Hoi,
also Makros sind ja nichts anderes als aufgezeichnete Vorgänge, die man immer und immer wieder macht und es damit eben automatisiert.

Vielleicht habe ich das Problem nicht richtig verstanden, aber ich würde das Makro löschen und eben neu aufnehmen, so wie Du es brauchst. Das sollte kein Hexenwerk sein.
 
@bodensee so funktioniert das vortlaufende hinzufügen der Daten leider nicht, jedenfalls wüsste ich nicht wie

@Thebochumer das ganze wird in eine Datenbank geladen und dann über diverse Pivot ausgewertet. Wenn ich immer alle Daten aus dem SAP laden muss, mag das am Anfang noch gehen, nach 1, 2, 3 Jahren aber eine kleine Ewigkeit dauern
 
Da die Zieldatei immer länger wird, geht das mit einem Makro glaube ich nicht. VBA ist hier glaube eher die Lösung.
 
Ich hab’s jetzt nicht probiert weil mein PC noch nicht läuft aber wenn man mit STRG und Pfeil nach unten das Makro aufzeichnet sollte man doch immer am Ende stehen. Leider ist mein VBA-Kurs schon sehr lange her und ich hatte selten Gelegenheit das Wissen anzuwenden aber unser Trainer meinte auch immer „Makro aufzeichnen und dann reinschauen was passiert und anpassen“.

Schöne Grüße,
Günther
 
vielleicht versteh' ich das auch nicht richtig, aber wie wär's denn, wenn Du immer die Daten aus der Quelldatei in ein separates Tabellenblatt Deiner
Zieldatei reinkopieren und dann mit SVERWEIS arbeiten würdest?
 
Ich wäre mit Makros aus externen Quellen, von denen ich nicht weiß, was dahintersteckt, sehr vorsichtig.
@Gfenner, das ist nicht persönlich gemeint, nur ein allgemeiner Hinweis.
 
ich danke euch allen
@Gfenner ich schau mir das morgen mal an, danke
 
Ja es ist immer grösste Vorsicht geboten und Vertrauenssache.
Habe noch bemerkt das der eigentliche Code beim Speichern ohne Makro gelöscht wurde.

Dieser in eine Userform Kopieren und Starten.

Private Sub CommandButton1_Click()
Dim wkbZiel As Workbook, wkbQuelle As Workbook
Dim lngLetzteZeile As Long
Dim intAuswahl As Integer
Set wkbZiel = ActiveWorkbook
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
For intAuswahl = 1 To .SelectedItems.Count
Set wkbQuelle = GetObject(.SelectedItems(intAuswahl))
With wkbQuelle.Sheets("Tabelle1")
lngLetzteZeile = .Cells(.Rows.Count, 8).End(xlUp).Row
wkbZiel.Sheets("Tabelle2").Range("A1:N" & lngLetzteZeile) = .Range("A1:N" & lngLetzteZeile).Value
End With
wkbQuelle.Close SaveChanges:=False
Next
Sheets("Tabelle2").Range("B6:N4000").Copy Sheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0)
End With
Sheets("Tabelle2").Range("A1:N4000").Clear
End Sub

Dieser Code habe ich auch schon für mich benutzt, ist aus einem Excel Forum und wurde angepasst.

Gruss Marcel
 
ich danke Euch allen, funktioniert
 
Zurück
Oben Unten