Zellen in Spalte A:K in aktiver Zeile markieren
13.08.2003 15:35:23
Benjamin
habe folgendes zusammengebastelt:
Mein Problem im comment.
Bin für jeden Tipp dankbar.
Sub bold_underline()
Set r = Range("A2", Range("A2000"))
For Each c In r
If c.Font.bold = True Or c.Font.Underline = xlUnderlineStyleSingle Then
c.EntireRow.Activate
'hier sollte eine Anweisung stehen die mir in der aktuellen Zeile die Zellen von Spalte A bis K markiert
Selection.Cut
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveSheet.Paste
End If
Next
End Sub
Danke im Vorraus
LG Ben