in neue Arbeitsmappe kopieren

Forumthread: in neue Arbeitsmappe kopieren

25.06.2014 21:22:38

Keiler

Hallo,
ich habe ein Problem für das ich keine Lösung finde, weil ich nicht recht weiß wie ich's bei der suche formulieren soll.
und zwar....
ich habe eine Tabelle mit 13 Spalten. Darin stehen pro Zeile ein Artikel der bestellt werden muss. Da stehen so sachen wie Bestelnummer,Menge,Wer es bestellt und bei welcher Firma bestellt wird.
Jetzt muss ich sämtliche Daten in einer anderen Reihenfolge und auch nicht alle Spalten in ein bestmmtes Formular(Excel) einkaufsabteilung schreiben. Um mir die Arbeit zu erleichtern würde ich dies gerne automatisch machen da ich ja schon alles in Excel habe.
Nun muss ich für jede Firma ein separates formular ausfüllen.
Ich dacht mir das das Makro nach der Firma sucht, ein neues Formular öffnet und alle Artikel dieser Firma da hinein schreibt. Und das solange bis alle Firmen ein eigenes Formular haben.
Dann brauch ich die nur noch per Mail verschicken.
Wäre toll wenn es da eine Lösung gäbe.
Vielen Dank schon mal
Keiler

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: in neue Arbeitsmappe kopieren

26.06.2014 07:29:14

Hajo_Zi
AW: in neue Arbeitsmappe kopieren

26.06.2014 15:30:43

Keiler
AW: in neue Arbeitsmappe kopieren

27.06.2014 09:42:42

Peißl

AW: in neue Arbeitsmappe kopieren

26.06.2014 07:29:14

Hajo_Zi

Du hast Extra keine Datei verlinkt, da Du die Lösung selber an Deine Bedingungen anpassen wolltest. Ich habe diese Lösung erstellt und bin dann raus. Viel Erfolg.

Option Explicit
Sub Uebvertragen()
Dim LoLetzte As Long
Dim LoletzteD As Long
Dim LoI As Long
Dim BoOffen As Boolean
Dim WsTabelle As Worksheet
Dim WbDatei As Workbook
Application.ScreenUpdating = False
Set WsTabelle = ActiveSheet
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count)
For LoI = 2 To LoLetzte
BoOffen = False
For Each WbDatei In Workbooks
If WbDatei.Name = WsTabelle.Cells(LoI, 3) & ".xlsx" Then
BoOffen = True
Exit For
End If
Next WbDatei
If BoOffen = False Then
Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & WsTabelle.Cells(LoI, 3) &  _
".xlsx", FileFormat:= _
xlOpenXMLWorkbook
Application.DisplayAlerts = True
WsTabelle.Cells(1, 1).Copy Cells(1, 3)
WsTabelle.Cells(1, 2).Copy Cells(1, 23)
WsTabelle.Cells(1, 7).Copy Cells(1, 4)
End If
With Workbooks(WsTabelle.Cells(LoI, 3) & ".xlsx").Worksheets(1)
LoletzteD = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
WsTabelle.Cells(LoI, 1).Copy .Cells(LoletzteD, 3)
WsTabelle.Cells(LoI, 2).Copy .Cells(LoletzteD, 23)
WsTabelle.Cells(LoI, 7).Copy .Cells(LoletzteD, 4)
End With
Next LoI
Set WsTabelle = Nothing
Application.ScreenUpdating = True
End Sub

AW: in neue Arbeitsmappe kopieren

26.06.2014 15:30:43

Keiler

Hallo, und vielen Dank für die Antwort.
Habs Probiert, klappt aber nicht.
Habe zum besseren verständniss eine Beispieldatei angehängt.
https://www.herber.de/bbs/user/91269.zip
Das ist die Datei aus der ausgelesen wird.
Für jeden Lieferanten soll eine eigene Mappe angelegt werden.
Übertragen werden sollen die Spalten C, D, G, H und K
Danke
Keiler

AW: in neue Arbeitsmappe kopieren

27.06.2014 09:42:42

Peißl

Hallo
ich habe hier eine Lösung mit Sverweis!
https://www.herber.de/bbs/user/91284.zip

Beliebteste Forumthreads (12 Monate)

Forumthread: in neue Arbeitsmappe kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread