Thema Datum  Von Nutzer Rating
Antwort
19.07.2012 22:37:24 joerg
NotSolved
Blau Formatierungsanweisungen zusammenfassen
 20.07.2012 18:09:44 Till
*****
NotSolved
25.07.2012 23:07:46 joerg
NotSolved
26.07.2012 06:04:20 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
20.07.2012 18:09:44		 Views:
917		 Rating:
     
Antwort:
  Ja
Thema:
Formatierungsanweisungen zusammenfassen

Hi,

du könntest soetwas schreiben:

Option Explicit

Public Enum MyFormateType
    BoldSize10 = 0
    RedSize45 = 1
End Enum
Public Sub MyFormateTemplates(ByRef rng As Range, FormateType As MyFormateType)
    Select Case FormateType
    Case BoldSize10
        With rng.Font
            .Size = 10
            .Bold = True
        End With
    Case RedSize45
        With rng
        .Interior.ColorIndex = 3
            With .Font
                .Size = 45
                .Bold = True
            End With
        End With
    End Select
End Sub

Private Sub test()

    MyFormateTemplates Cells(1, 1), RedSize45
        
End Sub

Ansonsten, wären Klassen mit vererbten VBA Objekten vielleicht sinnvoll, leider funktioniert Vererbung in VBA nicht so einfach. Gibt aber wohl Workaround, hab ich aber nicht getestet. Müsstest du sonst mal im Netz nach suchen (VBA Klassen + Inheritance/Vererbung).

 

Gruß

Till

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.07.2012 22:37:24 joerg
NotSolved
Blau Formatierungsanweisungen zusammenfassen
 20.07.2012 18:09:44 Till
*****
NotSolved
25.07.2012 23:07:46 joerg
NotSolved
26.07.2012 06:04:20 Till
NotSolved