Code umschreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Eugen
Hab dein Programm getestet.
Wollte das mit den Optionsfeldern haben damit der Benutzer sich die Ordner nicht raus suchen muss. So gehts aber auch. Ist glaub ich auch nicht so fehleranfällig hinsichtlich dem Array in dem die Ordnernamen gespeichert sind. Was ich aber auf jeden fall noch gerne geändert hätte ist
1. In Zelle B5 steht mein Dateiname (mit oder ohne .xls, jenachdem wie es der Benutzer eingibt). Könnte man sich diesen Wert in dem Textfeld als Standardwert anzeigen lassen.
2. Ich kann in das Textfeld nichts eingeben. Ist es möglich das ich dort etwas eingebe und mir dies dann als im Dialog speichern Unter als Dateiname vorgeschlagen wird.
3. Wäre es möglich mit hilfe einer InputBox oder irgendentwas anderem einen Pfad einzulesen und diesen den als Ausgangspfad im Dialog Speichern Unter angezeigt bekomme.
z.B. statt C:\Eigene Datein\ H:\Kirp\Bewertung\
somit müsste sich der Benutzer nur noch den Unterordner auswählen.
Nachmöglichkeit sollt aber kein nach oben manövrieren möglichsein. Da ein anderes Programm sich die Excel-Datein aus den Unterordern ausliest? Dies Wäre aber nicht unbedingt nötig, aber gut. Dann hat der Nutzer eben pechgehabt wenn er den Pfad ändert.
4. Wenn ich im Dialog Speichern Unter auf Abbrechen klicke, speichert er mir die Datei trotzdem. Und zwar unter dem Namen False. Kann man das noch so ändern das nichts gespeichert wird.
5. Ich möchte aber nur das aktuelle Blatt in einer neuen Mappe speichern, ist dies auch irgendwie möglich?
6. Wenn ich zweimal hintereinander im Dialogfeld Speichern Unter keinen Dateinamen angebe und auf Abbrechen Klicke existiert ja eine False.xls bereits und ich bekomme eine Felhlermeldung (von Excel nicht die MsgBox) das die Datei bereit existiert, soweit auch richtig. Klick ich dann aber auf nein steigt das Programm aus (Laufzeitfehler 1004: Methode SaveAs für das Object ist fehlgeschlagen). Könnte man dies eventuel noch ändern oder tritt dieser fehler nicht mehr auf wenn Punkt 4 korrigiert wurde?
Danke schon mal für deine bisherige Hilfe und könntest du oder jemand anderes bei meinen Folgefragen zu dieser Userform helfen. Mit Hinweisen zu den einzelnen Punkten ob und wie es Ansatzweise funktioniert, würde mir für den Anfang schon geholfen sein. Ich denke das ichs dann (vielleicht auc nochmals mit eurer Hilfe) selber hinbekomme. Für den kompletten Code wär ich auch dankbar aber so lernt man ja nichts.
Nochmals tausend Dank der Code ist für einen Nicht-VBA-Profi besser geeignet, obwohl der Code von Luc auch nicht schlecht war. Zm Schocken von meinem Chef wäre er bestens geeignet.
Tschau Jessica

Hallo hab das meiste schon davon selber hinbekommen.
Es wäre nur noch drittens offen: in das Verzeichniss wechseln, welches ich mit einer InputBox eingeben lass. Die Inputbox soll durch eine Tastenkombination angezeigt werden. Welche ist mir egal, da nur ich diese wissen müsste. (Inputbox hab ich auch noch nicht da ich nicht genau weiß wie ich die Varible am besten deklarie).
Wenn ich bei der UserForm eine Dateinamen mit dem entsprechenden Pfad angebe, spring er ja gleich in das Verzeichnis. Dies soll nach Möglichkeit auch beibehalten werden.
Wenn es nicht geht ist auch nicht so schlimm, so wie es jetzt läuft bin ich schonmal zufrieden. Könntestes du dir gleich meine Änderungen anschauen obs so inordnnung ist, oder obs eine bessere Lösung gibt, aber nur wenn du Zeit und Lust hast.
Könntest du bitte deine Variablen daklarien, da ich das "Option Explicit" sonst bei deinem Code rausnehmen muss.
Ich poste dir mal meine Datei (als Beispiel mit der Userform von dir): https://www.herber.de/bbs/user/29973.xls
Danke für deine hilfe, hät nicht gedacht das es so einfach geht abzufragen ob eine Datei schon existiert.
Jessica
PS: es hat natürlich noch zeit bis nächste Woche. Nochmals kurze Nachricht ob du dich am wochen ende damit beschäftigs wäre nicht schlecht.
PPS: Wenn die Datei Bewertungsübersicht bereits geöffnet ist, geht er in den ErrorHandler. Abfrage ob Datei geöffnet ist wäre nicht schlecht. Muss ich mir aber noch gedanken drüber machen.

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code umschreiben

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread