Moin!
ich habe eine Funktion für das Befüllen einer Zelle innerhalb einer VB.net-Anwendung nach Excel.
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
ich habe eine Funktion für das Befüllen einer Zelle innerhalb einer VB.net-Anwendung nach Excel.
VB.NET-Quellcode
- Public Function String2CellFormatString(ByRef sheet As Excel.Worksheet, ByVal Zeichenkette As String)
- Dim Step_Column As Integer = 1
- Dim Step_Row As Integer = 0
- Try
- If String.IsNullOrEmpty(Zeichenkette) = False Then
- sheet.Range(Ziffer2ExcelColumn(_CurrentColumn) & _CurrentRow).Value = Zeichenkette
- Dim r As Excel.Range
- r = sheet.Range(Ziffer2ExcelColumn(_CurrentColumn) & _CurrentRow)
- r.Value = Zeichenkette
- r.NumberFormat = "@"
- End If
- ' sheet.Range(Ziffer2ExcelColumn(_CurrentColumn) & _CurrentRow)
- Return MoveCellPosition(Step_Column, Step_Row)
- Catch ex As Exception
- _SimpleMsg.Show("unerwarteter Fehler in EBL.Service > cls_ExcelWrite > String2Cell - (short-excel)" &
- "Zeichenkette:= " & Zeichenkette & vbCrLf &
- "_CurrentColumn:= " & _CurrentColumn & vbCrLf &
- "_CurrentRow:= " & _CurrentRow & vbCrLf, ex.ToString)
- End Try
- Return False
- 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