AW: ich weiß keine Lösung...
17.06.2022 22:11:18
Klaus
Guten Abend Oberschlumpf, ich bin absolut nicht böse und halte mich gerne an die Herbers-Gepflogenheiten, scheitere aber oft an den Rahmenbedingungen : zeitlich begrenzter Zugriff auf die Korrenspondenz, nur 300 k für anzuhängende Daten/Dateien ... Euer Forum - auch die Pingzeiten der immer ! fachkundigen Antworten sind genial. Maybe möge H. Herber auch private Kontaktaufnahmen, gar größere Dateien via ? zulassen. So bin ich leider gezwungen, alles auf ein Mindestmaß zu reduzieren, was unweigerlich mehrere Rückfragen nötig macht, die man nur wieder langatmig Schritt für Schritt beantworten kann. So Thorsten, Dein https://www.herber.de/bbs/user/153610.zip
sollte eine txt/csv https://www.herber.de/bbs/user/153612.txt.
Das tut sie leider nur bedingt. Da werden also Double korrekt mit Komma und NK nach A1 bis I9 gesendet, in versch. Zellen jedoch auch mit Punkt, statt Komma nun Werte als 10^14 eingeschrieben mit MillionenPunkt. Die Idee von Werner - er löste alles über schlichtes Kopieren und Einfügen in eine Textbox, Ctrl c, Ctrl v in die ich aus Win ( XCalcs) elegant und einfach 'reinschreiben konnte. Mit nur einem Klick hatte ich alles mit Komma in A1 - I9 !!! Zwar nicht wirklich verstanden, funzt leider auch nicht immer, abber etwa so :
Private Sub TextBox1_Change()
Dim zeile, Zeilen
Dim Zahl, Zahlen
Dim CalcMem
CalcMem = Application.Calculation
Application.Calculation = xlCalculationManual
Zeilen = Split(TextBox1.Text, vbCr)
For zeile = 1 To UBound(Zeilen) + 1
Zahlen = Split(Zeilen(zeile - 1), ",")
For Zahl = 1 To UBound(Zahlen) + 1
' da meckert der Debugger oft :
Me.Cells(zeile, Zahl) = CDbl(Replace(Zahlen(Zahl - 1), ".", ","))
Next
Next
Application.EnableEvents = False
' warum soll ich die Box löschen ? Ist doch eine gute Gedächtnisstütze
TextBox1.Text = ""
Application.EnableEvents = True
Application.Calculation = CalcMem
End Sub