Schriftform fett

Hallo Excelfreunde,
ich habe hier:
https://www.makro-excel.de/2011/06/05/lesehilfe-fur-grose-tabellen-aktuelle-zeile-fett-anzeigen/#google_vignette
ein Makro gefunden das die Schriftart der jeweilige Aktive Zeile fett formatiert.
Nun versuche ich schon den ganzen Nachmitte dies so zu ergänzen das auch die aktuelle Spalte mit Fett Formatiert wird.
Es will einfach nicht gelingen.
Kann mir dabei jemand helfen?
Dies ist noch die unberührte Version:
https://www.herber.de/bbs/user/157641.xlsm

Private MeineZeile As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim markierteZeilen As Long
markierteZeilen = Selection.Rows.Count
If markierteZeilen > 1 Then
    Exit Sub
Else
    Sicherung_Zwischenablage
    If Not MeineZeile Is Nothing Then MeineZeile.Font.Bold = False
    Target.EntireRow.Font.Bold = True
End If
Set MeineZeile = Target.EntireRow
If Tabelle2.Range("A1").Value > "" Then
    Zwischenablage_Fuellen Tabelle2.Range("A1").Value
    Tabelle2.Range("A1").Value = ""
End If
End Sub

Option Explicit
Private Const CF_TEXT As Long = 1
Function Sicherung_Zwischenablage()
Dim strZwischenablage As DataObject
Set strZwischenablage = New DataObject
strZwischenablage.GetFromClipboard
If strZwischenablage.GetFormat(CF_TEXT) Then Tabelle2.Range("A1") = strZwischenablage.GetText
End Function Function Zwischenablage_Fuellen(ByVal Text As Variant) As Boolean
Zwischenablage_Fuellen = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text)
End Function habt schon mal im Voraus rechtvielen dank für euer Interesse.
mfg thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.CountLarge > 1 Then Exit Sub rw = Target.Row Else Sicherung_Zwischenablage If rw > 0 Then Rows(rw).Font.Bold = False rw = Target.Row Target.EntireRow.Font.Bold = True End If If Tabelle2.Range("A1").Value > "" Then Zwischenablage_Fuellen Tabelle2.Range("A1").Value Tabelle2.Range("A1").Value = "" End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.CountLarge > 1 Then Exit Sub rw = Target.Row Else 'Sicherung_Zwischenablage If rw > 0 Then Rows(rw).Font.Bold = False rw = Target.Row Target.EntireRow.Font.Bold = True End If If Tabelle2.Range("A1").Value > "" Then ' Tabelle2.Range("A1").Value Tabelle2.Range("A1").Value = "" End If End Sub

If Target.CountLarge > 1 Then Exit Sub rw = Target.Row cl = Target.Column Else 'Sicherung_Zwischenablage If rw > 0 Then Rows(rw).Font.Bold = False rw = Target.Row If cl > 0 Then Columns(cl).Font.Bold = False cl = Target.Column Target.EntireRow.Font.Bold = True Target.EntireColumn.Font.Bold = True End If

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim markierteZeilen As Long Dim MeineSpalte As Range markierteZeilen = Selection.Rows.Count If markierteZeilen > 1 Then Exit Sub Else Sicherung_Zwischenablage If Not MeineSpalte Is Nothing Then MeineSpalte.Font.Bold = False Target.EntireColumn.Font.Bold = True End If Set MeineSpalte = Target.EntireColumn If Tabelle2.Range("A1").Value > "" Then Zwischenablage_Fuellen Tabelle2.Range("A1").Value Tabelle2.Range("A1").Value = "" End If End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread