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 14.05.2019, 16:02   #1
AlexB.
Neuer Benutzer
Neuer Benutzer
Standard VBA - VBA Excel2016 Tool - bitte um Hilfe

Hallo zusammen,

bin noch sehr neu in dem Thema und habe mir bereits einiges zusammengestellt. Zum einen wäre es schön mal ein Feedback zu erhalten, ob das so Sinnvoll ist. Wenn ich es mit realen Daten füttere komme ich auf eine Bearbeitungszeit von 1:08 min für Button 1. Hier fehlt nur die Tatsache, dass er die bedingte Formatierung nicht mit in den Zeilenumbruch nimmt (rote Schrift).

Button 2 macht mir noch zu schaffen. Wenn Button 1 durchgelaufen ist, habe ich zur Zeit zwei Scripte zur Auswahl für Button 2. Das erste Script läuft nur wenn ich die Datei schließe und wieder öffne, kennt das jemand? Das zweite lief super in meiner Testdatei vorher und dann nicht mehr.
Button 2 soll noch zwei Scripte hinzu bekommen, Erklärung liegt im Sub.

Würde mich wirklich sehr freuen, wenn sich jemand der Sache annimmt und es mal durchlaufen lässt.

Vielen Dank im voraus!!

Gruß Alex
AlexB. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 16:07   #2
Der Steuerfuzzi
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

was sollen wir denn durchlaufen lassen? Hast Du vielleicht den Anhang vergessen?

__________________

Gruß
Michael
Der Steuerfuzzi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 16:07   #3
Mase
MOF Koryphäe
MOF Koryphäe
Standard

So … und wie möchte dir geholfen werden:
Fernwartung oder Mappe hochladen?

__________________

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 14.05.2019, 16:21   #4
AlexB.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Testdatei

Habe eben gesehen, dass die Testdatei nicht hochgeladen wurde (800 Kb).

Kann ich die hier auch verschicken? Bekomme sie maximal auf 400 runter, was immer noch zu viel ist (240 für zip).

Bin für Vorschläge offen.
AlexB. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 17:49   #5
aloys78
MOF Meister
MOF Meister
Standard

Hallo Alex,

Zitat:

Bin für Vorschläge offen.

Vielleicht reicht es aus, wenn Du Deine Datei verkleinert.
Reichen nicht ein paar typische Datenkonstellationen, mit denen Du die Aufgabenstellung veranschaulichst und die für einen Test eines Lösungsvorschlages ein gute Grundlage bilden.

Außerdem: Liege ich richtig, dass es sich insgesamt um 3 Aufgabenstellungen handelt. Ggf könntest Du die nacheinander hier vorstellen.

Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.05.2019, 06:26   #6
AlexB.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo zusammen,

Verkleinern und Module entfernen hat nicht den erwünschten Effekt erzielt, daher habe ich die Datei per Link freigegeben:

https://drive.google.com/file/d/10Vs...w?usp=drivesdk

Besten Dank

Alex
AlexB. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.05.2019, 06:45   #7
Mase
MOF Koryphäe
MOF Koryphäe
Standard Anlage

Moin,

die Anlage wurde über Sophos (Sandstorm) überprüft.

Dateindung wurde von .xlsb auf .xlsm geändert, sodass hochgeladen werden konnte.

Vor dem öffnen wieder auf .xlsb umbenennen, dann sollte Excel ordentlich öffnen können.
Angehängte Dateien
Dateityp: xlsm TestdateiVBATool_small (2).xlsm (136,9 KB, 11x aufgerufen)

__________________

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 16.05.2019, 08:52   #8
AlexB.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Testdatei

Hallo,

passt das denn so für die anderen? Dann würde ich den Link wieder deaktivieren.

Bin auf eure Meinung beim Testen gespannt.

Grüße

Alex
AlexB. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.05.2019, 16:06   #9
AlexB.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Testdatei

Hallo,

da es scheinbar eine Herausforderung ist mit der bedingten Formatierung (Übernahme Schriftfarbe), habe ich etwas angepasst.

Button 1, 3 und 4 funktionieren demnach zu 100%

Neue Testdatei .Xlsb als Xlsm hochgeladen. Bitte noch zurück ändern.

Würde mich über ein Feedback und Hilfe bei Button 2 freuen!

Gruß

Alex
Angehängte Dateien
Dateityp: xlsm TestdateiVBATool_small.xlsm (153,1 KB, 5x aufgerufen)
AlexB. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.05.2019, 16:25   #10
russian-dima
Neuer Benutzer
Neuer Benutzer
Standard

Lässt sich nicht öffnen die Datei.
russian-dima ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.05.2019, 17:12   #11
AlexB.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Du musst sie vorher auf xlsb ändern. Sonst wäre sie zu groß zum hochladen gewesen.
AlexB. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.05.2019, 17:51   #12
Mase
MOF Koryphäe
MOF Koryphäe
Standard

Hi Alex,

das Selektieren kostet Dich Zeit.
Hier ein Beispiel:
Code:

Sub LKW()
...
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = Gebucht
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Transportnummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Firma
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kfz
…
Da du schon on einer Schleife bist, empfiehlt sich hier folgendes:
a) Werte zuvor in ein Array
oder
b) Direkt zuweisen Tabelle1.cells(nRow, nCol).value = Tabelle2.cells(nRow, nCol).value (wobei hierum noch ein With-Rahmen)

__________________

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 21.05.2019, 10:11   #13
aloys78
MOF Meister
MOF Meister
Standard

Hallo Alex,

Zitat:

Würde mich über ein Feedback und Hilfe bei Button 2 freuen!

Solltest Du mit Button 2 den Button Aktualisieren (2) meinen, der übrigens unter CommandButton3 zu finden ist, dann beschreibe doch mal die Aufgabenstellung.

Die beteiligten Sheets sollten aufeinander abgestimmte Beispieldaten enthalten (Tabelle 1 ist zB momentan leer), so dass man die einzelnen Fälle dann auch testen könnte.


Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.05.2019, 10:20   #14
AlexB.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Aloys,

Button 2 ist aktualisieren ja und funktioniert natürlich nur wenn Button 1 bereits gelaufen ist. Die einzelnen Funktionen für Button 2 stehen in den Scripten (Modul Replenishment).

Später wird es so sein, dass immer zuerst Button 1 angestoßen wird, dann die Daten in Tabelle3 bearbeitet werden und danach Button 2 (Aktualisieren) die Bearbeitung überprüft und aktualisiert. Es funktionieren wie gesagt alle bis auf Button 2, wenn auch noch etwas langsam (Button 1).
AlexB. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.05.2019, 10:23   #15
AlexB.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Marco,

danke für den Hinweis. Ich frag mich gerade ob das auch immer funktionieren würde, da ich ja vorher nie weiß in welcher Zelle die Daten stehen werden, daher erstmal die Zuordnung über die Kategorie (LKW, Container). Die Anzahl der Kategorien variiert ja täglich.

Was denkst du?
AlexB. 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 11:14 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.