Hallo,
habe ein Problem was ich nicht gelöst bekomme
Im Nachfolgenden vba Code suche ich nach einem Inhalt (Zahl) von Zeile zu Zeile....
Bei einem gefunden Wert übernehme ich den Inhalt in das objDic (Objekt) das würde dann beispielsweise so aussehen 32,45;44,55;22,33
Diesen Wert möchte ich als einem gefilterten Wert z.B. 32,45€ ; 44,55€ ; 22,33€ übertragen lassen in ein neues Tabellenblatt.
Ich habe es geschafft das die Werte übertragen werden aber nicht als Zahl sondern als Text ankommen....
Wo kann ich ansetzen das ich die Werte als Zahl (bzw. Währung übertragen bekomme).
Ich hoffe das jemand eine Lösung hat...
CodeTags gesetzt ~VaporiZed
habe ein Problem was ich nicht gelöst bekomme
Im Nachfolgenden vba Code suche ich nach einem Inhalt (Zahl) von Zeile zu Zeile....
Bei einem gefunden Wert übernehme ich den Inhalt in das objDic (Objekt) das würde dann beispielsweise so aussehen 32,45;44,55;22,33
Diesen Wert möchte ich als einem gefilterten Wert z.B. 32,45€ ; 44,55€ ; 22,33€ übertragen lassen in ein neues Tabellenblatt.
Ich habe es geschafft das die Werte übertragen werden aber nicht als Zahl sondern als Text ankommen....
Wo kann ich ansetzen das ich die Werte als Zahl (bzw. Währung übertragen bekomme).
Ich hoffe das jemand eine Lösung hat...
Visual Basic-Quellcode
- With Worksheets("Dez.")
- vIn = .Cells(4, 2).CurrentRegion
- For i = 1 To UBound(vIn)
- For j = 3 To 23
- If Len(vIn(i, j)) Then
- objDic(vIn(i, 2)) = objDic(vIn(i, 2)) & ";" & vIn(i, j)
- Exit For
- End If
- Next
- Next
- End With
- For Each it In objDic
- If it = sSBegriff Then
- With Worksheets("Filterung")
- .Cells(1, 1) = sSBegriff
- vIn = Split(Mid(objDic(it), 2), ";")
- .Cells(1, 2).Resize(UBound(vIn, 1) + 1) = Application.Transpose(vIn)
- End With
- Exit For
- End If
- Next
- End Sub
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()