Clever-Excel-Forum

Hallo zusammen,

ich möchte gerne nach der Eingabe der Daten in der UserForm6 und dem Klicken auf "Speichern", dass automatisch nur das Tabellenblatt "Auftrag AM Döbeln" als .xls gespeichert wird (und da auch nur der Bereich A1:AU38). Die anderen Tabellenblätter sollen nicht mit gespeichert werden.
Mit meinem Code werden immer alle Tabellenblätter gespeichert.

Weiterhin habe ich ein Problem mit der Auswahl von Firmen. Wenn ich in der UserForm6 den Auftragnehmer auswähle, dann besteht die Möglichkeit, dass der Auftragnehmer mehrmals mit unterschiedlichen Adressen angelegt ist. Besteht die Möglichkeit, dass in einem solchen Fall eine weitere UserForm aufpoppt und man da die Firma mit der passenden Adresse auswählen kann?

Meine Überlegungen dazu sind:

Wenn ein Auftragnehmer ausgewählt wurde, der 2 mal angelegt ist, dann soll eine UserForm geöffnet werden, in der die Verfügbaren Varianten angezeigt werden (entweder als Listenfeld oder mit Optionsfeld, Kontrollkästchen oder Kombinationsfeld). Nach der Auswahl des richtigen Auftragnehmers sollen dann die passenden Daten in der UserForm6 angezeigt werden. Wenn nur ein Auftragnehmer angelegt ist, dann soll es wie gehabt funktionieren.

Die Erstellung der UserForm ist kein Problem, nur weiß ich nicht wie ich das am besten realisieren kann. Vielleicht habt ihr eine gute Idee.

Noch ein dritter Punkt, der leider nicht in den Betreff gepasst hat. Wenn ich eine neue Firma angelegt habe, sollen automatisch alle Firmen alphabetisch geordnet werden. Wie kann ich das noch in meinen Code einbinden?

Ich hoffe ihr könnt mir helfen.

Vielen Dank für eure Mühen.

Liebe Grüße Robbie1985

PS:

Das Passwort für die Tabellenblätter lautet "Test100%" und das Passwort für den VBA-Editor "%001tseT"

Hi,

Punkt1
Speichern

Code:
Dim wb As Workbook

Dim sh As Shape

Dim myPath As String

Dim myName As String

With Sheets("Auftrag AM Döbeln")

 .Protect "Test100%", Userinterfaceonly:=True

 .Copy

 Set wb = ActiveWorkbook

 For Each sh In wb.Sheets(1).Shapes

    sh.Delete

 Next

 myPath = .Range("AX3").Value

 myName = .Range("K16") & " " & .Range("A2")

 wb.Sheets(1).Columns("AW:BA").Clear

 wb.SaveAs myPath & myName, xlExcel8

 wb.Close False

End With

Punkt 2 und 3 ggf. später ich bin jetzt unterwegs.

Hi Chris,

vielen Dank für deine Hilfe. ist genau das was ich gesucht habe :)

Liebe Grüße

Hallo zusammen,

in meiner Tabelle im Tabellenblatt „Firmen_AM_Döbeln“ werden neue Firmen eingefügt,
die ich über das Steuerelement „Neue Firma anlegen“ eingeben kann.

Im Tabellenblatt „Auftrag AM Döbeln“ wird mit dem Steuerelement „Neuen Auftrag anlegen“ eine Userform geöffnet,
in der ich die angelegten Firmen auswählen kann.

Nun kann es aber sein, dass eine Firma unterschiedlichen Adressen angelegt wurde. In der Combobox kann man die angelegten Firmen auswählen,
aber beim übertragen der Anschrift wird immer nur die von der zuerst angelegten Firma verwendet.

Im Tabellenblatt „Firmen_AM_Döbeln“ habe ich mir mal mit Formen etwas „zusammengebastelt“,
um die doppelt angelegten Firmen raus zu filtern.

In der Userform6 soll, wenn ich eine Firma auswähle welche mehrfach angelegt ist,
eine weiter Userform geöffnet werden, in der in einem Listenfeld die Firmen mit Adresse angezeigt wird.

Leider weiß ich nicht wie ich das in meinen Code einbinden kann.

Ich hoffe ihr könnt mir helfen.

Vielen Dank schonmal im Voraus.

Viele Grüße Robbie1985

Passwort für die Tabellenblätter: Test100%
Passwort für VBA: %001tseT

Hllo,
wer soll das lesen können? Meine Augen lassen mit dem Alter zwar nach, aber so?

Vielleicht kannst Du es ja lesen ... Dann übersetze es bitte.

Gruß
Marcus

Hallo zusammen,

in meiner Tabelle im Tabellenblatt „Firmen_AM_Döbeln“ werden neue Firmen eingefügt,
die ich über das Steuerelement „Neue Firma anlegen“ eingeben kann.

Im Tabellenblatt „Auftrag AM Döbeln“ wird mit dem Steuerelement „Neuen Auftrag anlegen“ eine Userform geöffnet,
in der ich die angelegten Firmen auswählen kann.

Nun kann es aber sein, dass eine Firma unterschiedlichen Adressen angelegt wurde. In der Combobox kann man die angelegten Firmen auswählen,
aber beim übertragen der Anschrift wird immer nur die von der zuerst angelegten Firma verwendet.

Im Tabellenblatt „Firmen_AM_Döbeln“ habe ich mir mal mit Formen etwas „zusammengebastelt“,
um die doppelt angelegten Firmen raus zu filtern.

In der Userform6 soll, wenn ich eine Firma auswähle welche mehrfach angelegt ist,
eine weiter Userform geöffnet werden, in der in einem Listenfeld die Firmen mit Adresse angezeigt wird.

Leider weiß ich nicht wie ich das in meinen Code einbinden kann.

Ich hoffe ihr könnt mir helfen.

Vielen Dank schonmal im Voraus.

Viele Grüße Robbie1985

Passwort für die Tabellenblätter: Test100%
Passwort für VBA: %001tseT

Hi Robbie,

beides schlecht. Wink

Zu klein: [attachment=28709]

zu groß: [attachment=28710]

Abhilfe: beim Erstellen eines Beitrags einfach schreiben und keine weitere Formatierung einfügen.

So, jetzt noch mal...

Hallo zusammen,

in meiner Tabelle im Tabellenblatt „Firmen_AM_Döbeln“ werden neue Firmen eingefügt,
die ich über das Steuerelement „Neue Firma anlegen“ eingeben kann.

Im Tabellenblatt „Auftrag AM Döbeln“ wird mit dem Steuerelement „Neuen Auftrag anlegen“ eine Userform geöffnet,
in der ich die angelegten Firmen auswählen kann.

Nun kann es aber sein, dass eine Firma unterschiedlichen Adressen angelegt wurde. In der Combobox kann man die angelegten Firmen auswählen,
aber beim übertragen der Anschrift wird immer nur die von der zuerst angelegten Firma verwendet.

Im Tabellenblatt „Firmen_AM_Döbeln“ habe ich mir mal mit Formen etwas „zusammengebastelt“,
um die doppelt angelegten Firmen raus zu filtern.

In der Userform6 soll, wenn ich eine Firma auswähle welche mehrfach angelegt ist,
eine weiter Userform geöffnet werden, in der in einem Listenfeld die Firmen mit Adresse angezeigt wird.

Leider weiß ich nicht wie ich das in meinen Code einbinden kann.

Ich hoffe ihr könnt mir helfen.

Vielen Dank schonmal im Voraus.

Viele Grüße Robbie1985

Passwort für die Tabellenblätter: Test100%
Passwort für VBA: %001tseT

Hat keiner eine Lösung für mein Problem??? Huh

Robbie1985

chris-ka

Robbie1985

Robbie1985

marose67

Robbie1985

WillWissen

Robbie1985

Robbie1985