Office: Mehrspaltige Listbox Ausgabe verändert Werte

Hallo Zusammen

Für Eure Hilfe wäre ich dankbar!!!

Ich lese folgende Werte mit einem Array in eine Listbox ein:

1002 602'760.400 204'341.311
1003 602'756.752 204'339.708
1004 602'755.632 204'344.459


Nach der Ausgabe kommen sie aber so heraus:

1002.000 602760,4 204341311.000
1003.000 602756752.000 204339708.000
1004.000 602755632.000 204344459.000

Ausgabe erfolgt so:

PHP:

Private Sub cmd_Übernehmen1_Click()
Dim iRow As Integer
Dim letzte As Long
Dim bytZ As Byte
Dim intZ As Integer
    intZ = 1
    
        With Worksheets("Setup 1")
            letzte = .Cells(.Rows.Count, 2).End(xlUp).Row
            .Range("A2:D" & letzte).ClearContents
           
            
            For iRow = 1 To ListBox2.ListCount - 1
                
                    For bytZ = 1 To 3
                    .Cells(intZ + 1, bytZ + 1).Value = ListBox2.List(iRow, bytZ - 1)
                    
                    Next bytZ
                    intZ = intZ + 1
               
            Next iRow
        End With
End Sub


Was hab ich flschverstanden, bzw übersehen?
Im ANhang eine Beispieldatei.

Danke schon für Euer Darübernachdenken....
Gruss Johannes

 

Hallo nanuuq,

die Zahlen liegen in der Listbox als Texte vor, Du kannst ein Umwandlung auch im Code vornehmen.
Statt Deiner Zeile, dann diese hier:

Code:

.Cells(intZ + 1, bytZ + 1).Value = CDbl(ListBox2.List(iRow, bytZ - 1))

Gruß

 

Hallo maninweb

Danke für den Hinweis.
Aber da gibt er mir dann den Fehler "Typen unverträglich".

Müsste ich nicht von vornherein das für meine Listboxen oder das Array festlegen? DIe eingelesenen Zahlen haben ja den Punkt als Komma, in der ListBox ist es dann wieder ein Komma....

Ein Array kann ich doch nicht als Dbl deklarieren oder?
Gruss

 

Hallo nanuuq,

der Code oben ging davon aus, dass auch nur Zahlen in der Listbox enthalten bzw. die Einträge nicht leer sind. In Deiner Beispieldatei funktioniert's das bei mir. Anbei Deine Beispieldatei, wo per IsNumeric (vereinfachte Methode) abgefragt wird, ob der Inhalt eines ListBox-Eintrags eine Zahl ist.

Gruß

 

Hallo maninweb

Im Prinzip sollen das auch nur Zahlen sein und leere einträge solten nicht vorhanden sein....Dann muss ich dort mal ansetzen zu suchen.
Werde deine Beispieldatei gleich mal ausprobieren...
Danke

 

Wenn ich deine Datei laufen lasse, schreibt er mir nur die 4stellige PunktNr der ersten Spalte raus. Wenn das bei dir funktioniert, ist bei mir wohl irgendeine Einstellung anders.