Hallo zusammen!

Ich habe eine Tabelle mit zwei Blätter: Produktliste und Artikel. In
eine sind alle angebotene Artikel erfasst, ca. 700. Das anderen Blatt
hat 4 Spalten: ?Artikel Nummer?, ?Beschreibung?, ?Bemerkung? und ?Preis?
und beinhaltet keine Daten. Also die Kunden rufen an und wünschen wissen
was der eine oder der andere Artikel kostet. (Angebot) Dann wird in der
?Produktliste? der Artikel Nummer eingetippt und eine SVERWEIS Funktion
holt aus den anderen Blatt die erfragte Daten. Und irgendwie
funktioniert es. Mein Problem ist aber, dass immer mehr Artikel
angefragt werden und passt alles nicht mehr auf eine DIN A4 Seite. Ich
kann auch schlecht 3 oder 4 Seiten ?reservieren?, die sind dann sinnlos
gedruckt. Mein Wunsch wäre, dass die Tabelle sich automatisch um eine
Zeile samt Formel nach unten erweitert, sobald die vorige Zeile
ausgefüllt ist. Ich musste dann keine Sorge mehr tragen ob die Tabelle
?zu groß? oder ?zu klein? ist.

Vielen Dank,
Costache Yescobar

Servus Costache!

*Costache Yescobar* schrieb am 17.11.2008 um 6:50 Uhr...
> [...] in der „Produktliste“ der Artikel Nummer eingetippt und eine
> SVERWEIS Funktion holt aus den anderen Blatt die erfragte Daten. Und
> irgendwie funktioniert es. Mein Problem ist aber, dass immer mehr
> Artikel angefragt werden und passt alles nicht mehr auf eine DIN A4
> Seite. Ich kann auch schlecht 3 oder 4 Seiten „reservieren“, die sind
> dann sinnlos gedruckt. Mein Wunsch wäre, dass die Tabelle sich
> automatisch um eine Zeile samt Formel nach unten erweitert, sobald
> die vorige Zeile ausgefüllt ist. Ich musste dann keine Sorge mehr
> tragen ob die Tabelle „zu groß“ oder „zu klein“ ist.

Wie ist denn dein genauer Aufbau deiner Tabelle: Wieviel Spalten und wo
stehen Formeln drinnen?

und tschüss,
Didi

On 17 Nov., 16:16, Dietmar Vollmeier <newsgroupnos> wrote:
> Servus Costache!
>
> *Costache Yescobar* schrieb am 17.11.2008 um 6:50 Uhr...
>> Wie ist denn dein genauer Aufbau deiner Tabelle: Wieviel Spalten und wo
> stehen Formeln drinnen?
>
> und tschüss,
> Didi
> --
> Auch stille Wasser sind naß.

Hallo Didi!

Das erste Blatt hat 4 Spalten: "Artikel Nr.", "Beschreibung",
"Bemerkung" und "Preis". In der Spalte "Artikel Nr." tippe ich immer
eine Nummer ein und die Spalte "Beschreibung" holt sich aus den 2.
Blatt (SVERWEIS Funktion) die dazu passende Beschreibung und den
Preis. Die Spalte "Bemerkung" bleibt meistens frei. Die Tabelle dient
als Angebot.

Es wäre eine große Erleichterung für mich, die Artikel Nummer
einzutippen, die Eingabe mit "Enter" zu bestätigen und in die nächste
Zeile die nächste Nummer weiter einzutippen und die Tabelle wurde sich
automatisch mit eine Zeile nach unten erweitern.

Viele Grüße,
Costache

*ycostache* schrieb am 18.11.2008 um 9:03 Uhr...
> On 17 Nov., 16:16, Dietmar Vollmeier <newsgroupnos> wrote:
>> *Costache Yescobar* schrieb am 17.11.2008 um 6:50 Uhr...

>>> [Formeln automatisch nach unten erweitern]

>> Wie ist denn dein genauer Aufbau deiner Tabelle: Wieviel Spalten und
>> wo stehen Formeln drinnen?

> Das erste Blatt hat 4 Spalten: "Artikel Nr.", "Beschreibung",
> "Bemerkung" und "Preis". In der Spalte "Artikel Nr." tippe ich immer
> eine Nummer ein und die Spalte "Beschreibung" holt sich aus den 2.
> Blatt (SVERWEIS Funktion) die dazu passende Beschreibung und den
> Preis. Die Spalte "Bemerkung" bleibt meistens frei. Die Tabelle dient
> als Angebot.

> Es wäre eine große Erleichterung für mich, die Artikel Nummer
> einzutippen, die Eingabe mit "Enter" zu bestätigen und in die nächste
> Zeile die nächste Nummer weiter einzutippen und die Tabelle wurde sich
> automatisch mit eine Zeile nach unten erweitern.

Mit folgendem Makro werden die Formeln aus der Zeile oberhalb in die
aktuelle Zeile reinkopiert. Damit sollte es dann für dich wie gewünscht
funktionieren.

8<--[ Code ]------------------------------------------------------------>8
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

Dim lRow As Long
lRow = Range("A" & Rows.Count).End(xlUp).Row

If Target.Row <> lRow Then Exit Sub
If Target.Value = "" Then Exit Sub

Application.EnableEvents = False

Range("B" & lRow - 1 & ":D" & lRow - 1).Copy
Range("B" & lRow).PasteSpecial
Application.CutCopyMode = False

Range("A" & lRow + 1).Select

Application.EnableEvents = True
End Sub
8<---------------------------------------------------------------------->8

Wohin mit dem Code?

,--[ Einbinden von VBA-Code in Excel ]------------------------------------.
¦ Zum Einbinden des Makros-Codes in der Datei gehe wie folgt vor: ¦
¦ ¦
¦ 1. Öffne den Makro-Editor (VBE - Visual Basic Editor) mit der ¦
¦ Tastenkombination Alt+F11 oder gehe über den Menüpunkt ¦
¦ Extras - Makro - Visual Basic Editor ¦
¦ 2. Links oben kannst du normalerweise die VBA-Projektübersicht sehen, ¦
¦ in der alle offenen Arbeitsmappen sowie alle geladenen Add-Ins ¦
¦ angezeigt werden. ¦
¦ Selektier mit einem Doppelklick ein beliebiges Objekt, ¦
¦ beispielsweise eine Tabelle in der Arbeitsmappe, in der du den ¦
¦ Code einfügen möchtest. ¦
¦ 3. Du solltest nun das Eingabefenster für den Code sehen. Hier kannst ¦
¦ du eigenen Code programmieren oder Copy&Paste fremden Code einfügen. ¦
¦ 4. Wenn du die Datei abspeicherst, wird der eingegebene Makrocode ¦
¦ automatisch mit der Datei gespeichert, genau wie Daten in den ¦
¦ Tabellenblättern. ¦
`-------------------------------------------------------------------------´

Falls du noch weitere Fragen haben solltest, melde dich einfach.

HTH und tschüss,
Didi

Hallo Didi!

Vielen Dank für Deine Hilfe. Es funktioniert leider noch nicht ganz,
es "hackt" ein bisschen, die Richtung stimmt aber schon mal. :) Ich
tippe in der Spalte A die Artikelnummer ein, drucke die Taste Enter
und passiert nichts, erst die Cursor Taste "nach oben" bringt das
gewünscht Resultat. Leider läßt sich so die bearbeitete Zelle nicht
mehr bearbeiten. Ich weiß jetzt leider nicht, ob es meine nicht
vorhanden Kenntnisse über VBA daher poste ich die Tabelle hier:
http://uploaded.to/?id=oe4odx vielleicht schaust Du sie Dir selber an.

Viele Grüße,
Costache

*ycostache* schrieb am 19.11.2008 um 14:42 Uhr...

> Vielen Dank für Deine Hilfe.

Bitte, keine Ursache :-)

> Es funktioniert leider noch nicht ganz, es "hackt" ein bisschen, die
> Richtung stimmt aber schon mal. :)

Bei mir funktioniert _deine_ Tabelle jetzt schon.

> [...]Ich weiß jetzt leider nicht, ob es meine nicht vorhanden
> Kenntnisse über VBA daher poste ich die Tabelle hier:
> [..] vielleicht schaust Du sie Dir selber
> an.

Ein sehr guter Gedanke :-)

Wie gesagt, Code ist eingebunden und funktioniert.
Wie schaut es mit der Formatierung aus: möchtest du diese so belassen
oder soll sie ebenfalls dynamisch nach unten erweitert werden?

und tschüss,
Didi

*Dietmar "INGRID" Vollmeier* schrieb am 19.11.2008 um 15:55 Uhr...
> [...]

Erstellst du auch für jeden Tag eine neue Liste, oder wird der Inhalt
alle Tage wieder gelöscht?


und tschüss,
Didi

Das ging aber schnell... Klasse! :-)

Wenn es kein großes Aufwand ist, dann mit Formatierung ansonsten
ohne... Ich kann nämlich auf das ganze Schnick-Schnack verzichten.

Gruß,
Didi


On 19 Nov., 15:55, Dietmar Vollmeier <newsgroupnos> wrote:
[..]

Ich erstelle eigentlich mehrere Tabellen am Tag, für jeden Kunde der
anruft und mal eben wissen möchte was wäre wenn er dies und das kaufen
würde.


On 19 Nov., 15:57, Dietmar Vollmeier <newsgroupnos> wrote:
[..]

*ycostache* schrieb am 19.11.2008 um 16:43 Uhr...
> Das ging aber schnell... Klasse! :-)

Ist kein großer Aufwand, wenn man weiß wie ;-)

> Wenn es kein großes Aufwand ist, dann mit Formatierung ansonsten
> ohne... Ich kann nämlich auf das ganze Schnick-Schnack verzichten.

Formatierung hab ich noch eingebaut, wenn auch ein wenig /abgespeckt/.

Schau dir das Ergebnis mal an:
http://www.vollmeier.at/downloads/Produktliste.zip

PS. Die Formeln in B9:D9 mußt du stehen lassen, diese werden nämlich als
Ausgangsbasis für alle weiteren Formeln benötigt.

PPS. Hab den Code ein wenig kommentiert, damit du dir ein Bild davon
machen kannst, was der ungefähr macht.

und tschüss,
Didi

Hallo Didi!

Die Tabelle ist genau so wie ich sie mir vorgestellt habe! Herzlichem Dank!!

Mit bestem Gruß,
Costache


Dietmar Vollmeier schrieb:
[..]

*Costache Yescobar* schrieb am 20.11.2008 um 7:19 Uhr...
> Hallo Didi!

> Die Tabelle ist genau so wie ich sie mir vorgestellt habe! Herzlichem
> Dank!!

Bitte, keine Ursache :-)

und tschüss,
Didi