detel1
Mar 22, 2015, updated at 12:18:00 (UTC)
view1236
view2
0
Goto Top

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

GermansolvedQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 267124

Url: https://administrator.de/contentid/267124

Printed on: April 19, 2024 at 04:04 o'clock

2 Comments
Latest comment
Goto Top
Mitglied: 116301
Solution 116301 Mar 22, 2015 updated at 12:17:59 (UTC)
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
Member: Detel1
Detel1 Mar 22, 2015 at 12:22:33 (UTC)
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
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 1 CommentDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment