Office: Suchen und Summe bilden

Hallo hary,
bei dem Sub speichern so angepasst da ich ja hier mit Makros speichern möchte geht auch, wenn ich die Datei öffenen kommt aber der beschriebene Fehler immer noch.

Sub speichern()
Dim strDateiname As String
Dim wks As Worksheet

strDateiname = Application.GetSaveAsFilename(InitialFileName:=Format(Date, "YYYY.MM.DD") & Range("B2") & "_" & Range("C4") & ".xlsm", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsm), *.xlsm")
If strDateiname = "Falsch" Then Exit Sub '--wenn abrechen: Makro beenden
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs strDateiname, FileFormat:=xlExcel8, CreateBackup:=False
Application.DisplayAlerts = True
End Sub


Mit dem Kopieren ist auch super könnte man hier den Teil:
InitialFileName:=Format(Date, "YYYY.MM.DD") & Range("B2") & "_" & Range("C4") & ".xlsx", _

Noch mit dem Anhang _Kunde einfügen?

Drucke als Pdf:
Sub drucken()
'
' drucken Makro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

Wäre es hier auch möglich den Dateinamen aus Datum B2 und c4 zu verwenden.

Danke dir schon mal.

 

Hi, bei dem PDF muss ich jetzt aber einen Namen selber eingeben.
Wenn ich es abgespeichert haben kommt zwar in der Datei der Name mit dem Datum. ich möchte aber die abgespeicherte Datei mit dem Name haben.

Sorry *Smilie

 

Das Makro Speichern habe ich jetzt hinbekommen, wäre somit erledigt.

Drucken und kopieren wäre aber super, wenn du dann noch mal nachschauen kannst.

Dankeschön.

 

Moin
Mit: _Kunde
Code:

Bin erstmal unterwegs zwar mit Excel, aber ohne Drucker. Da musst du dir anders helfen.
gruss hary

 

Hallo hary,
Dankeschön
Das mit dem Copy habe ich soweit hinbekommen funktioniert auch.
Leider sind die Makros und die Button noch in der neuen Liste diese sollten dort nicht mehr sein:
Habe das Löschen der Button mit einem Makro aufgezeichnet und versucht in das Makro Copy zu integrieren:

Sub copy()

Worksheets("Angebot").copy
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 10")).Select
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Range("P3").Select
ActiveSheet.Shapes.Range(Array("Button 10")).Select
ActiveSheet.Shapes.Range(Array("Button 4")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 10")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 5")).Select
Range("O3").Select
ActiveSheet.Shapes.Range(Array("Button 5")).Select
Range("P3").Select
ActiveSheet.Shapes.Range(Array("Button 5")).Select
ActiveSheet.Shapes.Range(Array("Button 5")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 3")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 8")).Select
Selection.Delete


Worksheets("Angebot").Protect "Passwort"



strDateiname = Application.GetSaveAsFilename(InitialFileName:=Format(Date, "YYYY.MM.DD") & "_" & Range("C4") & "_" & "_" & Range("C1") & "_Kunde" & ".xlsx", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsx), *.xlsx")
If strDateiname = "Falsch" Then Exit Sub '--wenn abrechen: Makro beenden
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs strDateiname, CreateBackup:=False
Application.DisplayAlerts = True

End Sub

Leider bekomme ich beim Starten den Fehler angezeigt Element mit dem angegebenen Namen nicht gefunden. Wie bekommen ich es hin das in der Kopie kein Button und auch keine Makros mehr auftauchen?

Habe die Liste auch mal angehängt, das Makro ist hinter Kopie Kunde hinterlegt.

Danke, sorry  fürs Nerven.

 

Moin
Code:

gruss hary

 

Hallo hary,
Dankeschön, jetzt ist es genau so wie es soll 
Bin leider mit dem PDF auch nicht weitergekommen:
Sub als_PDF()
Dim strDateiname As String, VerzeichnisAuswaehlen As String
Dim objFiledialog As FileDialog
Set objFiledialog = _
Application.FileDialog(msoFileDialogFolderPicker)
With objFiledialog
.AllowMultiSelect = False
If .Show = True Then
VerzeichnisAuswaehlen = .SelectedItems(1) & ""
End If
End With
strDateiname = Format(Date, "YYYY.MM.DD") & Range("C4") & "_" & Range("C1")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
VerzeichnisAuswaehlen & strDateiname & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Wenn ich jetzt den Befehl abändere:
InitialFileName:=Format(Date, "YYYY.MM.DD") & Range("C4") & "_" & Range("C1") & "_Kunde" & ".pdf",
Und dann versuche oben einzufügen become ich immer einen Fehler angezeit. Habe es schon am mehreren Stellen veruscht.
Und zwar kommt bei := Fehler beim Kompilieren.

Dann wäre es perfekt 

 

Moin
Letzter Versuch vorm neuen Jahr.
Code:

gruss hary

 

Guten Morgen hary,

super damit habe ich alles, was ich brauche!
Noch mal vielen Danke für deine tolle Unterstützung!
Ich wünsche dir und deiner Familie besinnliche Feiertage und einen guten Start in 2020.

DANKE!
*grins *grins

 

Hallo hary,

wenn du in 2020 noch mal Lust hast mir ist da noch ein Fehler aufgefallen:


Code:

Soweit passt das alles ich hatte nur geschrieben, wenn der Wert Anbauteil dann größer 915 ist soll K6 addiert werden wenn kleiner dann K5. Leider geht das so nicht.
K6 müsste hinzuaddiert werden, wenn in Spalte C mit dem Text *Anbauteil* noch eine Text mit *Anbauteil BF*.

Zellen sehen so aus, also wen unter Anbauteil noch mal Anbauteil BF auftaucht dann K6 sonst K5.
5 FK-EU Anbauteil
5 FK-EU Anbauteil BF >12x6

Kannst du das bitte noch mal anpassen, ich bekomme es leider nicht hin.
Danke dir schon mal.

 

Moin

Beschreib mal an Hand dieser Bsple.


Tabelle1

	A	B	C	D	E	F
1	Bsp.1
2	FK-EU/DE/1400x500x500/Z43	3,00	1941
3	5 FK-EU			870
4	5 FK-EU Anbauteil			879		Hier also plus K5 o. K6 wenn Summe ueber 915 ??
5	5 FK-EU Anbauteil BF >12x6			192
6
7	Bsp.2
8	FK-EU/DE/1400x500x500/Z43	3,00	1749
9	5 FK-EU			870
10	5 FK-EU Anbauteil			879	Hier also nicht plus K5 o. K6 ??

Tools Tabelle Forum - Hajo's Excelseiten
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary

 

Guten Morgen Hary,
du bist immer super schnelle, danke dir schon mal.
Wie schon immer alles Positionen über Anbauteil werden Summiert und davon der Rabatt abgezogen! Im dem Fall wären das D3 oder D9.

Die Zellen D4 und D5 wären dann der große Motor + K6

Die Zelle D10 wäre dann der kleine Motor also + K5

Somit sehen die Berechnungen für den Fall wie folgt aus.

(D3 -Rabatt aus I2 - Rabatt aus J2 - Rabatt aus K2) + die Zelle K6
(D9 -Rabatt aus I8 - Rabatt aus J8 - Rabatt aus K8 )+ die Zelle K5

Es müsste nur der Teil geändert werden.

Code:

Kommt die Kombination aus A4 und A5 vor muss K6 addiert werden.
Kommt nur A10 muss K5 addiert werden.

Vielleicht kannst du es auch verdeutlich was passiert z.B K5 Zellenfarbe grün und K6 vielleicht gelb.

Eigentlich ganz einfach, nur nicht für mich 

 

Moin
Ungetestet. Die Msg zeigt an was genommen wird(K5 oder K6).
Msg Box wird nerven, kannst du im Code ja wieder loeschen.

Code:

gruss hary

 

Danke *Smilie das ist Mega!!!

Dir / euch noch schöne Feiertage!

 

Hallo hary,
ich habe ja auch selber an der Liste gearbeitet.
Unterwandern an den Makro letzte_zelle leider bekommen ich da einen Laufzeitfehler angezeigt.
Egal ob ich es separat oder automatisch über das Makro hohlen_Umwandeln starte.
Der Fehler liegt dann in einem Makro für die automatische Berechnung der Nettopreise.
Kannst du mal schauen ob man es wegbekommt.
Ich habe das Makro auch mal in eine separate Liste kopiert da funktioniert es.

Sorry !

Bestimmt habe ich es zu umständlich gemacht!

letztendlich möchte ich nur den Text mit Hyperlinks unter das Angebot bekommen.

Bitte beachten Sie unsere allgemeinen Liefer- und Zahlungsbedingungen: Allgemeine Lieferbedingungen

Frachtkostenpauschale, Mindermengenzuschlag sowie Rabatte, Liefer- und Zahlungsbedingungen wie vereinbart.
Einzelabrufe bis zu einem Nettowarenwert von 1.999,99 EUR führen wir gegen Berechnung einer Frachtpauschale von 7 % frei Versandadresse in Deutschland (BRD Festland), unabgeladen aus.
Einzelabrufe ab 2.000,00 EUR netto werden ebenso abgewickelt, jedoch entfällt hier die Berechnung der Frachtpauschale.
Einschl. aller nach unserem Ermessen erforderlicher Inlandsverpackung. Werden von Ihnen Abladehilfen, Hebebühne, Stadtwagen usw. gefordert, werden Ihnen die Kosten dafür getrennt in Rechnung gestellt.
Für Einzelabrufe mit einer Nettosumme bis 99,99 EUR, wird ein Mindermengenzuschlag (MMZ) von 25,00 EUR berechnet.

Lieferzeit: gemäß wöchentlich erscheinender Terminliste (auch abrufbar unter http://www.trox.de/downloads/b14ed3244ae40aa6/TROX_GmbH_Terminliste.pdf ).

Lieferkosten für fixe Lieferkosten:
Next Day 60€ von 7.00 bis 17.00 Uhr.
Next Day Zeitfenster bis 12.00 Uhr 125€.
Next Day bis 10.00 Uhr 150€.

Fix ab dem zweiten Arbeitstag nach Versandtermin.
Von 7.00 bis 17.00 Uhr 18€.
Fixes Zeitfenster von 2 Stunden zischen 10.00 und 17.00 Uhr 100€.

Wagen mit Hebebühne 150€ je Lieferung.
Stadtwagen 150€ je Lieferung.

Alle Mehrpreise beziehen sich immer auf eine Lieferung.