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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 267124
Url: https://administrator.de/contentid/267124
Printed on: April 26, 2024 at 19:04 o'clock
2 Comments
Latest comment
Hallo Detlef!
Dein Array 'Dim tempData(1 To 5)' ist falsch dimensioniert...
Von dem abgesehen, ist es eh überflüssig:
Grüße Dieter
Dein Array 'Dim tempData(1 To 5)' ist falsch dimensioniert...
tempData(6) = wsSource.Range("J" & numRow).Value
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