MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 05.02.2018, 13:13   #1
Naki
Neuer Benutzer
Neuer Benutzer
Standard VBA - Textmarken löschen (in einer übersichtlichen Art)

Hallo,
habe in einem Dokument 6 Textmarken und in einer UF 6 Checkboxen.
Wenn der jeweilige Checkbox ausgewählt ist soll die TM im Dokument bleiben. Wenn nicht soll es gelöscht werden.
Ich habe es folgendermaßen gelöst:
PHP-Code:

If chkRate1.Value True Then
        
.FormFields("FF_RateKosten1").Result txtRateKosten1
        
.FormFields("FF_RateZum1").Result txtRateZum1
             
Else
                .
Bookmarks("tmRateKosten1").Range.Delete
    End 
If
    
        If 
chkRate2.Value True Then
        
.FormFields("FF_RateKosten2").Result txtRateKosten2
        
.FormFields("FF_RateZum2").Result txtRateZum2
             
Else
                .
Bookmarks("tmRateKosten2").Range.Delete
    End 
If
    
    If 
chkRate3.Value True Then
        
.FormFields("FF_RateKosten3").Result txtRateKosten3
        
.FormFields("FF_RateZum3").Result txtRateZum3
             
Else
                .
Bookmarks("tmRateKosten3").Range.Delete
    End 
If
    
    If 
chkRate4.Value True Then
        
.FormFields("FF_RateKosten4").Result txtRateKosten4
        
.FormFields("FF_RateZum4").Result txtRateZum4
             
Else
                .
Bookmarks("tmRateKosten4").Range.Delete
    End 
If
    
    If 
chkRate5.Value True Then
        
.FormFields("FF_RateKosten5").Result txtRateKosten5
        
.FormFields("FF_RateZum5").Result txtRateZum5
             
Else
                .
Bookmarks("tmRateKosten5").Range.Delete
    End 
If
    If 
chkRate6.Value True Then
        
.FormFields("FF_RateKosten6").Result txtRateKosten6
        
.FormFields("FF_RateZum6").Result txtRateZum6
             
Else
                .
Bookmarks("tmRateKosten6").Range.Delete
    End 
If 
der Code wird dadurch sehr unübersichtlich. (Der Code muss in zwei UF´s geschrieben werden!)
Ich wollte fragen, ob man das eleganter lösen könnte (z. B. For-Next Schleife). Habe einiges probiert aber nicht wirklich weitergekommen.
Hat jemand vielleicht ein Tipp?
Gruß, Naki
Naki ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.02.2018, 14:39   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Naki,

versuch es mal nach diesem Strickmuster:
Code:

Option Explicit

Sub fillFFkillBM()

Dim i As Long
Dim arrKosten As Variant, arrRate As Variant

arrKosten = Array(txtRateKosten1, txtRateKosten2, txtRateKosten3, txtRateKosten4, txtRateKosten5, txtRateKosten6)
arrRate = Array(txtRateZum1, txtRateZum2, txtRateZum3, txtRateZum4, txtRateZum5, txtRateZum6)

With ActiveDocument
    For i = 1 To 6
        If Me.Controls("chkRate" & i).Value = True Then ' Me ist die aktuelle UserForm
            .FormFields("FF_RateKosten" & i).Result = arrKosten(i - 1)
            .FormFields("FF_RateZum" & i).Result = arrRate(i - 1)
        Else
            If .Bookmarks.Exists("tmRateKosten" & i) Then
                .Bookmarks("tmRateKosten" & i).Range.Delete
            End If
        End If
    Next i
End With
End Sub
Ohne Gewähr: ich habe weder Dein Dokument noch Deine UserForm nachgebildet. Da kann es also hakeln.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.02.2018, 21:42   #3
Naki
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo haklesoft,
danke, hat geklappt!
Jetzt sieht alles viel aufgeräumter aus!
Gruß, Naki
Naki ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:01 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.