Office: einzelne Werte in Rechnung automatisch ändern

Hallo!

Ich hab ein kleines Problem mit dem Rechnungen schreiben. Und zwar möchte ich das Excel von meinem Arbeitszeiten-blatt bestimmte Werte gleich in die Rechnung tut, sobald ich auf nen Button drücke.
also als Beispiel, ich habe folgendes Blatt:



Nun möchte ich die roten Zeilen in die Rechnung kopiert haben, sobald ich auf den selbst erstellten Button drücke. hier mal das Bild der Rechnung:




Wie ihr seht sollen NUR der Monat und der Netto-Betrag in die Rechnung kopiert werden.
Und auch immer nur von dem aktuellen Monat, wenn ich das wünsche.

Das größte Problem an der Sache ist, dass die Netto-Summe immer in einer anderen Zelle steht. Hier im Beispiel steht sie in Zelle P11. Im Monat danach steht sie aber in Zelle P18. Dadurch kann man nicht mal Excel sagen er soll immer diese Zelladresse kopieren.
Ich hatte da an ein Makro gedacht, aber hab nicht mal für einen Ansatz ne Idee.
wär echt super wenn einem von euch was einfallen würde.Ich weiß wirklich nicht weiter.

 

Hay!
Ich nochmal!
Sollte einer probleme mit dem verstehen haben, was ich denn nun meine, dann schreibt doch einfach rein.Ich versuch dann alle Fragen soweit wie möglich zu beantworten.

 

Hallo!

Ich verstehe nicht ganz, warum es ein Button sein soll, wenn das ganze doch auch mit zwei simplen Formeln erledigt werden kann...
Um den Monat zu übernehmen, brauchst du nur auf die Zelle zu verweisen:
=Tabelle1!A1
Und um die Summe zu erhalten, suchst du in Spalte N nach "Summe:" und lässt den Wert aus Spalte P ausgeben:
=SVERWEIS("Summe:";Tabelle1!N:P;3;0)

 

ich benutze 2007, aber selbst diese Version kann aus einem Bild keine Tabelle erzeugen.
Den Nettopreis findet man einfach. Find in Spalte N nach Summe: und dann 2 spalten daneben.

 

hay Schatzi!
Das Problem mit ner Formel ist, dass ich diese immer an den jeweiligen Monat anpassen muss.
Aber das ist ja genau das, was ich nicht machen möchten.
Ich habe für jeden Monat mindestens eine Rechnung zu schreiben, vergess aber manchmal den laufenden Monat zu ändern, weswegen ich schon viel Papier verbraucht habe.
das Gleiche gilt für die Summe. Da müsste ich die Formel auch immer wieder pro Monat anpassen.
Deswegen wollte ich einfach nen Button bei den Arbeitszeiten erstellen, wo man draufdrückt und der Rechner öffnet die Rechnung und trägt alle Werte selbst ein für den jeweiligen Monat. So brauch ich dann höchstens zwölf mal den Buton bei den Arbeitszeiten rein kopieren (für jeden Monat einen).

MFG
Adpar

 

Hallo!

Code:

Sheets("Rechnung").Range("B16") = Sheets("Liste").Range("A1")
Sheets("Rechnung").Range("F23") = Sheets("Liste").Columns(14).Find("Summe:").Offset(0, 2)

Die erste Zeile schreibt den Wert aus Liste!A1 in Rechnung!B16.
Die zweite Zeile sucht in Liste!N:N nach "Summe:" und trägt den entsprechenden Wert aus Spalte O in Rechnung!F23 ein.

Aber auch dieser Code trägt den falschen Monat ein, wenn du vergisst, ihn zu ändern...

 

Hay Schatzi!
das Datum vergess ich immer nur in der Rechnung selbst zu ändern. ;-)

Ich hab das Makro von dir mal versucht auf meine Sachen zuzuschneiden, aber er sagt mir immer
Laufzeitfehler 9
Index außerhalb des gültigen Bereichs

Ich habe KEINE Ahnung was das heißt.
Hier mal meine Konfigurationsversuche:

Sub Januar()
Sheets("C:\Dokumente und Einstellungen\ingo\Eigene Dateien\Vorlage Rechnung.xls").Range("B16") = Sheets("Januar").Range("A1")
Sheets("C:\Dokumente und Einstellungen\ingo\Eigene Dateien\Vorlage Rechnung.xls").Range("F23") = Sheets("Januar").Columns(14).Find("Summe:").Offset(0, 2)
End Sub

C:Dokumente und Eins...usw. ist der Pfad wo die Vorlage für die Rechung auf meinem Comp liegt.
Januar heisst die Tabellenseite, bei der ich es zuerst probierte.
Die Datei heißt "Arbeitszeiten 2009"
Hoffe die Angaben helfen dir mir zu helfen. :-)


MFG
adpar

 

Hallo!

Schön, dass wir mal erfahren, dass es sich um zwei DATEIEN handelt!

Code:

Private Sub CommandButton1_Click()
'Die folgende Datei wird geöffnet:
Workbooks.Open ("C:\Dokumente und Einstellungen\ingo\Eigene Dateien\Vorlage Rechnung.xls")
'In den nächsten beiden Zeilen musst du den Namen deines Rechnungsblatts eingeben (statt "Tabelle1")
ActiveWorkbook.Sheets("Tabelle1").Range("B16") = ThisWorkbook.Sheets("Januar").Range("A1")
ActiveWorkbook.Sheets("Tabelle1").Range("F23") = ThisWorkbook.Sheets("Januar").Columns(14).Find("Summe:").Offset(0, 2)
'Die Rechnung wird geschlossen und gespeichert.
ActiveWorkbook.Close SaveChanges:=True
End Sub

Allerdings begreife ich immernoch nicht, warum es nicht mit Formeln klappen sollte...

Das wird doch dann von der Formel geändert! Genauso wie vom Code!

 

Jup, kein Wunder...

Mit Sheets (ich bevorzuge Worksheets) gibt man ein Blatt an, nicht eine Datei.

Möchte man eine Datei ansprechen, benutzt man dafür Workbooks.

Ggf. komplett zusammengesetzt würde es also aussehen wie:

Code:

workbooks(dpf).worksheets(s).range(r).value = ...

Gruß, Michael

 

Hallo Michael,

vielleicht sollte man in dem Fall auch erwähnen das man in eine geschlossene Datei nichts schreiben kann. Bei einer offenen muss kein Ordner angegeben werden.

Gruß Hajo

 

Hay Schatzi!

Nochmal:
Ich möchte gern ein Button haben, den ich für jeden Monat EINMAL anpasse und dann jedes Jahr aufs neue verwenden kann.
Eine Formel muss ich doch für JEDEN Monat neu einstellen und zwar immer wenn es soweit ist, während man den Button einfach rein kopiert das Anfangsblatt ändert und gut ist.
:lol: Bin halt manchmal faul!

So, nun aber wieder zurück zum Makro:
Ich habe alles eingegeben wie du mir sagtest, allerdings sagt er mir für die zweite Spalte, also für die Summe folgendes:

Laufzeitfehler 91
Objektvariable oder with-Blockvariable nicht festgelegt

da ich mein Rechnungsblatt (Tablelle1) nicht umbenannt habe, blieb deine Formel wie sie war. Hab also nichts verändern müssen.
Ich weiß allerdings nicht was da noch fehlt.

Ich danke dir das du soviel Geduld mit mir hast!!

MFG
adpar

 

Hallo!

Ich auch nicht, denn ich bekomme keinen Fehler...

 

Hay Schatzi!
Ich hab rausgefunden warum er es bei mir nicht wollte.
Das lag daran, dass ich zwei Zellen verbunden hatte und dann "summe dort eingetragen hatte.
Nachdem ich die Verbindung gelöst hatte funktionierte es einwandfrei,danke!

Ich hätte noch eine kleine Bitte,-Frage:
Kannst du mir sagen wie der Befehl für "speichern unter" für das Makro heißt,
da ich ja nicht immer wieder eine neue Vorlage anfertigen möchte.
Einfach nur das er mir das Fenster öffnet für Speichern unter und ich kann dann dort den Namen eingeben.
Wär echt lieb/nett von dir!

MFG
adpar

 

Application.Dialogs(xlDialogSaveAs).Show "" ' speichern unter

 

Perfekt!
Dank dir Hajo_Zi!

Jetzt funktionierts tadellos!

MFG
adpar