Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
nur Werte Kopieren beim Mappen zusammenfassen |
11.05.2020 14:54:33 |
Temme |
|
|
|
11.05.2020 15:28:10 |
Werner |
|
|
|
13.05.2020 11:58:26 |
Gast3192 |
|
|
Von:
Temme |
Datum:
11.05.2020 14:54:33 |
Views:
923 |
Rating:
|
Antwort:
|
Thema:
nur Werte Kopieren beim Mappen zusammenfassen |
Hallo zusammen,
ich habe den untenstehenden Code, er läuft auch super, nur möchte ich aus den Ursprungsdateien nur Sheet 2 kopieren, und in der neuen Datei sollen auch nur die Werte eingetragen werden.
könnt ihr mir helfen?
Vielen Dank und Grüße
Christian
Sub blaue_tabelle
Dim Zielarbeitsmappe As Object
Dim Quellenarbeistmappe As Object
Dim pfad As String
Dim datei As String
'screenflakern aus
Application.ScreenUpdating = False
'Fehlermeldungen aus
Application.DisplayAlerts = False
'wo sollen die Dateien eingefügt werden
Set Zielarbeitsmappe = ActiveWorkbook
'wo soll der Pfad eingegeben werden aus dem die Dateien kommen
pfad = InputBox("Pfad eingeben und ein \", "Pfad")
'definition welche Dateitypen eingefügt werden
datei = Dir(CStr(pfad & "*xl*"))
'so lange wiederholen bis alle Dateien aus dem Ordner din sind
Do While datei <> ""
Set quellenarbeitsmappe = Workbooks.Open(pfad & datei, False, True)
'nur das zweite Sheet kopieren
quellenarbeitsmappe.Sheets(2).Copy after:=Zielarbeitsmappe.Sheets(Zielarbeitsmappe.Sheets.Count)
'welchen Namen sollen die neuen Sheets bekommen, hier die gleichen wie im Ausgang
Zielarbeitsmappe.Sheets(Zielarbeitsmappe.Sheets.Count).Name = datei
'Ausgangsdatei nach Kopiervorgang schließen
quellenarbeitsmappe.Close
'Vorgang wiederholen
datei = Dir()
Loop
'Bild aktualisieren wieder an
Application.ScreenUpdating = True
'fehlermeldungen wieder an
Application.DisplayAlerts = True
'Nachricht wenn fertig
MsgBox ("Die zusammenführung ist beendet")
Set Zielarbeitsmappe = Nothing
Set quellenarbeitsmappe = Nothing
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
nur Werte Kopieren beim Mappen zusammenfassen |
11.05.2020 14:54:33 |
Temme |
|
|
|
11.05.2020 15:28:10 |
Werner |
|
|
|
13.05.2020 11:58:26 |
Gast3192 |
|
|