Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

markierten Bereich formatieren Code verbessern

markierten Bereich formatieren Code verbessern
12.09.2003 09:40:19
Lars Jungclaus
Hallo Experten ich habe ein Makro das einen bzw. mehrere selektierte Bereiche Formatiert. Siehe unten. Nur erscheint mir der Code sehr lang und umständlich - geht das auch kürzer und einfacher ??

Vielen Dank


Sub FettZentrBereich()
Dim i, Ausgewählte_Zellanzahl, oberste_Zeile, linke_Spalte As Integer
Dim oben_links
On Error GoTo FeedBack
Ausgewählte_Zellanzahl = Selection.Areas.Count
ReDim Ausgewähltes_Feld(1 To Ausgewählte_Zellanzahl)
For i = 1 To Ausgewählte_Zellanzahl
Set Ausgewähltes_Feld(i) = Selection.Areas(i)
Next i
For i = 1 To Ausgewählte_Zellanzahl
oberste_Zeile = Ausgewähltes_Feld(i).Row
linke_Spalte = Ausgewähltes_Feld(i).Column
Next i
Set oben_links = Cells(oberste_Zeile, linke_Spalte)
For i = 1 To Ausgewählte_Zellanzahl
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlCenter
Next i
Exit Sub
FeedBack:
If Err = 1005 Then
MsgBox ("Geht nicht in gesperrtem Blatt!")
Else
MsgBox Error(Err)
Resume Next
End If
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: markierten Bereich formatieren Code verbessern
12.09.2003 10:09:33
PeterW
Hallo Lars,

ohne Fehlerabfrage:


Sub Bereich()
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlCenter
End Sub


Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige