Length:=3).Font.Bold = False

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CMR_Mitte_Hannover() With Selection.Interior .ColorIndex = 44 End With For Each Item In Selection ActiveCell.Offset(0, 0).Interior.ColorIndex = 44 ActiveCell.Offset(1, 0).Characters.Font.Bold = False ActiveCell.Offset(1, 0).Value = "Ereignismeldung der CMR Mitte/Hannover vom " & Format(Now(), " _ dd.mm.yyyy hh:mm ") & "Uhr" & " Störfallnr.: N " ActiveCell.Offset(1, 0).Characters.Font.Bold = True ActiveCell.Offset(2, 0).Characters(Start:=1, Length:=21).Font.Bold = False ActiveCell.Offset(2, 0).Value = "Zeitpunkt: Uhr" ActiveCell.Offset(2, 0).Characters(Start:=1, Length:=21).Font.Bold = True ActiveCell.Offset(3, 0).Characters(Start:=1, Length:=3).Font.Bold = False ActiveCell.Offset(3, 0).Value = "Ort: " ActiveCell.Offset(3, 0).Characters(Start:=1, Length:=3).Font.Bold = True ActiveCell.Offset(4, 0).Characters(Start:=1, Length:=7).Font.Bold = False ActiveCell.Offset(4, 0).Value = "Strecke: " ActiveCell.Offset(4, 0).Characters(Start:=1, Length:=7).Font.Bold = True ActiveCell.Offset(5, 0).Characters(Start:=1, Length:=8).Font.Bold = False ActiveCell.Offset(5, 0).Value = "Ereignis: " ActiveCell.Offset(5, 0).Characters(Start:=1, Length:=8).Font.Bold = True ActiveCell.Offset(6, 0).Characters(Start:=1, Length:=7).Font.Bold = False ActiveCell.Offset(6, 0).Value = "Schäden: " ActiveCell.Offset(6, 0).Characters(Start:=1, Length:=7).Font.Bold = True ActiveCell.Offset(7, 0).Characters(Start:=1, Length:=9).Font.Bold = False ActiveCell.Offset(7, 0).Value = "Sonstiges: " ActiveCell.Offset(7, 0).Characters(Start:=1, Length:=9).Font.Bold = True ActiveCell.Offset(8, 0).Characters(Start:=1, Length:=23).Font.Bold = False ActiveCell.Offset(8, 0).Value = "Auswirkung auf DB Cargo: " ActiveCell.Offset(8, 0).Characters(Start:=1, Length:=23).Font.Bold = True ActiveCell.Offset(9, 0).Characters(Start:=1, Length:=32).Font.Bold = False ActiveCell.Offset(9, 0).Value = "Eingeleitete Maßnahmen CLZ/PZ/CZ: " ActiveCell.Offset(9, 0).Characters(Start:=1, Length:=32).Font.Bold = True ActiveCell.Offset(10, 0).Characters(Start:=1, Length:=17).Font.Bold = False ActiveCell.Offset(10, 0).Value = "L.CBO 4-Maßnahmen: Auszug an KS " ActiveCell.Offset(10, 0).Characters(Start:=1, Length:=17).Font.Bold = True ActiveCell.Offset(11, 0).Interior.ColorIndex = 44 ActiveCell(1 + 1).Select Next 'ActiveSheet.EnableAutoFilter = True 'ActiveSheet.Protect Password:="123", Contents:=True, userInterfaceOnly:=True End Sub

…Klaus:
1. For Each Item In Selection
Eine Selection kann alles Mögliche sein, aber hier wird wohl ein ZellBereich selektiert. Folglich sollte sicherheitshalber In ActiveWindow .RangeSelection verwendet wdn. Noch besser wäre es, wenn der gesamte Bereich vorgegeben wdn kann. Das kann man auch leicht änderbar gestalten, indem man einen benannten definierten Bereich und hier nur dessen Namen verwendet, bspw so: For Each Item In Range("relevanterBereich")
2. Wenn man nun schon einen Zyklus mit einer LaufVariable verwendet, warum wird die dann hier innerhalb des Zyklus nicht ein einziges Mal benutzt‽ Das lässt auf große Lücken beim allgemeinen Verständnis von Programmierung schließen, denn Zyklen (Schleifen) gehören zu deren grundlegenden Bestandteilen! (Dazu mehr unter 4.)
3. Es bringt nichts, in einer leeren Zelle einem bestimmten Abschnitt eines (nicht vorhandenen!) Textes irgendeine Eigenschaft zuordnen zu wollen. Das ist wirkungslos! Es reicht, das für die ganze Zelle zu tun und nach ihrer Vorbelegung mit einem Text diesen dann zu formatieren. Fktioniert das nicht wie gewünscht, weil deine Xl-Version die Einschränkung ignoriert, kann aber auch umgekehrt verfahren wdn und ab der Position nach dem : explizit .Font.Bold = False gesetzt wdn. Es könnte aber auch sein, dass deine XL-Version ein einfaches Leerzeichen nicht als relevant für einen Wechsel des ZeichenFormats erachtet und den deshalb ignoriert (s. auch 5.!).
4. Eine Schleife ist hier also sinnlos, es sei denn, man würde die (als Range oder Variant deklarierte!) LaufVariable auch benutzen. Das wäre hier bei den regelmäßigen Abständen durchaus möglich. Man müsste nur noch alle Vortexte in ein Array stecken und den jeweils zutreffenden Text per in der Schleife mitlfd Index entnehmen und die Position im Text, ab der der Text nicht mehr Fett sein soll, über Len(Item)-1 ermitteln.
5. Das manuelle Nachsetzen eines Textes in den vorbetexteten Zellen sollte fktionieren, wenn der zusätzliche Text tatsächlich nach dem Leerzeichen eingefügt wird. Anderenfalls ignoriert deine Xl-Version den FormatWechsel und du musst ein anderes Zeichen (zusätzlich) wählen, dass dann durch den neuen Text ersetzt (zB manuell durch Überschreiben, mit Makro per Replace- oder Mid-Methode (nicht -Funktion!) wdn muss, zB #.
Da du aber diese Fortsetzungstexte per Makro setzen willst, kommt es ganz darauf an, was dieses Makro mit der Zelle macht. Der ZusatzText müsste dann nämlich auch genau nach dem letzten Vortext-Zeichen (also bisher Leerzeichen) angefügt wdn. Wird aber der neue Text nur mit dem vorhandenen kombiniert und dann in Gänze zurückgeschrieben, gilt nur noch die Formatierung vom TextAnfang (für den GesamtText)!
Allerdings halte ich diese Verfahrensweise ohnehin für umständlich. Es wäre zu überlegen, ob nicht auch der Vortext (dessen Länge ja über seine Vorgabe feststellbar ist) gleichzeitig mit dem ZusatzText in die Zellen geschrieben wdn kann. Wobei natürlich der bereits gemachte Vorschlag, den Vortext als KopfText verschiedener Spalten zu verwenden, eine Option wäre, wenn es dadurch nicht zu einer deutlichen Längung der Tabelle kommt (Spalten ggf nur als Einrückung verwenden).
Luc :-?

ActiveCell.Offset(3, 0).Characters(Start:=1, Length:=3).Font.Bold = False' FETT "einschalten" _ ActiveCell.Offset(3, 0).Value = "Ort: " ActiveCell.Offset(3, 0).Characters(Start:=1, Length:=3).Font.Bold = True'FETT wieder "ausschalten"

Beliebteste Forumthreads (12 Monate)

32 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread