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 Profi
MOF Profi
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 User
MOF User
Standard

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

__________________

gruß
Marco
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 User
MOF User
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, 10x aufgerufen)

__________________

gruß
Marco
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, 4x 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 User
MOF User
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
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 04:26 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.