VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben

Gruppe

Feature

Bereich

Bedingt

Thema

Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben

Problem

Wie kann ich veranlassen, dass in einer Spalte der erste mit einem neuen Buchstaben beginnende Name mit dem Schriftattribut fett dargestellt wird.

Lösung

Formel für die bedingte Formatierung: =LINKS(A1;1)<>LINKS(A65536;1)




StandardModule: basMain

Sub WordImport()
   Dim appWord As Object
   Dim docWord As Object
   Dim rngWord As Object
   Dim sFile As String
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Word-Dokument wurde nicht gefunden!"
      Exit Sub
   End If
   Set appWord = CreateObject("Word.Application")
   Set docWord = appWord.Documents.Open(sFile)
   Set rngWord = docWord.Paragraphs(1).Range
   rngWord.Copy
   Worksheets.Add after:=Worksheets(Worksheets.Count)
   ActiveSheet.Paste
   appWord.Quit
   Set rngWord = Nothing
   Set docWord = Nothing
   Set appWord = Nothing
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt