Excel-Schreiben mit Zellenformat Zeichenkette

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von HenryV.

    Excel-Schreiben mit Zellenformat Zeichenkette

    Moin!

    ich habe eine Funktion für das Befüllen einer Zelle innerhalb einer VB.net-Anwendung nach Excel.

    VB.NET-Quellcode

    1. Public Function String2CellFormatString(ByRef sheet As Excel.Worksheet, ByVal Zeichenkette As String)
    2. Dim Step_Column As Integer = 1
    3. Dim Step_Row As Integer = 0
    4. Try
    5. If String.IsNullOrEmpty(Zeichenkette) = False Then
    6. sheet.Range(Ziffer2ExcelColumn(_CurrentColumn) & _CurrentRow).Value = Zeichenkette
    8. Dim r As Excel.Range
    9. r = sheet.Range(Ziffer2ExcelColumn(_CurrentColumn) & _CurrentRow)
    10. r.Value = Zeichenkette
    11. r.NumberFormat = "@"
    12. End If
    14. ' sheet.Range(Ziffer2ExcelColumn(_CurrentColumn) & _CurrentRow)
    16. Return MoveCellPosition(Step_Column, Step_Row)
    17. Catch ex As Exception
    18. _SimpleMsg.Show("unerwarteter Fehler in EBL.Service > cls_ExcelWrite > String2Cell - (short-excel)" &
    19. "Zeichenkette:= " & Zeichenkette & vbCrLf &
    20. "_CurrentColumn:= " & _CurrentColumn & vbCrLf &
    21. "_CurrentRow:= " & _CurrentRow & vbCrLf, ex.ToString)
    22. End Try
    23. Return False
    24. End Function


    Das Problem ist nun, wenn der Wert auch als Datum interpretiert werden könnte. Dann wandelt Excel diesen auch um.

    Nun hatte ich mir überlegt dieses entsprechend anzupassen, wie in Zeile 11 - aber das klappt nicht.

    Kann mir einer weiterhelfen??

    Gruß Jan

Facebook
Telefonspende