|
Hi Leute,
Ich will eine Exceldatei via Makro in eine andere hinzufuegen.
Ich habe als schluesselvariable den Namen eines Pinurs...
Z.B
Tabelle 1, Spalte 4:
Private Pinur Machi (Pripi01309.ab.cd.efg / 0103)
Private Pinur Machi (Pripi01310.ab.cd.efg / 0144)
Private Pinur Machi (Pripi01311.ab.cd.efg / 0324)
Private Pinur Machi (Pripi01312.ab.cd.efg / 1144)
Tabelle 2, Spalte 3:
Private Pinur Machi (Pripi01310.ab.cd.efg / 0144)
Private Pinur Machi (Pripi01311.ab.cd.efg / 0324)
Private Pinur Machi (Pripi01312.ab.cd.efg / 1144)
Private Pinur Machi (Pripi01313.ab.cd.efg / 3344)
Ich will jetzt ein Makro laufen lassen, dass Tabelle 2 durchgeht und die Servernummer (01310) mit den aus Tabelle 1 vergleicht und fuer den fall das es die Nummer noch nicht in Tabelle 1 gibt, alles rueberkopiert :D
Bis jetzt hab ich folgenden Code:
Application.ScreenUpdating = False
'MS = MainSheet
Dim PinurnameMS As Variant
Dim PinurnummerMS As Variant
For i = 2 To 2000
PinurnameMS = Cells(i, 4).Value
PinurnummerMS = Mid(Pinurname, 7, 5)
Next i
|