MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 30.10.2019, 18:33   #1
Emilmuc
Neuer Benutzer
Neuer Benutzer
Top Datenbanken - Daten von mehereren Arbeitsblättern kopieren und untereinander kombinieren

Halllo Leute, Ich steh vor ner rießigen Wand. Ich soll etwas in VBA programmieren, habe nur bedingt Ahnung und Erfahrung mit VBA gemacht. Zur aufgabe. Ich hab eine master arbeitsblatt hier sollen die Daten von 100 Arbeitsblätter untereinander reinkopiert werden. Das würde ich auch einigermaßen hinbekommmen, jedoch müssen die Daten innerhalb der einzelnen Arbeitsblätter kombiniert werden.Und davon hab ich wenig bis gar keine Ahnung. Ich hab etwas geforscht und meine Idee sind:. Zwei for schleifen inkl Array. Mir fehlt aber einfach schlicht das wissen sowas auf die Beine zu stellen. Ich kann gerne Mal eine Excel hochladen so wie ich es mir vorstelle inkl den macro Codes Mal sehe simpel runter geschrieben. Ich wäre unendlich dankbar wenn ihr mir helfen könntet. LG,emil
Emilmuc ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.10.2019, 18:43   #2
Emilmuc
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hi leute, anbei hab ich mal eine Datei hochgeladen, hoffe die macht es etwas klarer was ich erreichen will.
Angehängte Dateien
Dateityp: xlsm Kopie von macro test.xlsm (37,7 KB, 0x aufgerufen)
Emilmuc ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.10.2019, 18:52   #3
Emilmuc
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

For worksheet:to
Max_Zeilen_Systeme_previous = Range.("Zähler_Systeme_previous")
Max_Zeilen_Systeme_previous = Range.("Zähler_Systeme_succeeding")
Max_Zeilen_Systeme_previous = Range.("Zähler_Datenobjekte")

For i = xo to Max_Zeilen_Systeme_previous (das gleiche müsste dann auch für succeedig Prozesse gemacht werden?)

Brand= .cells(x1,y1+i). value
Current_Systems= .cells(x2,y2+i). value
Planned_Systems= .cells(x2,y2+i). value
Position= previous



Ich weiß, dass ist ziemlicher rotz aber das habe ich mir so aus dem was ich etwas verstanden habe zusammen gewürfelt. Wie gesagt ich bin kein profi

For i=x0 to Max_Zeilen_Systeme_Dataobjects
Datenobject= .cells(x4,y4+i). value
Datenobject= .cells(x5,y5+i). value

Rohdaten. cells (x,y). value= Brand
...
Nexti

Geändert von Emilmuc (30.10.2019 um 18:54 Uhr).
Emilmuc ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.10.2019, 19:10   #4
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo und willkommen,

in diesem Teil des Forums befassen wir uns mit traditionellem Visual Basic bis zur Version 6.0; - aber eben nicht mit Office-VBA, auch wenn das recht ähnlich ist.

Für Deine Excel-Fragen wende Dich also besser an diese Stelle.

Unterstützung bei Hausaufgaben wird aber meist nicht so gern gegeben, denn Du sollst Dir ja selbst was aneignen.

__________________


Hang loose, haklesoft
haklesoft 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 18:29 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.