Wir haben auf Arbeit ein Formular bei welchem das Deckblatt mit verschiedenen Lieferantenangaben gefüttert werden muss. Ebenso muss immer ein recht langer Dateiname beim abspeichern eigegeben werden, nun habe ich mir folgendes überlegt:
Könnte man die Lieferantenangaben in einem DropDown Menü hinterlegen plus eine Schaltfläche "Speichern" einfügt welche dann das Dokument am richtigen Ort und mit der richtigen Bezeichnung abspeichert?
Sorry! Aber warum muss bei einem solchen Pipi-Thema erst eine Datei hochgeladen werden? Wäre es nicht vielmehr sinnvoll, die zwei Zeilen des Codes zu posten?
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Das mit den Lieferanten habe ich jetzt anders gelöst , mit einem Dropdown Menü. Was ich aber gerne noch hätte wäre eine Schaltfläche "speichern" die ich bereits erstellt habe damit ich nicht jedes mal den ellenlangen Speichernamen eingeben muss. Allerdings bekomme ich ein "Typen unverträglich"
Code:
Private Sub CommandButton1_Click()
Const Pfad As String = "C:\Users\Documents"
ort = Range("C4") If Len(ort) = 0 Then MsgBox ("Ung?ltiger Dateiname: Die angegebene Zelle darf nicht leer sein!") Else ActiveWorkbook.SaveAs Filename:="C:\Users\Documents\" & Format(DateSerial(Year(ort), Month(ort), 1), "MM YY") & ".xls" End If
was steht denn in C4? Im C4 Steht die Artikelbezeichnung. Die Datei wird bei uns immer wie folgt gespeichert: Artikel.Nr_Index_02_Bezeichnung_Bestellnummer_Lieferant_Datum
Artikel Nr. in H4 /Index in M4 / Bezeichnung steht in C4 / Bestellnummer in C8 / Lieferant in C6 / Datum in M 6
Kann mir jemand den Code erstellen? Das wäre Mega Danke euch
Zu deinem Code: wenn du den Pfad schon als Konstante definierst, dann verwende ihn doch auch (wenn du noch ein "\" ans Ende stellst):
Wenn aber in C4 die Artikelbezeichnung steht, dann kann das mit deiner String-Zusammensetzung natürlich Probleme geben. Die Textzusammensetzung bekommst du mit "&" hin, also z.B.:
anbei ein Muster- Dokument. Könnt ihr mir den Code anpassen, so das wenn ich auf den CommandButton "speichern" drücke, dass Dokument wie folgt abgespeichert wird: Zeichnungsnummer_Index+IndexNr_Bestellnummer_Lieferant_WEDatum
das ist jetzt wieder anders , als bei der bisherigen Fragestellung. Zunächst zu deiner Tabelle: du solltest auf verbundene Zellen möglichst verzichten, insbesondere, wenn du darin Daten hast, mit denen du weiterarbeiten möchtest. Zu deinem Code: Du fragst zu Beginn ab, ob die Variable "ort" ab, die es aber nicht gibt, so dass deine Abfrage immer falsch liefert.
