Office: Schaltfläche auf Tabelle welche folgendes bewirkt...

Hallo,

ich möchte folgendes realisieren:

Eine Schaltfläche in einer Tabelle.

Ein Klick darauf soll folgendes bewirken:

1. Die Spalten A bis H werden bis zu den letzten Einträgen markiert.

2. Sämtliche Inhalte bekommen ein Hochkomma vorangestellt.

3. Sämtliche markierte Zellen bekommen den Namen Test zugewiesen.

4. Die Tabelle wird gespeichert und geschlossen.

Danke für die Hilfe.

Peeti

 

Hi,

keine Ahnung, ob Du es so meinst. Aber hier mal mein Vorschlag:

Code:

Sub Bereich_neu()
Dim Zelle As Object
Dim MyRange As Range
Dim MyRg As Range

    With ActiveSheet
        Set MyRange = .Range("A1:H1")
        Set MyRg = .Range(MyRange, MyRange.End(xlDown))
    End With
    
    For Each Zelle In MyRg
        If Left(Zelle, 1) <> "'" Then
            Zelle = "'" & Zelle
        End If
    Next
    
    ActiveSheet.Names.Add Name:="Test", _
    RefersTo:=MyRg
        
    ActiveWorkbook.Close savechanges:=True
    
End Sub

Erstell eine Schaltfläche und dieser Code kommt dann im VBA-Editor hinter dem Klick-Ereignis der Schaltfläche....

 

Hi Peeti,

ich habe mir nun die Arbeit gemacht und sowohl den Code für Word wie auch für Excel hier reingestellt.

Aber trotzdem eine Bitte - wenn Du schon zeitgleich in mehreren Foren postest dann schriebe es wenigstens rein. Den Excel-Code hätte ich mir ersparen können....

Ich finde das allen gegenüber, die in den Foren helfen, nicht ganz fair ...

 

Entschuldigung

war nicht meine Absicht und wird auch nicht mehr vorkommen.

Peeti