Makro in VB programmieren für MS Excel

[Hoedur]

Hallo zusammen,

seit ein paar Tagen bastele ich an einer Excel Tabelle herum. Der Einfachheit halber möchte ich ein makro integrieren, dass dem Benutzer erlaubt, mit dem Befehl STRG-C einen Text im Browserfenster zu kopieren, und anschließend in die Tabelle einzufügen.

Beispiel:
Der Text lautet wie folgt:
Silo? 6
Eisenbergwerk 4
Titanbergwerk 4
Oelpumpe 4
Uranbergwerk 4

jetzt sollen aber nur die Zahlen übernommen und an einer bestimmten Stelle eingefügt werden.

Ein ähnliches Makro habe ich schon bekommen, da ging es um folg. Zeile:
: 10475 : 3818 : 3478 : 3207 : 1196 : 0

Das Makro dazu wurde folgendermaßen erstellt:

'
' DWars_Rohstoffe Makro
' Makro am 23.09.2004 von [CherubiM]Hoedur
'

Sub DWars_Rohstoffe()
Dim Z1 As Range
Dim W(10)

Set Z1 = Worksheets("Rohstoffe").Range("I7")
Z1.PasteSpecial xlPasteSpecialOperationAdd

Z1 = Trim(Z1)
If Left$(Z1, 1) = ":" Then Z1 = Right$(Z1, Len(Z1) - 1)
i = 0
Do While InStr(Z1, ":")
i = i + 1
xp = InStr(Z1, ":")
W(i) = Val(Left$(Z1, xp - 1))
Z1 = Right$(Z1, Len(Z1) - xp)
Loop
If i >= 5 Then
Worksheets("Rohstoffe").Range("I13") = W(1)
Worksheets("Rohstoffe").Range("I15") = W(2)
Worksheets("Rohstoffe").Range("I17") = W(3)
Worksheets("Rohstoffe").Range("I19") = W(4)
Worksheets("Rohstoffe").Range("I21") = W(5)
End If

End Sub

Funktioniert prima!

Die oben genannten Zeilen sollen jetzt auch integriert werden.

Sub DWars_Ausbaustufen()
Dim Z2 As Range
Dim W(10)

Set Z2 = Worksheets("Rohstoffe").Range("C7")
Z2.PasteSpecial xlPasteSpecialOperationAdd

Z2 = Trim(Z2)
If Left$(Z2, 1) = ":" Then Z2 = Right$(Z2, Len(Z2) - 1)
i = 0
Do While InStr(Z2, ":")
i = i + 1
xp = InStr(Z2, ":")
W(i) = Val(Left$(Z2, xp - 1))
Z1 = Right$(Z2, Len(Z2) - xp)
Loop
If i >= 5 Then
Worksheets("Rohstoffe").Range("C8") = W(1)
Worksheets("Rohstoffe").Range("C13") = W(2)
Worksheets("Rohstoffe").Range("C15") = W(3)
Worksheets("Rohstoffe").Range("C17") = W(4)
Worksheets("Rohstoffe").Range("C19") = W(5)
End If

End Sub

Kann mir jemand sagen wie ich das ganze umwandeln muss, damit es funktioniert?

Gruß Hoedur