Microsoft Excel

Herbers Excel/VBA-Archiv

Nur Text fett formatieren

    Betrifft: Nur Text fett formatieren von: Rainer
    Geschrieben am: 01.09.2003 08:09:35

    Guten Morgen !

    Ich habe in einer Tabelle in Spalte A Texte und Zahlen stehen. Wie kann ich nun mit VBA erreichen das die Texte fett formatiert werden ? Die Anzahl der Zeilen ändert sich wöchentlich und die Texte stehen nicht immer in der gleichen Zeile.

    Gruß
    Rainer

      


    Betrifft: AW: Nur Text fett formatieren von: Andi_H
    Geschrieben am: 01.09.2003 08:14:32

    hi rainer,
    habs nicht getestet aber müsste klappen.

    Sub txt_markieren()
    
    dim i as integer
    for i = 1 to cells(65000,1).end(xlup).row
    if not isnumeric(cells(i,1)) then
    cells(i,1).font.bold = true
    else 
    cells(i,1).font.bold = false
    end if
    next
    End Sub
    


    gruß

    andi


      


    Betrifft: AW: Nur Text fett formatieren von: Rainer
    Geschrieben am: 01.09.2003 08:16:56

    Hallo Andi

    vielen Dank für Deine schnelle Hilfe !
    Werde das sofort mal einbauen.

    Gruß
    Rainer


      


    Betrifft: AW: Nur Text fett formatieren von: Hajo_Zi
    Geschrieben am: 01.09.2003 08:19:24

    Hallo Rainer

    das geht noch ohne VBa. Format, Bedingte Formatierung; Formel ist =TYP(B1)=2

    Gruß Hajo


      


    Betrifft: AW: Nur Text fett formatieren von: Marcus Rose
    Geschrieben am: 01.09.2003 08:26:24

    Guten morgen Hajo,

    habe gerade mal Deinen Tip ausprobiert. Dabei wird aber nicht nur der Text, sondern auch die Zahl fett. Mache ich da etwas falsch?



    Gruß Marcus

    Die neue Excel-Homepage für Anfänger


      


    Betrifft: AW: Nur Text fett formatieren von: Hajo_Zi
    Geschrieben am: 01.09.2003 08:29:21

    Hallo Marcus

    gerade so komplizierte Sachverhalte Teste ich immer.

    https://www.herber.de/bbs/user/803.xls

    getestet unter 2000

    Gruß Hajo


      


    Betrifft: AW: Nur Text fett formatieren von: Marcus Rose
    Geschrieben am: 01.09.2003 08:35:52

    Danke Hajo,

    daran habe ich gemerkt, dass ich die Frage falsch verstanden hatte. Ich hatte das so verstanden, dass wenn ich z.B. FALL 1 eintippe der Fall Fett ist und die 1 normal. Bei Dir erscheint das selbe Ergebnis wie bei mir: Alles Fett. Somit habe ich falsch gedacht und Dein Tip kommt =ISTTEXT($A$2) gleich.
    Danke Dir für die Rückmeldung.



    Gruß Marcus

    Die neue Excel-Homepage für Anfänger


      


    Betrifft: AW: Nur Text fett formatieren von: KrickelD
    Geschrieben am: 01.09.2003 08:20:28

    Probiers mal hiermit:

    Sub rainer()
    
    Dim i As Integer
    i = 1
    
    Do While Range("A" & i).Value <> ""
    
        If Not IsNumeric(Range("A" & i).Value) Then
                Rows(i & ":" & i).Font.Bold = True
        End If
        
        i = i + 1
    
    Loop
    
    End Sub
    



    mfg KrickelD


      


    Betrifft: AW: Nur Text fett formatieren von: Rainer
    Geschrieben am: 01.09.2003 08:24:57

    Hallo Hajo, Hallo KrickelD,

    auch Euch vielen Dank für die Tips.

    Gruß
    Rainer


      


    Betrifft: Danke für die Rückmeldung oT von: Hajo_Zi
    Geschrieben am: 01.09.2003 08:30:18




     

    Beiträge aus den Excel-Beispielen zum Thema " Nur Text fett formatieren"