Hallo 

Ich habe schon den Skript im Einsatz. Nun möchte ich aber die ausgelesenen Daten nicht Zeile für Zeile, sondern die Zelle definieren in der die Daten wieder eingefügt werden sollen.

So ist der Skript im Moment.

 sBlatt = "Tabelle12"
        oMe.Cells(iZeile, 2) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B4"))
        oMe.Cells(iZeile, 3) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B12"))
        oMe.Cells(iZeile, 4) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B13"))
        oMe.Cells(iZeile, 5) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B14"))
        oMe.Cells(iZeile, 6) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B15"))
        oMe.Cells(iZeile, 7) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B16"))
        oMe.Cells(iZeile, 8) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B17"))
        oMe.Cells(iZeile, 9) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B21"))

Welchen Befehl muss ich bei Cells(iZeile, 2) angeben, damit ich z.B. die Zelle B8 definieren will?