[Makro] Texteingabe in aktivierte Zelle
06.02.2007 10:43:44
Sven
habe früher schon öfter Hilfe hier gefunden, und hoffe auch diesmal auf das Wissen der User zurückgreifen zu können. Mein Problem befasst sich mit Makros für Excel.
Ziel ist es, dass per Tastendruck in eine bereits gefüllte Zelle nach einem neuen Zeilenumbruch folgender Inhalt erscheint: Ergebnis von " & ReadWordUserInitials & " am " & Format(Date, "DD.MM.YY") & ":.
Dieser Text soll in Fetten Buchstaben dargestellt werden und man soll ohne die Zelle erneut aktivieren zu müssen, nach den Doppelpunkten ohne jegliche Sonderformatierung weiter schreiben können.
Bisher sieht mein Aufbau so aus:
Option Explicit
Function ReadWordUserInitials() As String
Dim appDoc As Object
Set appDoc = CreateObject("Word.Application")
ReadWordUserInitials = appDoc.UserInitials
Set appDoc = Nothing
End Function
Sub Makro1()
' Makro1 Makro
' Makro am 11.01.2006 von Sven Worthmann aufgezeichnet
' Tastenkombination: Strg+q
ActiveCell.Value = "Ergebnis von " & ReadWordUserInitials & " am " & Format(Date, "DD.MM.YY") & ":"
With ActiveCell.Characters(Start:=1, Length:=27).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=28, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Évtl hat jemand von Euch eine Lösung für dieses Problem.
Schon einmal vielen Dank für Eure Zeit und Eure Mühen
Mit freundlichen Grüßen
Sven