✔ VBA :: Zellen Schrift information (Excel)

[zioProduct]

Huhu,
das ich mit VB was gemacht habe ist verdammt lange her, ich tummle mich jetzt in der c# Ecke, doch mein jetziger Auftrag will, dass ich wieder mal was mit VB mach

Hier gleich mal mein Code:

 Dim myWs As Worksheet
    Set myWs = Me.Worksheets(1)
    
    Dim value As Double
    Dim mon As Date
    Dim mitarbeiter As String
    Dim auftrag As String
    
    Dim curMon As Integer
    Dim curProj As Integer
    
    curProj = 5
    
    Open "c:\temp\sql.txt" For Output As #1
    
    While curProj <= 609
    
    If myWs.Cells(curProj, colAuftrag) <> myWs.Cells.Font.Bold Then
        
        If myWs.Cells(curProj, colAuftrag) <> "" Then
    
        curMon = colStartMon
        mitarbeiter = myWs.Cells(curProj, colMA)
        auftrag = myWs.Cells(curProj, colAuftrag)
        
        While curMon <= colEndMon
    
             
            value = myWs.Cells(curProj, curMon)
            mon = myWs.Cells(rowMon, curMon)
            
            Dim comment As String
            comment = searchComment(myWs.Cells(curProj, curMon).Address)
            
            If value > 0 Then
                ' Insert into DB oder Textdatei
                Print #1, "INSERT INTO xxx(auftrag,mitarbeiter,monat,kapazitaet,komment) " _
                          ; " VALUES( '" & auftrag & "','" & _
                          mitarbeiter & "','" & _
                          mon & "','" & _
                          CStr(value) & ",'" & _
                          comment & "'"
                       
                          
            End If
            
            curMon = curMon + 1
           
        Wend
        
        Else
        Print #1, "----------------------------------------------------------------"
        End If
        End If
        
        curProj = curProj + 1
        
    Wend
    Close #1

Also, Hauptproblem leigt in dieser Zeile:

    If myWs.Cells(curProj, colAuftrag) <> myWs.Cells.Font.Bold Then

Wie genau muss ich die Abfrage machen, dass er mir überprüft, ob der Text in der aktuellen Zelle Fett ist?

Danke schon mal im vorraus

mfg
ziop

 

[Merlin_78]

Hi,

versuchs mal so:

If myWs.Cells(curProj, colAuftrag).Font.Bold = True Then
....
End If

 

[zioProduct]

Danke funktioniert

mfg
ziop