Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen in Spalte A:K in aktiver Zeile markieren

Zellen in Spalte A:K in aktiver Zeile markieren
13.08.2003 15:35:23
Benjamin
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen in Spalte A:K in aktiver Zeile markieren
13.08.2003 16:31:59
Knut

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
range(cells(c.row,1),cells(c.row,11)).select
Selection.Cut
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveSheet.Paste
End If
Next
End Sub

Knut

AW: Zellen in Spalte A:K in aktiver Zeile markieren
13.08.2003 17:16:06
Benjamin
Hallo,
vielen Dank Euch beiden.
Ich habe Knuts Vorschlag angewandt!
LG Ben

AW: Zellen in Spalte A:K in aktiver Zeile markieren
13.08.2003 16:46:55
Harry
versuchs mit:
numz = CLng(ActiveCell.Row)
Set myrange = Range(Cells(numz, 1), Cells(numz, 11))
myrange.Select

Anzeige

338 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige