AW: Einfügen aus Zwischenablage
26.05.2012 01:08:57
fcs
Hallo Uwe,
hier scheint irgendein Heinzelmännchen von Microsoft am Werk zu sein, dass mehr macht als es sollte.
Da die Dezimalzahlen in den Spalten F und G korrekt (wenn auch ohne Format) übernommen werden, wird das Dezimalzeichen "," also wohl gemäß den Systemeinstellungen erkannt. Dass in der Artikelnummer der Punkt auch in ein Dezimalzeichen gewandelt wird liegt dann wohl am Heimweh des US-Heinzelmännchens.
Ich kann dir als Zusatztool Makros anbieten, mit denen du die Artikl-Nr. nach dem Einfügen nachbearbeiten kannst.
Gruß
Franz
'Erstellt unter Windows Vista, deutsch, landesspezifische Einstellungen deutsch Standard
'Excel 2010 - deutsch
Sub ArtikelNr_korrigieren_1()
'Artikelnummer wird nach Umformatierung als Text in Zellen eingetragen
Dim Zelle As Range, strText As String
For Each Zelle In Selection.Cells
If Not Application.WorksheetFunction.IsText(Zelle.Value) = True Then
Zelle.Value = "'" & VBA.Replace(Format(Zelle.Value, "000.000000"), ",", ".")
End If
Next Zelle
End Sub
Sub ArtikelNr_korrigieren_2()
'Zellen werden als Text formatiert und Artikelnummer wird nach Umformatierung als _
Text in Zellen eingetragen
Dim Zelle As Range
Selection.Cells.NumberFormat = "@" 'Text-Format
For Each Zelle In Selection.Cells
If Not Application.WorksheetFunction.IsText(Zelle.Value) = True Then
Zelle.Value = VBA.Replace(Format(Zelle.Value, "000.000000"), ",", ".")
End If
Next Zelle
End Sub
Sub ArtikelNr_korrigieren_3()
'Artikelnummern werden in eine 9-stellige Zahl umgewandelt und der Punkt via _
benutzerdefinierter Formatierung dargestellt.
Dim Zelle As Range, strText As String
For Each Zelle In Selection.Cells
If Application.WorksheetFunction.IsText(Zelle.Value) = False Then
If Zelle.Value