Falsche Werte werden mehrmals exportiert
Nico
ich habe ein Skript weiterentwickelt, welches Daten aus bestimmten Zellbereichen einer Exceldatei/Mappe in eine zweite Datei/Mappe kopiert. Es werden jedoch bei Knopfdruck zum Teil auch falsche Werte kopiert, und diese dann auch mehrmals. Sehe den Wald vor lauter Bäumen nicht mehr.
Schaut mal bitte nach, was es sein könnte (evtl. mit Berichtigung).
Startet die Datei Areastations, dort steht der Code.
https://www.herber.de/bbs/user/6040.xls
Die Datei https://www.herber.de/bbs/user/6041.xls wurde aus Datenschutzgründen gelöscht
Sub copy_Data()
Dim wb1 As Workbook, wks1 As Worksheet
Dim wb2 As Workbook, wks2 As Worksheet
Dim wbo As String
Dim wksr1 As Long, wksr2 As Long
Dim lauf As Long
Dim hilfszeile As Long
Dim hilfspalte As Long
Dim zeile As Long
Dim spalte As Long
Dim hilf
wbo = "C:\WINDOWS\Desktop\Neuer Ordner (3)\Stationsspiegel_Wolfsburg.xls" 'Pfad zur Datei 2 anpassen
Set wb1 = ActiveWorkbook 'aktive Datei (Zieldatei)
Set wb2 = Workbooks.Open(wbo) 'Quelldatei
Set wks1 = wb1.Worksheets("Stations-Daten") 'Hier wird wks1 der Mappenname von der Quelle übergeben
Set wks2 = wb2.Worksheets("Stations-Daten") 'Hier wird wks2 der Mappenname des Ziels übergeben
'Datenbereich der kopiert werden muss auslesen
For spalte = 2 To 9
For zeile = 10 To 40
wksr2 = wks2.Cells(zeile, spalte).End(xlUp).Row
'Kopiervorgang beginnen
wks2.Rows("2:" & wksr2).Copy Destination:=wks1.Rows(Cells(zeile, spalte).End(xlUp).Row + 1)
Next zeile
Next spalte
wb2.Close True 'Datei 2 schliessen
End Sub