Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit Umbruch formatieren: nur die erste

Zellen mit Umbruch formatieren: nur die erste
Joachim
Hallo,
ich formatiere mit einer Schleife alle Einträge auf Schriftart = FETT:
For i = 5 To 100
If ActiveSheet.Cells(i, 1).Value "" Then
Cells(i, 3).Select
Selection.Font.Bold = True
End If
Next i
Nun habe ich aber ein Spalte, da sind in der Zelle die Informationen durch einen Umbruch getrennt:
Firma XYZ
Code: ABC
Termin: 01.11.2009
Ich möchte mit meiner Schleife aber nur die erste Zeile Fett machen, wie oben angedeutet. Wie mcht man sowas ?
Danke Joachim

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Umbruch automatisch oder von Hand
18.11.2009 10:41:13
Hand
Hallo,
ist der Umbruch von Hand eingegeben oder automatisch durch die Einstellung Zeilenumbruch entstanden.
Ist dieser automatisch eingefügt, sehe ich keine Möglichkeit.
Gruß Tino
AW: Umbruch automatisch oder von Hand
18.11.2009 10:48:52
Hand
Hi Tino,
das sind Daten , die aus einer SAP Maschine kommen, das ist dieser Umbruch mit drin. Ist also nicht von Hand gemacht.
Wenn dies so nicht möglich sein sollte, kann man den Bereich eingrenzen bis zum Wort "CODE". Die zweite Zeile beginnt immer mit "Code"
Gruss
Joachim
AW: Umbruch automatisch oder von Hand
18.11.2009 11:01:56
Hand
Hallo,
versuche es mal so, ich stelle noch die Farbe ein kannst Du ja rauslöschen.
Sub TextHervorheben()
Dim Zelle As Range
Dim objMatch As Object, Regex As Object
Dim SuchBereich As Range
Dim iColor As Integer

'Bereich anpassen 
Set SuchBereich = Sheets("Tabelle1").Range("C5:C100")
'Farbe einstellen 
iColor = 7

Application.ScreenUpdating = False

    Set Regex = CreateObject("Vbscript.Regexp")
    With Regex
        .IgnoreCase = False
        .MultiLine = True
        .Pattern = "[ |\w]{1,}"
        .Global = True
    End With
    
    With SuchBereich.Font
     .ColorIndex = 0
     .Bold = False
    End With
        
    For Each Zelle In SuchBereich  'Zellbereich angeben 
      If Zelle.Text <> "" Then
        Set objMatch = Regex.Execute(Zelle.Text)
        If Not objMatch Is Nothing Then
            With Zelle.Characters(objMatch(0).FirstIndex + 1, Len(objMatch(0))).Font
             .ColorIndex = iColor
             .Bold = True
            End With
            Set objMatch = Nothing
        End If
       End If
    Next Zelle

Application.ScreenUpdating = True
End Sub
Gruß Tino
Anzeige
besser wäre villeicht.
18.11.2009 14:11:54
Tino
Hallo,
bei .Pattern diesen String zu verwenden.
.Pattern = "\S{1,}"
Alle sichtbaren Zeichen bis zum ersten nicht sichtbaren Zeichen.
Gruß Tino
Danke Tino, funktioniert wunderbar :-)
18.11.2009 20:32:53
Joachim
AW: Zellen mit Umbruch formatieren: nur die erste
18.11.2009 11:01:47
Oberschlumpf
Hi Joachim
Ersetz deinen Code mal durch diesen: 

Dim liFett As Integer
For i = 5 To 100
If ActiveSheet.Cells(i, 1).Value  "" Then
liFett = InStr(LCase(Cells(i, 3).Value), "code")
If liFett > 0 Then
Cells(i, 3).Characters(Start:=1, Length:=liFett _
- 1).Font.FontStyle = "Fett"
Else
Cells(i, 3).Font.Bold = True
End If
End If
Next i

Hilfts?
Ciao
Thorsten
Danke, funktioniert auch perfekt :-)
18.11.2009 20:34:07
Joachim

307 Forumthreads zu ähnlichen Themen

Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Zeilenumbruch, wenn Textbox in Mail eingefügt wird
a_ke

Hallo,
ich versende mit dem folgenden Code ( von Rene Holtz - Danke !!!)
eine Mail mit Outlook.
Private Sub CommandButton2_Click() '* 11.01.2008, 15:50:00 * '* erstellt von Rene Holtz, http://www.rholtz-office.de _ a> '* rene.holtz@rholtz-office....
05.09.2008 12:00:39
Thread-ID: 1007636
4 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 Beiträge
csv-Datei öffnen + Daten gleich in Spalten
Hermann

Hallo,
auf meinem alten PC konnte ich csv-Dateien öffnen, so dass die durch Kommata getrennte Texte gleich in Spalten einsortiert wurden. Dazu öffnete ich zuerst eine EXCEL-datei und klickte dann die csv-datei an.
Das geht jetzt bei meinem neuen PC nicht auf Anhieb. Warum?
Wie kann...
14.11.2008 14:42:00
Thread-ID: 1024599
7 Beiträge
Anzeige

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
14
3
3
2
2
6
3
2
2
6
2
11
5
5
1
4
3
6
4
4
13
6
5
5
5