NajwaJean Selection / RR:Suche

Ich möche in Word mit VBA folgendes Bewerkstelligen:
Ein bestimmter Bereich soll je nach Wahl von Radio Buttons aus-und wieder eingeblendet werden können. Der Bereich enthält vor allem Formularsteuerelemente.
Ich bin schon soweit, dass ich ihn löschen kann, aber ich muss ihn je nach Wahl der Radio-Buttons auch wieder einblenden könne, darum geht löschen nicht.
Es geht also um die Eigenschaft von Selection.
Hier mein Code:Private Sub OptionButton1_Click() 'Kopierschutz auflösen ActiveDocument.Unprotect 'Auswahltreffen und löschen Dim rngParagraphs As Range Set rngParagraphs = ActiveDocument.Range"ftxt1""ftxt13" rngParagraphs.Select Selection.Delete 'Kopierschutz erstellen ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True End Sub Private Sub OptionButton2_Click() 'Kopierschutz auflösen ActiveDocument.Unprotect 'Auswahltreffen und löschen Dim rngParagraphs As Range Set rngParagraphs = ActiveDocument.Range"ftxt1""ftxt13" rngParagraphs.Select Selection. 'Kopierschutz erstellen ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True End Sub. komplette Frage anzeigen  Hilfreichste Antwort - ausgezeichnet vom Fragesteller von , 27.05.2014 1 Mitglied fand diese Antwort hilfreich Der schnellste und schmutzigste Weg ist, dir beim Ausblenden den Text in einer globalen Variable zu merken sAusgeblendet = Selection.Text und beim Einblenden wieder zurückzuschreiben Selection.Text = sAusgeblendet Achtung! Beim Schließen von Word geht der versteckte Text verloren, da du ihn löschst.

Gute Idee, habe ich probiert.
Der Code sieht dann so aus:Dim myselection As Selection Private Sub OptionButton1_Click() 'Kopierschutz auflösen ActiveDocument.Unprotect 'Auswahltreffen und löschen Dim rngParagraphs As Range Set rngParagraphs = ActiveDocument.Range"ftxt1""ftxt13" rngParagraphs.Select myselection = Selection Selection.Delete 'Kopierschutz erstellen ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True End Sub Private Sub OptionButton2_Click() 'Kopierschutz auflösen ActiveDocument.Unprotect 'Auswahltreffen und löschen Dim rngParagraphs As Range Set rngParagraphs = ActiveDocument.Range"ftxt1""ftxt13" rngParagraphs.Select Selection = myselection 'Kopierschutz erstellen ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True End Sub Nur leider funktionierts nicht.
Es kommt folgende Fehlermeldung beim klick auf OptionButton1 oder 2:
Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt.

Ah sorry mein Fehler es sollte natürlich nicht Dim sondern Public heissen. Ich bekomme aber trotzdem noch dieselbe Fehlermeldung.

Speichere doch nicht die Selection, sondern nur den Inhalt, den Text. Selection.Text

Ich benötige nicht nur den Text. Die Selection beinhaltet auch Bilder und Inhaltssteuerelemente. Trotzdem habe ich es probiert und bekomme wieder denselben Fehler.
Wenn ich die Variable so definiere:
Public myselection As Selection.Text --> dann ergibt dies einen Fehler beim kompilieren, wenn ich sie als Selection definiere aber sonst überall Selection.Text verwende bekomme ich wieder denselben Fehler wie zu Beginn.

Objekte werden mit Set zugewiesen.
Set myselection = Selection
Hast du wirklich beides probiert?:
Set myselection = Selection und
myselectiontext = Selection.Text Public myselection As Selection.Text Das ist kein Typ, soviel ich weiß. Versuche mal Public myselection as String

Viele Dank für deine
Hier ist der Code wie er Zurzeit aussieht:Public myselection As Selection Private Sub OptionButton1_Click() 'Kopierschutz auflösen ActiveDocument.Unprotect 'Auswahltreffen und löschen Dim rngParagraphs As Range Set rngParagraphs = ActiveDocument.Range"ftxt1""ftxt13" rngParagraphs.Select Selection = myselection 'myselection.Paste 'Kopierschutz erstellen ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True End Sub Private Sub OptionButton2_Click() 'Kopierschutz auflösen ActiveDocument.Unprotect 'Auswahltreffen und löschen Dim rngParagraphs As Range Set rngParagraphs = ActiveDocument.Range"ftxt1""ftxt13" rngParagraphs.Select Set myselection = Selection Selection.Delete 'Kopierschutz erstellen ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True End Sub für den Tipp mit dem Set, das habe ich so abgeändert.
Selection ist ein Typ, er wird zumindest vorgeschlagen, wenn ich Ctrl+Leertaste drücke. Wenn ich String verwende bekomme ich eine andere Fehlermeldung.
OptionButton2 funktioniert jetzt.
Bei OptionButton1 habe ich folgende Fehlermeldung:
«Das angeforderte Element ist nicht in der Sammlung vorhanden.»
Ich kann dir die ganze Datei auch zur Verfügung stellen.

Ahja die Fehlermeldung ist ein Laufzeitfehler '5941

Beim OptionButton1 ist es doch dasselbe:SET Selection = myselection Eventuell auch Selection.Range. K. A. Komme mehr vom Excel-VBA. Selection ist typisch Word. Du könntest dir übrigens den ganzen Selection-Schnick-Schnack sparen Dim rngParagraphs As Range Set rngParagraphs =. Speichere doch das Rangeobjekt einfach global ab.

Ah ne, das mit dem Rangeobjekt wird nicht klappen, da nicht der Inhalt gespeichert wird. Das ist auch das Problem bei Selection.
Selection ist die Markierung. Es bringt nichts, sich die Markierung zu merken. Du musst dir Selection.Text merken. Jetzt hast du mich aber soweit. Ich mache es dir fertig.

Dies ergibt einen Fehler beim kompilieren.
Fehler beim Kompilieren: Unzulässige Verwendung einer Eigenschaft
Hey ich werde mal Pause machen und an etwas anderem arbeiten. Wenn du willst schicke ich dir das ganze Dokument.

Ich kriege es nicht hin. Beim Löschen wird das Bookmark mit gelöscht.

Ich habe aufgegeben. Eigentlich ist die Funktion nämlich gar nicht so wichtig und nichtmal die Neugier treibt mich noch dazu weiterzuarbeiten.
Aber hier ist der Link:
bplaced - Webspace & Webhosting // 2GB Freehost :: The place for your webspace

Also wenn du während der Bearbeitung des Dokuments die Finger von der Zwischenablage lässt, kannst du mit dieser arbeiten:Private Sub OptionButton1_Click() 'Kopierschutz auflösen If ActiveDocument.ProtectionType wdNoProtection Then _ ActiveDocument.Unprotect 'Auswahltreffen und einfügen Dim rngParagraphs As Range Set rngParagraphs = ActiveDocument.Range"ftxt1""ftxt13" rngParagraphs.Select Selection.Paste Selection.Bookmarks.Add "ftxt13" End Sub Private Sub OptionButton2_Click() 'Kopierschutz auflösen If ActiveDocument.ProtectionType wdNoProtection Then _ ActiveDocument.Unprotect 'Auswahltreffen und löschen Dim rngParagraphs As Range Set rngParagraphs = ActiveDocument.Range"ftxt1""ftxt13" rngParagraphs.Select Selection.Cut rngParagraphs.Bookmarks.Add "ftxt1" rngParagraphs.Bookmarks.Add "ftxt13" End Sub Kommentar von , 02.06.2014 Genauso, mit diesem Code hat es funktioniert. Ich habe lediglich den Dokumentenschutz am Schluss noch hinzugefügt.

Ich kenne mich in WORD nicht so aus, aber könnte vieileicht
Selection.Hidden = True
klappen?
Evtl. muss da aber noch etwas dazwischen. In Excel lautet der Befehel:
Selection.EntireRow.Hidden = True
Vielleicht klappt auch:
rngParagraphs.Range.Hidde = True
Kann die Hilfe Dir da nicht weiter helfen?
Zurück dann natürlich mit False.

Selection.Hidden existiert nicht.
Es gibt leider keine Eigenschaft Hide, ausser für den Text aber ich muss nicht nur Text ausblenden sondern einen ganzen Bereich.
Die Hilfe ist nicht wirklich Hilfreich bei diesem Problem.

Wenn Buttons und Grafiken im Absatz eingebunden sind, lassen sie sich zusammen mit dem Absatz ausblenden:
Absatz markieren, Format, Zeichen, Ausgeblendet.
Wenns manuell geht, müsste es auch per VBA gehen. Einfach mal mit dem Recorder aufzeichnen.
Wenn ich die Grafik aber an den Seitenrand oder die Seite hefte geht es natürlich nicht.

Hallo Liebe Community,
ich habe in einem Forum einen Code gefunden, mit dem man mehrere markierte Bereiche an eine ausgewählte Stelle via inputbox kopieren kann. Ich möchte die markierten Bereiche nun in den Zwischenspeicher, statt an einer bestimmten Stelle haben, um sie dann später in Word einfügen zu können, statt excel. Ist dies mit folgendem Code möglich? Option Explicit Sub CopyMultipleSelection() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As Integer Dim NonEmptyCellCount As Integer ' Exit if a range is not selected If TypeName "Range" Then MsgBox "Select the range to be copied. A multiple selection is allowed." Exit Sub End If ' Store the areas as separate Range objects NumAreas = Selection.Areas.Count ReDim SelAreas For i = 1 To NumAreas Set SelAreas = Selection.Areas Next ' Determine the upper left cell in the multiple selection TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas.Row < TopRow Then TopRow = SelAreas.Row If SelAreas.Column < LeftCol Then LeftCol = SelAreas.Column Next Set UpperLeft = Cells ' Get the paste address On Error Resume Next Set PasteRange = Application.InputBox _ (Prompt:="Specify the upper left cell for the paste range:", _ Title:="Copy Mutliple Selection", _ Type:=8) On Error GoTo 0 ' Exit if canceled If TypeName "Range" Then Exit Sub ' Make sure only the upper left cell is used Set PasteRange = PasteRange.Range("A1") ' Check paste range for existing data NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas.Row - TopRow ColOffset = SelAreas.Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountAPasteRange.Offset, _ PasteRange.Offsetii)) Next i ' If paste range is not empty, warn user If NonEmptyCellCount 0 Then _ If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _ "Copy Multiple Selection") vbYes Then Exit Sub ' Copy and paste each area For i = 1 To NumAreas RowOffset = SelAreas.Row - TopRow ColOffset = SelAreas.Column - LeftCol SelAreas.Copy PasteRange.Offset Next i End Sub. komplette Frage anzeigen  Antwort von , 20.01.2015 ok, vergiss mein geschwätz von vorhin. hier der angepasste code: Option Explicit Sub CopyMultipleSelection() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As Integer Dim NonEmptyCellCount As Integer Dim pr_row As Integer Dim pr_col As Integer Dim right_lower_row As Integer Dim right_lower_col As Integer ' Exit if a range is not selected If TypeName "Range" Then MsgBox "Select the range to be copied. A multiple selection is allowed." Exit Sub End If ' Store the areas as separate Range objects NumAreas = Selection.Areas.Count ReDim SelAreas For i = 1 To NumAreas Set SelAreas = Selection.Areas Next ' Determine the upper left cell in the multiple selection TopRow = ActiveSheet.rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas.Row < TopRow Then TopRow = SelAreas.Row If SelAreas.Column < LeftCol Then LeftCol = SelAreas.Column Next Set UpperLeft = Cells ' Get the paste address On Error Resume Next Set PasteRange = Application.InputBox _ (Prompt:="Specify the upper left cell for the paste range:", _ Title:="Copy Mutliple Selection", _ Type:=8) On Error GoTo 0 ' Exit if canceled If TypeName "Range" Then Exit Sub ' Make sure only the upper left cell is used pr_row = PasteRange.Row pr_col = PasteRange.Column Set PasteRange = PasteRange.Range("A1") ' Check paste range for existing data NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas.Row - TopRow ColOffset = SelAreas.Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountAPasteRange.Offset, _ PasteRange.Offsetii)) Next i ' If paste range is not empty, warn user If NonEmptyCellCount 0 Then _ If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _ "Copy Multiple Selection") vbYes Then Exit Sub ' Copy and paste each area Dim tWidth, tHeight, aWidth, aHeight tWidth = 0 tHeight = 0 For i = 1 To NumAreas RowOffset = SelAreas.Row - TopRow ColOffset = SelAreas.Column - LeftCol SelAreas.Copy PasteRange.Offset aWidth = RowOffset + SelAreas.rows.Count - 1 aHeight = ColOffset + SelAreas.Columns.Count - 1 If tWidth < aWidth Then tWidth = aWidth If tHeight < aHeight Then tHeight = aHeight Next i pr_row = PasteRange.Row pr_col = PasteRange.Column Rangepr_row, pr_colpr_row + tWidth, pr_col + tHeight)).Copy End Sub es wird nach wie vor ein bereich im worksheet benutzt zum zwischenkopieren. diese wird dann zum schluss gebraucht für die gesamtkopie.
ohne gewähr, bitte testen.
wenn fragen, bitte melden.

Hey erstmal ein riesiges an dich- das war sicher einiges an Arbeit im Grunde funktioniert das ganze nun sehr gut. Wenn ich jedoch eingefrorene Zellen Habe nimmt er diese Range beim kopieren mit- das wäre das einzige was noch stört.

bzw. kopiert er auch Dinge die über der ersten markierten Range liegen.

nein, du musst das clipboard object verwenden

meine VBA Kenntnisse sind bis dato nur sehr oberflächlich. Ich fuchse mich gerade mehr der weniger gezwungenermaßen da rein. Hast du einen Ansatz für mich wie man das im Clipboard umsetzen kann? Ich brauche Insgesamt maximal 25 variabel wählbare Bereiche die ich aus Excel in Word kopieren möchte.

Weiß jemand ob es einen 5. Teil der selection Reihe von kiera cass geben wird? Wenn ja, wann erscheint der?

Ich glaube für Erik oder für kile
Weil es Zweigen beiden Paaren oft geknistert hat.

Aber Erik ist doch keiner der kandidaten. Für ihn kann sie sich nicht entschieden 

Aber sie darf ja nach 3 monaten abbrechen und dann könnte sie erik wählen. Außerdem sagt ja der inhalt, dass eadlyns herz seltsame wege geht. Erik könnte also hinhauen

Hey ich hab nun den ersten und zweiten Band von the selection von Kiera Cass gelesen und muss jz zwei Monate auf den nächstens warten, damit die Zeit schneller vorbei geht wollte ich euch fragen, welche Bücher so ähnlich sind und sich lohnen zu lesen.

Die Percy Jackson Reihe hab ich schon komplett durch aber ich guck mir mal das andere an:)

Wenn dir Percy Jackson gefallen hat, dann ist die 'Helden des Olmyps'-Reihe sicher etwas für das. Das ist quasi so eine Fortsetzung von PJ, nur mit mehr Halbgöttern und einem ganz anderen Kern, sehr zu empfehlen!

, klingt echt gut ich werde die mir mal angucken

Würde mir gerne eine im Internet bestellen, habe aber keine lust auf'n hässlichen Aufdruck auf dem Cover.

Ich denke du meinst die FSK-Logos? Die Star Selection ist von Warner und die haben soweit ich weiß keine Wendecover und das Logo ist aufgedruckt.

nee, das fsk logo mein ich nicht. ich hab mal ein bild hochgeladen wo eine star selection blu ray abgebildet ist. wollte wissen ob man das abziehen kann.

Dieses Star Selection Logo ist auf jeden Fall nur außen auf der Folie drauf. Wenn du die BD ausgepackt hast ist das also nicht mehr da