Eingabeformular per Makro innerhalb des Dokuments kopieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2007] Eingabeformular per Makro innerhalb des Dokuments kopieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

jep
Newbie
Newbie

Anmeldedatum: 15.01.2008
Beiträge: 21

Verfasst am: 13.03.2008, 12:56

Hallo,

ich habe ein Problem... Smile

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 Smile

Viele Grüße

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 13.03.2008, 13:06

Hallo!

Vielleicht geht das hier in die richtige Richtung.

jep.xls

Beschreibung:

Download

Dateiname:

jep.xls

Dateigröße:

24 KB

Heruntergeladen:

17 mal

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

jep
Newbie
Newbie

Anmeldedatum: 15.01.2008
Beiträge: 21

Verfasst am: 13.03.2008, 13:39

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 13.03.2008, 13:47

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.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

jep
Newbie
Newbie

Anmeldedatum: 15.01.2008
Beiträge: 21

Verfasst am: 13.03.2008, 14:40

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?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 13.03.2008, 14:45

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.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

jep
Newbie
Newbie

Anmeldedatum: 15.01.2008
Beiträge: 21

Verfasst am: 13.03.2008, 14:48

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 13.03.2008, 14:52

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

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

jep
Newbie
Newbie

Anmeldedatum: 15.01.2008
Beiträge: 21

Verfasst am: 13.03.2008, 14:56

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 13.03.2008, 15:03

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)".

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

jep
Newbie
Newbie

Anmeldedatum: 15.01.2008
Beiträge: 21

Verfasst am: 13.03.2008, 15:21

Genial. Du bist der Excel-König Smile

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 Wink

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 13.03.2008, 15:29

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.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

jep
Newbie
Newbie

Anmeldedatum: 15.01.2008
Beiträge: 21

Verfasst am: 13.03.2008, 15:43

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 13.03.2008, 15:48

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

jep
Newbie
Newbie

Anmeldedatum: 15.01.2008
Beiträge: 21

Verfasst am: 13.03.2008, 15:59

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Makro gesucht Zeile kopieren und in j...	philipp.geyer	Microsoft Excel Hilfe	4	05.09.2008, 15:59
	Zeile kopieren und darunter einfügen	magb	Microsoft Excel Hilfe	4	03.09.2008, 16:34
	Makro das email loescht	stom	Microsoft Outlook Hilfe	0	03.09.2008, 13:20
	Excel spielt verrückt, Makro funktion...	Frederic	Microsoft Excel Hilfe	3	02.09.2008, 12:59
	Bei Veränderung in Eingabemaske Makro...	trottlbua	Microsoft Excel Hilfe	2	02.09.2008, 10:15

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de