Office: Zeile Einfügen- Bereich nach unten verschieben

Hi, vielleicht kann wer helfen.

Ist etwas Kniffelig*entsetzt *entsetzt Versuche es mal genau zu beschreiben- wenn nötig schicke ich eine Beispieldatei mit.

Mein Makro funktioniert schon recht gut- NUR eine Funktion fehlt dabei noch.

In Spalte "A" befinden sich fortlaufend Zahlen. In der Reihe dahinter B:L sind Eintragungen mit Text; Zeichen; Wörter

Beim späteren Bearbeiten der Tabelle muss es möglich sein, leere Zeilen (Bereich B:L) einfügen zu können - mit Formatierung . (ist Makro Zeile Einfügen)*Smilie

Der Rest darunter soll demzufolge auch eine Zeile (im Bereich B:L) nach unten verschoben werden. das geht auch schon recht und schlecht- da langsam*eek.gif* ´

Allerdings fehlt die laufende Nummerierung - oder erfolgt erst -wenn ich mit der aktiven Zeile an der letzte ausgefüllten "A" bin*mad.gif*

Es kann vorkommen, das zwar in Spalte "A" die Laufende Nr.
steht- jedoch in der dazugehörigen Zeile bei B:L nichts eingetragen ist.

Dann soll bei meiner Schaltfläche"Zelle Einfügen"*Smilie eigentlich erst aufgefüllt werden- bis eine neue Lfd. Nummer angefügt wird.

Nun mit dem Makrorecorder wird da gar nix- da dynamisch-*entsetzt


Vielleicht sollte man beim Ausführen des Makros
erst mal abfragen, wo die letzte Ausgefüllte Zelle A ist,
dann schauen ob in der dazugehörigen Zeile bei B:L ein Wort, Zahl, Zeichen vorhanden ist

wenn ja ( Zahl in A mit Werte bei B:L) dann neue fortlaufende Zahl in A und Rest nach unten verschieben-
so das eben weiter oben eine leere B:L Spalte ist


wenn nein ( Zahl in A ohne Werte bei B:L) dann Bereich immer um eins nach unten verschieben. bis Zahl in A mit Werte vorhanden sind)

*entsetzt *entsetzt *entsetzt


Also das ist für meine VBA Kenntnisse zu kompliziert.

Vielleicht kann jemand helfen.


Danke Lilalauneandreas










Code:

:)

 

Hallo Andreas,

da haben wir offenbar unterschiedliche Auffassungen über Listen in Excel.

1. Fehlen Spaltenüberschriften.
2. Werden Daten üblicherweise am Ende der Liste angefügt, nicht irgendwo dazwischen geschrieben.
3. Zellrahmen sind überflüssig, es gibt ja das Gitternetz, das beim Drucken nur im Bereich der Liste gedruckt werden kann.

Mit den Makros habe ich mich nicht beschäftigt, weil ein Teil davon überflüssig wird, wenn du meine Hinweise beachtest.

PS: Das UserForm habe ich nicht gefunden.

 

Hallo Klaus-Dieter

Danke für den Hinweis- ok mit den Gitter gehe ich mit- brauche ich nicht- war ja aus meinem vorherigen Projekt- wo ich noch in der Ansichts Tabelle gearbeitet habe.
Bin schon auf Datentabelle und Drucktabelle übergangen.

Nun aber ist es für mich trotzdem eine wichtige Funktion- Das Einfügen einer leeren Zeile" mit der fortlaufenden Nummerierung.

Dies Funktion benötige ich, wenn die Datenreihen jählich überarbeitet werden.

Das gesamte Projekt ist lauffähig- mit Drucken- Speichern_ PDF Erstellung.

Gruß Lilalauneandreas

 

Das Problem ist die begrenzte Dateigröße beim Hochladen- musste leider einiges aus der Datei rausnehmen- war leider zu groß- nun fehlt auch noch die Userform.
Wenn die benötigt wir- liefere ich die noch.

Danke erst mal

 

hier die Userform mit dabei*entsetzt

Vielleicht gibs ja eine Lösung.

Danke erst mal

LG Lilalauneandreas

 

Hallo Andreas,

lass mich mal raten, die Zeilen willst du einfügen, weil sich in Spalte B Begriffe befinden, die so eine Art Gruppierung darstellen. Ist das so?

 

Hallo Klaus-Dieter,
Ja- in Spalte B befindet sich die Gruppierung- es ist der Raum, wo es sich das Gerät befindet. wenn dort ein oder drei Geräte hinzu kommen- muss zwangsläufig der Bereich bis L meine Zeile nach unten verschoben werden.

Die anderen Befehlsschaltflächen -Löschen von Zeilen, nach oben, nach unten geht wunderbar.

Auch in der Userform die Weiter- Schaltfläche mit grün in A wenn ich das Bearbeitet habe geht.

Jetzt fehlt eben nur noch das Einfügen einer vorerst leeren Zeile.

Möchte aber schon meine Tabelle so belassen- da es nicht nur eine ist- und vieles aufeinander abgestimmt ist.

Gruß Andreas



Es sind noch weitere Sortierschaltflächen einarbeitet.

 

Hallo Andreas,

zwar ist es mir nicht entgangen, dass du zu der Anwendergruppe "Rate mir, aber rate mir nicht ab" gehörst. Trotzdem habe ich die Seite "Bearbeiten als Kopie" mal so geändert, wie das erforderlich wäre, wenn man die Excelfunktionen ohne Einschränkung nutzen möchte.
Wenn du das mal ausprobieren möchtest, fügst du am Ende der aktuellen Liste eine neue Zeile ein. In Spalte A befinden sich Formeln, die kopierst du um eine Zelle nach unten. Dann füllst du die restlichen Spalten von links nach rechts nach Gutdünken aus. Dann achte mal drauf, was nach dem Ausfüllen der Spalte J und drücken der Enter-Taste passiert.

 

Hallo Klaus-Dieter,
Respekt!*Smilie

Danke schön- da gibt es nichts einzuwenden- So sollte eine Liste aussehen. Und das Einfügen geht auch.
Habe mir ja nun auch schon VBA Bücher gekauft- langsam komm ich auch hinter die Geheimnisse VBA.*boah

Na jetzt kann ich ja ganz toll weiter-basteln- an meiner Vorlage.*boah

Tolle Hilfe- hier im Forum. Echt Klasse.*Smilie *Smilie *Smilie

MfG Andreas