Office: Eingabeformular per Makro innerhalb des Dokuments kopieren

Hallo,

ich habe ein Problem... :-)

Ich habe ein Formular, aber ganz simpel, also einfach z.B. Art. Nr., Stückzahl usw.. Das ist z.B. 5*5 Zellen groß. Dieses Formular soll für jede neue Eintragung neu angelegt werden, aber innerhalb der Tabelle. Sprich, einfach copy die 5*5 Zellen und direkt darunter einfügen.
Von Hand absolut simpel, das Problem ist aber, dass ich das ganze gerne - benutzerfreundlich - per Makro erledigen lassen würde.

Ich habe mich daran versucht ein Objekt (Form) einzufügen neben dem Formular, dieses mit einem Makro zu belegen welches alles (samt Objekt) nach unten kopiert und das Objekt (Form) wiederum mit dem Makro belegt. Das ganze geht - wenn überhaupt - 3-4 mal ohne Probleme, aber dann kommen Fehlermeldungen.

Hat da zufällig jemand eine Idee, wie sich sowas "leicht" umsetzen lässt, so dass es funktioniert?

Wäre toll :-)

Viele Grüße

 

Hallo!

Vielleicht geht das hier in die richtige Richtung.

 

Nicht nur vielleicht.
Exakt (!) das, was ich bräuchte.

Könntest Du mir bitte erklären, wie ich da den VBA-Text (ich nehme mal an, darin wird es geändert) ändern muss, damit ich es auf beliebige Felder anwenden kann? Bzw. wie ich es in meine Excel-Mappe einfüge.

 

Hallo!

Code:

Set Ende = Range("C65536").End(xlUp)

Liefert die letzte beschriebene Zelle in Spalte C. In meinem Beispiel also C8.

Code:

Ende.Offset(-4, 4)

Verschiebt diese Zelle um 4 Zeilen nach oben und um 4 Spalten nach rechts. Im Beispiel also G4.

Code:

Range(Ende, Ende.Offset(-4, 4))

Liefert den Bereich zwischen "Ende" und "Ende.Offset(-4, 4)", also C4:G8.

Code:

.Copy Ende.Offset(3, 0)

Kopiert diesen Bereich. Erste Zelle des Zielbereichs ist C8 um drei Zeilen nach unten verschoben, also C11.

 

Danke soweit. Ich versteh den ersten Ausdruck nicht, wie man da auf C8 kommt.

Meine Auswahl wäre beginnend bei A12-R31, dann erste Kopie A32-R51 usw.


Folglich:

Ende.offset(-18, 17)
Range(Ende, Ende.Offset(-18, 17)
Copy Ende.offset(1, 0)

Abgesehen vom nicht-vorhandenen ersten Ausdruck - stimmt das so?

 

Hallo!

Range("C65536").End(xlUp)
sucht das Ende des Bereichs (End), indem von C65536 nach oben (xlUp) gesucht wird.

Wenn ich mich nicht täusche, dann müsste es bei dir .Offset(-19, 18) heißen, aber vielleicht habe ich mich auch verzählt.

 

Ahh okey.
Mhh, ansich funktioniert es. Dummerweise aber wird nur die letzte Spalte kopiert.
Weißt Du was ich falsch mache?

 

Zeig mal den ganzen Code!
Meine Kristallkugel ist gerade in Reparatur...

 

Oh, sorry.

Hier der gesamte Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim Ende As Range
Set Ende = Range("R65536").End(xlUp)
Range(Ende, Ende.Offset(-19, 18)).Copy Ende.Offset(1, 0)
End Sub

 

Hallo!

Du lässt die letzte Zelle in Spalte R suchen!
Entweder änderst du also "R65536" in "A65536", oder du änderst ".Offset(-19, 18)" in ".Offset(-19, -18)".

 

Genial. Du bist der Excel-König :-)

Allerdings bräuchte ich noch eine Ergänzung :/
Wenn ich das Formular kopiere, dann ist dies eine Kopie vom Letzten und somit schon ausgefüllt. Das ist etwas ungünstig.

Es gibt doch bestimmt, die Möglichkeit den Inhalt bestimmter Felder zu löschen, oder?

Ist auch meine letzte Frage, versprochen ;-).

 

Hallo!

Zellinhalte löscht du z.B. mit
Range("A1").ClearContents

In deinem Fall musst du die gewünschten Zellen (oder die Bereiche) entsprechend mit Ende.Offset(...).ClearContents ansteuern.

 

Das klappt soweit einigermaßen, das Problem ist nur, dass es den Inhalt des vorigen Formulars löscht. Ziel wäre aber, dass das kopierte Formular "leer" ist.

 

Ach... natürlich.

Option Explicit

Private Sub CommandButton1_Click()
Dim Ende As Range
Set Ende = Range("A65536").End(xlUp)
Range(Ende, Ende.Offset(-19, 18)).Copy Ende.Offset(1, 0)
Ende.Offset(-5, 8).ClearContents
End Sub

Private Sub erwe_Click()

End Sub