Zeilen nach unten automatisch erweitern
Costache Yescobar
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
Dietmar Vollmeier
*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
--
Auch stille Wasser sind naß.
ycos...@yahoo.de
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
Dietmar Vollmeier
> On 17 Nov., 16:16, Dietmar Vollmeier <newsgroup.nos...@gmx.net> 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
--
"Tatsachen muß man kennen, bevor man sie verdrehen kann."
--> Mark Twain
ycos...@yahoo.de
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
Dietmar Vollmeier
> 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:
> http://uploaded.to/?id=oe4odx 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
--
"In Zukunft könnten Computer vielleicht aus nur noch 1.000 Vakuumröhren
bestehen und nur noch 1,5 Tonnen wiegen."
--> US-Magazin Popular Mechanics, 1949
Dietmar Vollmeier
> [...]
Erstellst du auch für jeden Tag eine neue Liste, oder wird der Inhalt
alle Tage wieder gelöscht?
und tschüss,
Didi
--
Aus technischen Gründen befindet sich die Signatur auf der Rückseite
dieses Beitrags!
ycos...@yahoo.de
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 <newsgroup.nos...@gmx.net> wrote:
> *ycosta...@yahoo.de* 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:
> >http://uploaded.to/?id=oe4odxvielleicht schaust Du sie Dir selber
ycos...@yahoo.de
anruft und mal eben wissen möchte was wäre wenn er dies und das kaufen
würde.
Dietmar Vollmeier
> 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
--
"Es gibt keinen Grund, warum irgend jemand einen Computer in seinem Haus
wollen würde."
--> Ken Olson, 1977
Präsident, Vorsitzender und Gründer von Digital Equipment Corp.
Costache Yescobar
Die Tabelle ist genau so wie ich sie mir vorgestellt habe! Herzlichem Dank!!
Mit bestem Gruß,
Costache
Dietmar Vollmeier schrieb:
Dietmar Vollmeier
> Hallo Didi!
> Die Tabelle ist genau so wie ich sie mir vorgestellt habe! Herzlichem
> Dank!!
Bitte, keine Ursache :-)
und tschüss,
Didi
--
Wer HTML postet oder gepostetes HTML quotet oder sich gepostetes oder
gequotetes HTML beschafft, um es in Verkehr zu bringen, wird geplonkt.