AW: Sonderzeichen einfügen
22.09.2003 13:03:48
Hajo_Zi
Hallo Thomas
PeterHaserodt hat sich damit mal befast und er hat es über eine Symbolleiste gelöst. Der Text wird in die Zelle geschrieben, Enter und dann das entsprechende Zeichen in der Symbolleiste.
Option Explicit
' von Peter Haserodt
Public Sub MenueZeichenEintragen()
'PH 2003
Dim oButton As CommandBarButton, oZiel As CommandBar, sZeichen() As Variant
Dim i As Byte, sTemp As String
sZeichen = Array("131", "137", "169", "177", "181", "188", "189", "190", "216") ' Hier die Zeichen ergänzen
WegMitLeisteZurNot
Set oZiel = CommandBars.Add("Sonderzeichen Peter", msoBarTop, , 1) ' Flüchtig
With oZiel
.Visible = True
End With
ZelleEinrichten ' Button einrichten
For i = 0 To UBound(sZeichen)
Set oButton = oZiel.Controls.Add(msoControlButton)
With oButton
.Caption = Chr(Val(sZeichen(i)))
With ThisWorkbook.Worksheets(1).Range("a1")
.Value = Chr(Val(sZeichen(i)))
.Copy
End With
.Tag = sZeichen(i) ' auf Tag wird der Schlüssel für das Zeichen geschrieben
.OnAction = "ZeichenEintragIcon"
.PasteFace
End With
' Set oButton = Nothing ' wird überschrieben ist nicht notwendig kom. Peter
Next i
Application.CutCopyMode = False
Set oButton = Nothing
Set oZiel = Nothing
End Sub
Private Sub ZeichenEintragIcon()
ActiveCell = ActiveCell & Chr(Val(Application.CommandBars.ActionControl.Tag))
End Sub
Public Sub WegMitLeisteZurNot()
On Error Resume Next
CommandBars("Sonderzeichen Peter").Delete
End Sub
Private Sub ZelleEinrichten()
'Hier kann man ein bisserl spielen wie die Icons aussehen können
With ThisWorkbook.Worksheets(1).Range("a1")
.HorizontalAlignment = xlCenter
.Font.Bold = True
.Font.ColorIndex = 6
.Interior.ColorIndex = 11
.Interior.Pattern = xlSolid
.VerticalAlignment = xlCenter
End With
With ThisWorkbook.Worksheets(1)
.Rows(1).RowHeight = 12.75
.Columns(1).ColumnWidth = 1.57
End With
End Sub
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
http://home.media-n.de/ziplies/