Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

markierten Bereich bearbeten

markierten Bereich bearbeten
25.10.2005 00:14:21
michael
Hallo,
kann leider das folgende Problem nicht in VBA umsetzen.
In jeder Zelle steht ein Buchstabe s, b, h, k.
Ich markiere einen Bereich z.B. Range("D9:J9").Select oder Range("D9:J11").Select.
Nun soll im markierten Bereich das s und b fett formatiert werden.
Wie gehe ich vor.
Läßt sich die selectierte Range a) als ganzes abarbeiten oder
muss man b) eine Schleife daraus machen.
a) keine Idee wie der Code aussehen könnte
b) wie bestimme ich den Anfangswert und Endwert meiner Schleife. Wie erhöhe ich schrittweise von D nach J? oder im 2. Fall wie bestimme ich den Zeilen- und den Spalten-anfangwert und -endwert?
Danke und viele Grüße
Michael

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

Betreff
Datum
Anwender
Anzeige
AW: markierten Bereich bearbeten
25.10.2005 01:17:07
Matthias
Hallo Michael,

Sub test()
Dim z As Range, ber As Range
Set ber = Range("D9:J9") 'statt Select, ansonsten: Set ber = Selection
Application.ScreenUpdating = False
For Each z In ber
Select Case z.Value
Case "s", "b"
z.Font.Bold = True
Case Else
z.Font.Bold = False
End Select
Next z
Application.ScreenUpdating = True
End Sub

Gruß Matthias
AW: markierten Bereich bearbeten
25.10.2005 01:36:58
michael
wow, vielen Dank Matthias,
werd es aber erst später am Morgen ausprobieren können...
Viele Grüße
Michael
klasse -danke!!
25.10.2005 12:01:19
michael
funktioniert perfekt!
Viele Grüße
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige