detel1

Fehler im VBA Code. Kann Feld nicht von einer Datei in die andere uebernehmen

Hallo Profis!

Bin ein Frischling in VBA. Ich moechte eine Excel Vorlage mit weiteren Felder anpassen.

Habe jetzt versucht die Felder aus der Spalte "STREET" zu uebernehmen.
Das funktioniert nicht.

Muss ein simpler Fehler sein. Ich sehe ihn nicht.

Habe hier die Dateien hochgeladen:
http://www.file-upload.net/gal-130172/4gsuv/1.html

Wuerde mich freuen wenn ein Profi mal ueber die Dateien schaut.

Vielen Dank

Detlef
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 267124

Url: https://administrator.de/forum/fehler-im-vba-code-kann-feld-nicht-von-einer-datei-in-die-andere-uebernehmen-267124.html

Ausgedruckt am: 17.05.2025 um 03:05 Uhr

116301
Lösung 116301 22.03.2015 aktualisiert um 13:17:59 Uhr
Goto Top
Hallo Detlef!

Dein Array 'Dim tempData(1 To 5)' ist falsch dimensioniert...
tempData(6) = wsSource.Range("J" & numRow).Value  
Von dem abgesehen, ist es eh überflüssig:
    With ThisWorkbook.Worksheets("Tabelle1")  
        .Range("B5").Value = wsSource.Range("C" & numRow).Value  
        .Range("B10").Value = wsSource.Range("E" & numRow).Value  
        .Range("B8").Value = wsSource.Range("F" & numRow).Value  
        .Range("B46").Value = wsSource.Range("G" & numRow).Value  
        .Range("B27").Value = wsSource.Range("I" & numRow).Value  
        .Range("B11").Value = wsSource.Range("J" & numRow).Value  
    End With

Grüße Dieter
Detel1
Detel1 22.03.2015 um 13:22:33 Uhr
Goto Top
Vielen Dank Dieter.
Da sucht man stundenlang und sieht den Wald vor lauter Baeumen nicht.
Da nuetzt auch Logik nicht wenn man blind ist.
Hat mich sehr gefreut.

Detlef