Ich sitze so seit Tagen am Problem und probiere alles Mögliche durch, um den Grund für die oben genannte Fehlermeldung zu ergründen.
Ich habe mehrere Monatsblätter, bei denen ich für jeden Kalendertag Einträge einfüge. Dabei habe ich auch eine Spalte "Bemerkungen".
Für die Eingabe nutze ich eine UF mit einigen Steuerelementen, wie TextBoxen und Dropdowns...
Dabei ist auch eine Textbox "Bemerkungen", die mehrzeilig sein soll. Dabei habe ich in den Eigenschaften
MultiLine = True
WordWarp = True
gesetzt.
Mit Schließen der UF werden alle Einträge in die jeweiligen Zellen der aktiven Zeile geschrieben.
Ich habe ein Sub, dass von Josef Ehrensberger stammt (Vielen Dank dafür nochmals), mit dem ich die Einträge exportiere und bei Bedarf wieder importiere.
Export
Sub exportValuesToText(control As IRibbonControl)
Dim vntFile As Variant
Dim wks As Worksheet
Dim rng As Range
Dim ff As Integer
On Error GoTo Fehler
vntFile = Application.GetSaveAsFilename("Werte " & ActiveWorkbook.Worksheets("Gesamtstunden").Cells(25, 2) & ".txt", "Text Files (*.txt), *.txt")
If vntFile > False Then
ff = FreeFile
Open vntFile For Output As #ff
For Each wks In ActiveWorkbook.Worksheets
For Each rng In wks.UsedRange.Cells
If rng.Locked = False And rng.Formula > "" Then
Print #ff, wks.Name & ";" & rng.Address(0, 0) & ";" & rng.Formula
End If
Next
Next
Close #ff
End If
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case Else
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
Close
End Select
End With
Set rng = Nothing
Set wks = Nothing
End Sub
Import
Sub importValuesFromText(control As IRibbonControl)
Dim strFile As String, strTmp As String
Dim ff As Integer, wsheet As Worksheet
On Error GoTo Fehler
strFile = Application.GetOpenFilename("Text Dateien (*.txt),*.txt")
For Each wsheet In ActiveWorkbook.Sheets
wsheet.Unprotect
Next wsheet
If strFile > CStr(False) Then
ff = FreeFile
Open strFile For Input As #ff
Do While Not EOF(ff)
Line Input #ff, strTmp
With Worksheets(Split(strTmp, ";")(0)).Range(Split(strTmp, ";")(1))
.Formula = Split(strTmp, ";")(2)
End With
Loop
Close #ff
End If
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case Else
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
Close
End Select
End With
End Sub
Genau beim Import kommt die Fehlermeldung.
Ich habe nun auch die Spalte "Bemerkungen" nachträglich als Text formatiert und unter "Ausrichtung" den Textumbruch einmal aktiviert oder auch deaktiviert. Alles ohne Erfolg.
Leider kann ich die aktuelle Datei wegen ihrer Größe nicht hochladen. Selbst wenn ich sie auf das Nötigste reduziere, ist sie immer noch zu groß,.
Ich würde gern mehr Informationen bieten und hochladen, ich habe aber dazu noch keine Idee, wie ich das mache.
Vielleicht hat jemand auch so eine Lösung oder einen Tipp hierzu.
Besten Dank für jeden Tipp und/oder Hilfe.
Peer