MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.06.2019, 20:02   #1
Bonnilein
Neuer Benutzer
Neuer Benutzer
Standard VBA - Ausgewählte Daten in andere Datei kopieren wenn Bedingung erfüllt

Hallo alle zusammen

Ich habe da wieder einmal eure Hilfe nötig. Ich selber weiß noch nicht, wie ich das Macro aufbaue. Ich habe aber auch ninur anfängerkentnisse

Ist es möglich, das ich gefilterte Daten aus verschiedenen Spalten in eine andere Arbeitsmappe kopieren kann, welche in einem anderen Ordner liegt.

Daten von = Aufmass/Baustellen/Aufmass/Aufmass Blanko.xlsm Arbeitsblatt : „LV Aufstellung“

Zielordner = Aufmass/Rechnungen/Rechnungsvorlage.xlsm Arbeitsblatt : „Rechnung“

Es sollen nur Daten kopiert werden, wenn der Wert in Spalte I5:I254 >0,00 ist.

Zum beispiel Daten ab C5 in Arbeitsblatt LV Aufstellung zu A30 in Arbeitsblatt Rechnung

bzw. B5:B254 zu "Rechnung" ab B30 , usw.

Das ganze möchte ich über ein Button aus der Arbeitsmappe LV Aufstellung steuern.

Den befehl arbeitmappe Rechnung öffnen, wenn nicht offen wollte ich auch einbauen.

Hat jemand eine Idee ?

Darüber wäre ich sehr dankbar

Gruß
Bonnilein ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.06.2019, 21:57   #2
Mase
MOF Koryphäe
MOF Koryphäe
Standard

Hi Bonnilein,

was hast Du denn an Code bisher?

__________________

gruß
Marco

Feedback erwünscht.
Wie ? -> Verwende hierzu das mittlere Symbol links.
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.06.2019, 22:09   #3
Flotter Feger
MOF Profi
MOF Profi
Standard

Hallo,

ich würde mal deine Daten sehen wollen ... wahrscheinlich reicht es mit dem Autofilter allles zu filtern und dann einfach das Filtrat zu kopieren.

__________________

VG Sabina

Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
War der Post für dich hilfreich, darf er von dir auch gerne positiv bewertet werden.
bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Flotter Feger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.06.2019, 22:17   #4
Bonnilein
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hier ist mein Vorhaben unter folgenden Link

https://www.dropbox.com/sh/k20xweboo...ko_a5r-Da?dl=0

Ich habe noch keine Idee, wie ich mit dem Makro beginnen soll

Gruß
Bonnilein ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.06.2019, 22:28   #5
Flotter Feger
MOF Profi
MOF Profi
Standard

Hallo,

ich bin raus ... die Dateien sind ja gruselig ...

__________________

VG Sabina

Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
War der Post für dich hilfreich, darf er von dir auch gerne positiv bewertet werden.
bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Flotter Feger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.06.2019, 22:31   #6
Bonnilein
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich Danke dir trotzdem

Schönen Abend noch

Gruß
Bonnilein ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.06.2019, 22:35   #7
Bonnilein
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich werde Versuchen schon mal ein Grundgerüst an Makro zu schreiben und es Versuchen teilweise zum laufen zu bekommen.

Wenn ich dann nicht weiterkomme, würde ich mich nochmal melden

Gruß

bonnilein
Bonnilein ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.06.2019, 22:54   #8
Mase
MOF Koryphäe
MOF Koryphäe
Standard

Bonnilein,

Meine Empfehlung:

Bring die Dateien zeilenweise in Ordnung, vermeide dabei Zellverbindungen... je Datensatz eine Zeile.
Die Summe aller Datensätze in einem Tabellenblatt.

Falls Du Rechnungen bzw Ausdrucke haben willst, dann von einem anderen Tabellenblatt aus die Daten ziehen.

Sonst wird es schwer das umzusetzen, sowohl für Helfer als auch für Anfänger....

Eine Helferin ist schon weggeflogen

__________________

gruß
Marco

Feedback erwünscht.
Wie ? -> Verwende hierzu das mittlere Symbol links.
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2019, 19:52   #9
Bonnilein
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Experten

Ich habe nun über den Makro Recorder ein Markro mit meinem vorhaben erstellt.
Dieses haut auch im großen und ganzen hin. Ausser noch ein paar kleine Veränderungen, die ich gerne mit ausführen wollte. Habe ich an den betreffenden Stellen im Code geschrieben.

Ich benutze MS Office 2010 unter Windows 7 64 bit

Sub Aufmass_in_Rechnung_kopieren()
'
' Aufmass_in_Rechnung_kopieren Makro
' Kopiert werden soll von Aufmass zur Rechnungvorlage.
' Die Rechnung liegt im Pfad Aufmass/Rechnungen/Rechnungsvorlage.xlsm -- Tabelle1
' Soll geöffnet werden wenn noch nicht geöffnet
'
Dim LetzeZeile As Long
LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
'
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=9, Criteria1:= _
Array("1.161,60 €", "2.304,00 €", "756,00 €"), Operator:=xlFilterValues ' Hier soll nur alles was Null ist ausgeblendet werden
ActiveSheet.Range("$A$29:$F$133").AutoFilter Field:=2 ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("A30:E133").Select
Selection.ClearContents
Windows("Aufmass.xlsm").Activate
Range("C5:C" & LetzteZeile).Select
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("A30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Aufmass.xlsm").Activate
Range("B5:B" & LetzteZeile).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("B30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Aufmass.xlsm").Activate
Range("H5:H" & LetzteZeile).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("C30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Aufmass.xlsm").Activate
Range("E5:E" & LetzteZeile).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("D30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Aufmass.xlsm").Activate
Range("F5:F" & LetzteZeile).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("E30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$29:$F$133").AutoFilter Field:=2, Criteria1:="<>"
Windows("Aufmass.xlsm").Activate
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=9

' Hier möchte ich abschliessend zur Rechnungsvorlage

End Sub


Vielleicht kann mir bei meinem Vorhaben jemand behilflich sein

Ich danke schon im Vorraus

Gruß
Bonnilein

Geändert von Bonnilein (12.06.2019 um 20:18 Uhr).
Bonnilein ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2019, 21:30   #10
Mase
MOF Koryphäe
MOF Koryphäe
Standard

Hi,

wenn die Dateien noch immer dieselbe Struktur aufweisen, wird dir der Makrorekorder nicht viel bringen.

Ist ungefähr dasselbe, wie mit einem Stuttgarter Stadplan in Frankfurt zum Bahnhof zu finden.

Vllt findet sich ja doch das ein oder andere helfende Händchen...

__________________

gruß
Marco

Feedback erwünscht.
Wie ? -> Verwende hierzu das mittlere Symbol links.
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:12 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.