Thema: Daten ergänzen und löschen


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: Tabellenkalkulation

Ein schönen Sonntag zusammen,

würde gerne Eure Hilfe in Anspruch nehmen zu o.e. Thematik.

Möchte gerne für einen vorab definierten Bereich z.B. J32:M50, Daten ergänzen bzw. löschen. Dies mit Hilfe eine Userfom.

Ergänzen: Die Daten sollen in der letzten freien Zeile des Bereiches angefügt werden.

Löschen: Die Inhalte nicht die Zeile, sollen gelöscht werden und wenn sich danach noch Datensätze befinden, diese um eine Zeile nach oben verschieben.

Beispiel: Ich lösche den Datensatz in Zeile J33:M33, dann ist ja eine Lücke zwischen J32:M32 und J34:M34. Der Datensatz aus J34:M34 soll dann auf die Postion des gelöschten Datensatzes geschoben werden.


Ist so etwas möglich? Ohne Hilfe bekomme ich das nicht hin.

Vielen herzlichen Dank vorab für Eure Ratschläge.

Gruß, meikel

 Von: Meikel Datum: 10.06.2007, 14:11

alle Antworten zu dieser Frage


Antwort 1 von Beverly vom 10.06.2007, 19:10
Hi Meikel,

Ergänzen: mit dieser Codezeile kannst du die letzte belegte Zelle in Spalte J ermitteln

loLetzte = IIf(IsEmpty(Cells(Rows.Count, 10)), Cells(Rows.Count, 10).End(xlUp).Row, Rows.Count)

und dann in die nächste Zeile schreiben mittels loLetzte + 1.

Löschen: zeichne mit dem Makrozecorder folgendes auf - markiere einen Zeilenbereich -> Bearbeiten -> Zellen löschen -> Zellen nach oben verschieben. Dabei werden die markierten Zellen gelöscht und alle unterhalb befindlichen Zellen um eine Zeile nach oben verschoben.

Vielleicht hilft dir das als Anregung weiter.

Bis später,
Karin

Antworten der Gruppe: Tabellenkalkulation
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.