Office: (Office 2013) Listbox ausgabe in Tabelle ändert Zahlen

Hallo Zusammen,

Habe eine 3 spaltige listbox welche daten (Artikrl, Bez, Text) an Tabelle3 ( gleicher wks)übergibt.
Hierbei macht mir der Lagerplatz Probleme der dummerweise so ausschaut 11-04-03 (Regal , Reihe , Platz).
Nun gibt er trotz diverser formatierungsversuche(u.a. Worksheets("Tabelle3").Columns("C").NumberFormat ) einige als andere Zahlen (zb 37198)aus.
Hat jemand von euch eine Idee wo ich hier ansetzen kann/sollte?
Kann ich beim füllen der LB evt. bereits die 3te spalte als STR einlesen? Habe ich immo so gelöst:

With Me.lbVorschau

For i = 2 To leZe
If sh.Cells(i, 1) = suIt Then
With Me.lbVorschau
.AddItem sh.Cells(i, 1)
.List(.ListCount - 1, 1) = sh.Cells(i, 2)
.List(.ListCount - 1, 2) = sh.Cells(i, 3)
End With
ElseIf sh.Cells(i, 2) = suIt Then
With Me.lbVorschau
.AddItem sh.Cells(i, 1)
.List(.ListCount - 1, 1) = sh.Cells(i, 2)
.List(.ListCount - 1, 2) = sh.Cells(i, 3)
End With
ElseIf sh.Cells(i, 3) = suIt Then
With Me.lbVorschau
.AddItem sh.Cells(i, 1)
.List(.ListCount - 1, 1) = sh.Cells(i, 2)
.List(.ListCount - 1, 2) = sh.Cells(i, 3)
End With
End If
Next i
End With
gelöst. (Füllen erfolgt nach auswahl in einer KoBo)

Geplant ist:
Daten werden aus anderm wks in Tab2 geladen. èber eine uf wird Artikel, Bezeichnung oder Lagerplatz gewählt. Dann werden diese in eine weitere cobo geladen dort nach anklicken in die lb. Das klappt alles. Nur bei der Ausgabe in Tab3 (quelle für Word) ändern ein Teil der Zahlen.
Vielen Dank
Patrick

 

Hallo,

wenn Du aus der Listbox heraus die Werte zurückschreiben möchtest (der Code da oben liest ein), könntest Du den Werten ein ' voranstellen, z.B. sh.Cells(y, x).Value = "'" & .List(.ListCount - 1, 1). Dann erzwingst Du Text in Excel.

Gruß

 

Hallo mainweb,

Danke für die Idee, funktioniert natürlich und hätte man auch selbst dran denken können aber manchmal will es einfach nicht so recht flutschen...

Gruss