Mit Button vorrausgegangene Zeile einer Tabelle kopieren und

nuknuk32

Hallo, hab mich nun endlich registriert und habe natürlich direkt ein Problem. Eigentlich sogar zwei Probleme.

Problem 1. Ich würde gerne in enem geschützten Formular einen Button unterbringen, der es mir ermöglicht ein Zeile einer Tabelle zu kopieren. Diese Zeile soll der Tabelle angefügt werden. Die Tabelle besteht aus vier Spalten. In den ersten drei Spalten befindet sich jeweils ein Formularfeld, in der 4. Spalte befindet sich eine Combobox.
Für jeden Druck auf diesen Button soll der Tabelle eine neue Zeile angefügt werden.

Problem 2: Ich habe folgendes Macro:

Sub Nummern()
ActiveDocument.FormFields("Dropdown2").DropDown.Value = ActiveDocument.FormFields("Dropdown1").DropDown.Value
ActiveDocument.FormFields("Dropdown3").DropDown.Value = ActiveDocument.FormFields("Dropdown1").DropDown.Value
ActiveDocument.FormFields("Dropdown4").DropDown.Value = ActiveDocument.FormFields("Dropdown1").DropDown.Value
ActiveDocument.FormFields("Dropdown5").DropDown.Value = ActiveDocument.FormFields("Dropdown1").DropDown.Value
ActiveDocument.FormFields("Dropdown6").DropDown.Value = ActiveDocument.FormFields("Dropdown1").DropDown.Value
ActiveDocument.FormFields("Dropdown7").DropDown.Value = ActiveDocument.FormFields("Dropdown1").DropDown.Value
ActiveDocument.FormFields("Dropdown8").DropDown.Value = ActiveDocument.FormFields("Dropdown1").DropDown.Value

End Sub

Es handelt sich hier um ein Dropdown-Feld, welches die Inhalte der folgenden Dropdownfelder ändern soll. Dies funktioniert auch einwandfrei. Meine Frage nun: Kann ich den Code eleganter und einfacher gestalten? Die Liste der Dropdownfelder würde sich noch erweitern und ich habe ein wenig Bedenken, dass es zu unübersichtlich wird.

Ich weiß es sind viele Fragen für den Anfang, ich würde mich aber trotzdem über ein wenig Hilfe freuen.

Danke schon einmal im voraus für eure HIlfe.

Gruss

nuknuk32

Hallo,

für das Problem 1 habe ich nun eine Lösung gefunden (learning by doing).
Folgenden Code habe ich nun eingesetzt:

Private Sub CommandButton1_Click()

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
ActiveDocument.Unprotect
End If

ActiveDocument.Tables(8).Rows(2).Select
Selection.Copy
Selection.Paste

If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True
End If

End Sub

An den 2. Problem muß ich noch arbeiten. Währe nett wenn mir jemand helfen könnte.

Office Forum -> Word Forum -> Word VBA Programmierung (Makros)
zurück: Frame-Eigenschaft Schriftfeld / Textanker platzieren weiter: Ausführung AutoNew Macro in Normal.dot		Unbeantwortete Beiträge anzeigen
	Status: Offen	Diese Seite Freunden empfehlen Zu Browser-Favoriten hinzufügen

Forum / Themen		Antworten	Autor	Aufrufe	Letzter Beitrag
Verwandte Themen
	Word VBA Programmierung (Makros): Ausdruck suchen, Zeile kopieren und neu Einfügen.	2	valle2	250	15. Dez 2009, 14:42 valle2
	Word VBA Programmierung (Makros): Bilder aus Verzeichnis X in Word in eine Tabelle einfügen...	5	digitall	1396	30. Jun 2009, 18:03 steffen0815
	Word VBA Programmierung (Makros): vb Tabelle mit fester erster Zeile auf jeder Seite	1	ASCCUX	341	24. Jun 2009, 13:32 Gast
	Word Gestaltungselemente: word 2003 - Hintergrund der Zellen einer Tabelle färben = ?	6	makronius	11089	26. Mai 2009, 14:25 Gast
	Word VBA Programmierung (Makros): Zeilen von Abs. zählen u. vor jeder Zeile eine fortl. Nr.	0	usense	140	21. Apr 2009, 19:42 usense
	Word VBA Programmierung (Makros): Dienstplan erstellen (Tabelle in Word) über makros	9	KirO	944	02. Apr 2009, 20:36 steffen0815
	Word VBA Programmierung (Makros): Tabelle nach bestimmten Wörtern absuchen und Zeile entfernen	4	Steffen00	626	16. März 2009, 11:56 Steffen00
	Word Gestaltungselemente: Jede Seite mit einer anderen Kopf zeile.	5	Gehm	907	11. Feb 2009, 17:17 Pity
	Word Hilfe: Blocksatz - letzte Zeile zusammen bekommen	1	Freudigergast	2238	06. Aug 2008, 11:17 Freudigergast
	Word Gestaltungselemente: Tabelle im Querformat - Kopfzeile im Hochformat???	0	DutchDisease	607	18. Jun 2008, 14:33 DutchDisease
	Word VBA Programmierung (Makros): Werte in Word Tabelle multiplizieren	2	Badgerroxxx	1949	10. Jun 2008, 07:16 Badgerroxxx
	Word VBA Programmierung (Makros): Tabelle unter VBA einrichten	10	zUkUu	2072	12. Sep 2007, 08:24 zUkUu

- Mit Button vorrausgegangene Zeile einer Tabelle kopieren und

- AW: Mit Button vorrausgegangene Zeile einer Tabelle kopieren

Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum 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 nicht posten Du kannst Dateien in diesem Forum herunterladen


----> Diese Seite Freunden empfehlen <------	Impressum - Besuchen Sie auch: Excel-Formeln für den Rangkorrelationskoeffizienten nach Spearman