Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel_Kommentar_Text suchen und formatieren

Excel_Kommentar_Text suchen und formatieren
20.09.2018 15:19:36
Oliver
Hallo,
es sind auf einem Tabellenblatt in verschiedenen Zellen via VBA Kommentarfelder angelegt worden. Diese Kommentarfelder sind alle gleich aufgebaut:
Beschreibung: (hier folgt ein beliebiger Text mit beliebiger Länge)
Modifikation: (hier folgt ein beliebiger Text mit beliebiger Länge)
Teile / Generationsstand: (hier folgt ein beliebiger Text mit beliebiger Länge)
Teile erhalten am: (hier folgt ein beliebiger Text mit beliebiger Länge)
Teilenummer: (hier folgt ein beliebiger Text mit beliebiger Länge)
Zeichnungsstand: (hier folgt ein beliebiger Text mit beliebiger Länge)
Geometriestand: (hier folgt ein beliebiger Text mit beliebiger Länge)
Lieferant: (hier folgt ein beliebiger Text mit beliebiger Länge)
Werkstoff: (hier folgt ein beliebiger Text mit beliebiger Länge)
Ich möchte, dass der Text jeweils vor dem „:“ immer „Fett“ dargestellt wird und der Text dahinter „Normal“. Die Zeilen stehen durch ein „Enter“ bzw. Chr(10) untereinander.
Aktuell kann ich den ganzen Text im Kommentar „fett“ oder in „normaler“ Schriftstärke darstellen. Mit dem folgenden Bereich:
With Sheets("Inhalt").Cells(i, s)
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
With .Comment
.Visible = False
.text text:= _
Sheets(Tabelle.Name).Cells(2, 2) & ": " & Sheets(Tabelle.Name).Cells(t, 2) & Chr(10) & _
Sheets(Tabelle.Name).Cells(2, 3) & ": " & Sheets(Tabelle.Name).Cells(t, 3) & Chr(10) & _
Sheets(Tabelle.Name).Cells(2, 4) & ": " & Sheets(Tabelle.Name).Cells(t, 4) & Chr(10) & _
Sheets(Tabelle.Name).Cells(2, 5) & ": " & Sheets(Tabelle.Name).Cells(t, 5) & Chr(10) & _
Sheets(Tabelle.Name).Cells(2, 6) & ": " & Sheets(Tabelle.Name).Cells(t, 6) & Chr(10) & _
Sheets(Tabelle.Name).Cells(2, 7) & ": " & Sheets(Tabelle.Name).Cells(t, 7) & Chr(10) & _
Sheets(Tabelle.Name).Cells(2, 8) & ": " & Sheets(Tabelle.Name).Cells(t, 8) & Chr(10) & _
Sheets(Tabelle.Name).Cells(2, 9) & ": " & Sheets(Tabelle.Name).Cells(t, 9) & Chr(10) & _
Sheets(Tabelle.Name).Cells(2, 10) & ": " & Sheets(Tabelle.Name).Cells(t, 10)
.Shape.DrawingObject.Font.FontStyle = "Normal"
.Shape.DrawingObject.Font.Size = 8
.Shape.DrawingObject.Font.Name = "Arial"
.Shape.TextFrame.AutoSize = True
End With
End With
Gibt es eine Möglichkeit z.B. über ein Array die Textbausteine „Beschreibung:“, „Modifikation:“, „Teile / Generationsstand:“ usw. im Kommentarfeld zu suchen und dann nacheinander "fett" zu formatieren?
Vielen Dank vorab für Eure Hilfe.

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .Character
20.09.2018 15:32:44
Fennek
Hallo,
versuche es mit der genannten Funktion, also zuerst die Position des vbcrlf und des ":" bestimmen und dann .Character(von, bis).bold = true
Könnte etwas mühsam werden ...
mfg
AW: .Character
20.09.2018 15:39:47
Oliver
Hallo Fennek,
leider habe ich nicht ganz verstanden wie Deine Lösung einzeln für die Zeilen anzuwenden ist.
Kannst Du bitte ein Beispiel für zwei Zeilen angeben.
Danke.
Gruß
Oliver
AW: unsachliche Anwort
20.09.2018 16:20:35
Fennek
Hallo,
der Zugriff auf die Formatierung einzelner Buchstaben geht mit:

with Range("A1").comment
.Shape.TextFrame.Characters(anfang, anzahl).Font.Bold= true
end with
Mach was damit.
mfg
Anzeige
AW: unsachliche Anwort
20.09.2018 16:45:00
Oliver
Hallo,
danke für die Info. Wie bestimme ich aber damit den Anfang der 2, 3, 4 usw. Zeile im Kommentarfeld bei unterschiedlichen Zeichenlängen pro Zeile im Kommentarfeld?
Wie kann ich den jeweiligen Zeilenanfang in dem Kommentarfeld finden?
Gruß
AW: unsachliche Anwort
20.09.2018 16:58:29
Zwenn
Hi Oliver,
mit der Funktion instr() kannst bekommst Du den Index des ersten Zeichens deines Suchstrings in einem längeren String zurück geliefert:
http://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/instr-function?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dde-DE%26k%3Dk(vblr6.chm1008946)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue
Mit der Funktion len() bekommst Du die Länge eines Strings zurück geliefert.
Ich gehe mal davon aus, dass deine fett zu schreibenden Begriffe in Deinem sonstigen Text nicht noch einmal vorkommen, auf jeden Fall nicht mit dem Doppelpunkt dahinter. Dann müsstest Du Fenneks Code so erweitern, um z.B. Teilenummer: im Kommentar in Zelle A1 fett darzustellen (ungetestet): 

with Range("A1").comment
anfang = instr(1, .Text, "Teilenummer:")
anzahl = len("Teilenummer:")
.Shape.TextFrame.Characters(anfang, anzahl).Font.Bold= true
end with

Viele Grüße,
Zwenn
Anzeige
AW: Trauma
20.09.2018 17:10:33
Fennek
@Zwenn,
seitdem mich im Kindergarten die Frau wegen einer schlechten Zeichnung angemeckert hat, habe ich ein "Kunstlehrer-Trauma",dass auch auf "schöne" Formatierungen abfärbt (+ "nice-to-have").
Der Fragesteller braucht aber noch einer Schleife, die abwechselnd nach ":" und vbcrlf sucht. Aber irgendetwas muss er ja auch können.
mfg
AW: Excel_Kommentar_Text suchen und formatieren
20.09.2018 19:25:15
Sepp
Hallo Oliver,
ungetestet!
  Dim lngStart As Long, lngEnd As Long
  
  With Sheets("Inhalt").Cells(i, s)
    If Not .Comment Is Nothing Then .Comment.Delete
    .AddComment
    With .Comment
      .Visible = False
      .Text Text:= _
        Sheets(Tabelle.Name).Cells(2, 2) & ": " & Sheets(Tabelle.Name).Cells(t, 2) & Chr(10) & _
        Sheets(Tabelle.Name).Cells(2, 3) & ": " & Sheets(Tabelle.Name).Cells(t, 3) & Chr(10) & _
        Sheets(Tabelle.Name).Cells(2, 4) & ": " & Sheets(Tabelle.Name).Cells(t, 4) & Chr(10) & _
        Sheets(Tabelle.Name).Cells(2, 5) & ": " & Sheets(Tabelle.Name).Cells(t, 5) & Chr(10) & _
        Sheets(Tabelle.Name).Cells(2, 6) & ": " & Sheets(Tabelle.Name).Cells(t, 6) & Chr(10) & _
        Sheets(Tabelle.Name).Cells(2, 7) & ": " & Sheets(Tabelle.Name).Cells(t, 7) & Chr(10) & _
        Sheets(Tabelle.Name).Cells(2, 8) & ": " & Sheets(Tabelle.Name).Cells(t, 8) & Chr(10) & _
        Sheets(Tabelle.Name).Cells(2, 9) & ": " & Sheets(Tabelle.Name).Cells(t, 9) & Chr(10) & _
        Sheets(Tabelle.Name).Cells(2, 10) & ": " & Sheets(Tabelle.Name).Cells(t, 10)
      .Shape.DrawingObject.Font.FontStyle = "Normal"
      .Shape.DrawingObject.Font.Size = 8
      .Shape.DrawingObject.Font.Name = "Arial"
      .Shape.TextFrame.AutoSize = True
      Do
        lngStart = lngStart + 1: lngEnd = InStr(lngStart, .Text, ":")
        If lngEnd > 0 And lngEnd > lngStart Then
          .Characters(lngStart, lngStart + lngEnd).Font.Bold = True
        End If
        lngStart = InStr(lngEnd, .Text, Chr(10))
      Loop While lngStart > 0
    End With
  End With


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Excel_Kommentar_Text suchen und formatieren
21.09.2018 14:16:41
Oliver
Hallo Sepp,
danke für Deinen Code.
Leider steigt dieser bei
.Characters(lngStart, lngStart + lngStart + lngEnd).Font.Bold = True
mit der Meldung: "Laufzeutfehler 438: Dieser Objekt untertützt diese Eigenschaft der Methode nicht" aus.
Ich habe darauf hin die Zeile
.Characters(lngStart, lngStart + lngStart + lngEnd).Font.Bold = True
in
.Shape.DrawingObject.Characters(lngStart, lngStart + lngEnd).Font.Bold = True
umbenannt.
Leider wird hier nur für die erste Zeile im Kommentar alles richtig formatiert. Die anderen Zeilen sind dann alle Fett geschrieben.
Woran kann das liegen, die Werte lngStart und lngEnd sind jeweils richtig.
Danke.
Anzeige
AW: Excel_Kommentar_Text suchen und formatieren
21.09.2018 19:12:05
Sepp
Hallo Oliver,
probier maql
.TextFrame.Characters(lngStart, lngStart + lngEnd).Font.Bold = True
ansonsten lade eine kleine Beispieldatei hoch.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Excel_Kommentar_Text suchen und formatieren
25.09.2018 13:10:08
Oliver
Hallo Sepp,
danke für Deien Antwort. Wenn ich die Zeile einsetzte bekomme ich leider den Fehler:
"Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht"
Anbei meine Beispieldatei: https://www.herber.de/bbs/user/124204.xlsm
Danke und Gruß
Oliver
AW: Excel_Kommentar_Text suchen und formatieren
25.09.2018 19:38:38
Sepp
Hallo Oliver,
                    Do
                      lngStart = lngStart + 1: lngEnd = InStr(lngStart, .text, ":")
                      If lngEnd > 0 And lngEnd > lngStart Then
                        .Shape.TextFrame.Characters(lngStart, lngEnd - lngStart + 1).Font.Bold = True
                      End If
                      lngStart = InStr(lngEnd, .text, Chr(10))
                    Loop While lngStart > 0


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
Drucker
25.09.2018 19:42:08
VW
\ \ v w a g w o q 0 0 p 0 2 . w o b . v w . v w g \ P r i n
AW: Excel_Kommentar_Text suchen und formatieren
26.09.2018 10:34:57
Oliver
Hallo Sepp,
danke jetzt funktioniert es.
Gruß

301 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Anzeige
Text_Zahlenwert suchen und Zahlen "ablegen"
Lemmi

Hallo zusammen,
ich möchte aus einer drei spaltigen Tabelle Zahlen auslesen, die dann Monatsweise abgelegt werden sollen!
Es soll immer nach einem " Schlüsselwort" (...kann auch eine x beliebige Zahlfolge in der Benennungsliste sein) die Auslesung der Zahlenwerte durchgeführt werden.
03.01.2009 22:11:00
Thread-ID: 1036655
4 Beiträge
Text und Zahlen teilen
Bernie

Hallo Leute,
ich suche ganz dringen nach einem Makro, mit dem ich aus einer Tabelle mit Straßennamen - diese sind oft chaotisch geschrieben- z.B. Bahnhofstraße45A
a) die Straße in eine Spalte
b) die Hausnummer (mit A usw.) in eine Spalte
ausgeben kann.
Hat jemand ein zünd...
05.03.2009 14:39:23
Thread-ID: 1056861
7 Beiträge
Text durchsuchen und Teile herauskopieren
Andy

Schönen guten Abend!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere F...
17.03.2009 20:40:05
Thread-ID: 1061211
3 Beiträge
Text durchsuchen und Ergebnisse herauskopieren
Andy

Schönen guten Tag!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere Fel...
18.03.2009 11:09:52
Thread-ID: 1061327
2 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
4
2
2
3
6
2
1
2
6
1
2
7
3
5
3
5
5
7
10
5
3
4
6