Public
Sub
Text_einfügen()
Dim
c1
As
Variant
, c2
As
Variant
, i1
As
Long
, i2
As
Long
, Ganzer_text
As
String
, z
As
Long
, s
As
Long
Ganzer_text = Aus_zwischenablage
Application.ScreenUpdating =
False
c1 = Split(Ganzer_text, vbNewLine)
For
i1 = LBound(c1)
To
UBound(c1)
s = 1: z = z + 1
c2 = Split(c1(i1), Chr(9))
For
i2 = LBound(c2)
To
UBound(c2)
If
i1 = 0
Then
Cells(z, s) = c2(i2)
Else
Cells(z, s) = c2(i2) * 1
Select
Case
i2
Case
Is
= 0
Cells(z, s).NumberFormat =
"00.00"
Case
Is
= 1
Cells(z, s).NumberFormat =
"0.0000"
Case
Is
= 2
Cells(z, s).NumberFormat =
"0.0000"
Case
Is
= 3
Cells(z, s).NumberFormat =
"0.00000"
Case
Is
= 4
Cells(z, s).NumberFormat =
"0.00000"
Case
Is
= 5
Cells(z, s).NumberFormat =
"0.00000"
End
Select
End
If
s = s + 1
Next
i2
Next
i1
With
Range(
"A:F"
)
.Columns.AutoFit
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End
With
Application.ScreenUpdating =
True
End
Sub
Public
Function
Aus_zwischenablage()
As
String
Dim
IE
As
Object
On
Error
Resume
Next
Set
IE = CreateObject(
"HTMLfile"
)
Aus_zwischenablage = IE.ParentWindow.ClipboardData.GetData(
"text"
)
Set
IE =
Nothing
End
Function