Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> 26. März: Office-Treffen Rhein-Main <-
Mit Button vorrausgegangene Zeile einer Tabelle kopieren und
zurück: Frame-Eigenschaft Schriftfeld / Textanker platzieren weiter: Ausführung AutoNew Macro in Normal.dot Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
nuknuk32
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Feb 2010, 10:50
Rufname:

Mit Button vorrausgegangene Zeile einer Tabelle kopieren und - Mit Button vorrausgegangene Zeile einer Tabelle kopieren und

Nach oben
       Version: Office XP (2002)

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
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Feb 2010, 12:19
Rufname:


AW: Mit Button vorrausgegangene Zeile einer Tabelle kopieren - AW: Mit Button vorrausgegangene Zeile einer Tabelle kopieren

Nach oben
       Version: Office XP (2002)

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.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
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




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

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